Discussion :

[komguem]

salut à tous!!!!

je programme avec delphi 7. j'aimerai avoir des lignes de couleur différentes sur un dbgrid dont le Dataset du DataSource est un Query (de la palette BDE). la propriété RecNo du DataSet retourne toujours -1 (DBgrid1.DataSource.DataSet.RecNo retourne toujours -1).

S'il vous plait aidez-moi.......

merci............

[Yurck]

la propriété RecNo du DataSet retourne toujours

Cela dépend de la base utilisée et du moyen d'accès (intergiciel)

En conséquence de quoi utilise plutôt la propriété "ROW" de ta grille de la façon approximative suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
const 
  Couleur : array[false..true] of TColor  = (clred, clgreen);
begin 
  ....color := Couleur [Odd(TCustomGrid(MaDbGrid).row)];
end;

Ou alors ajoute un champs calculé interne que tu valorisera à l'ouverture de ton ensemble au moyen d'une boucle while.

[anapurna]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 THackGrid = Class(TDbGrid);
...
MaForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 
   if odd(THackGrid(Sender).row) then
    // ou ((THackGrid(Sender).row mod 2) = 0 ) hen
     	(sender as TDbGrid).Canvas.Brush.Color := clRed
    else 
    	(sender as TDbGrid).Canvas.Brush.Color := clYellow;
 
  (sender as TDbGrid).DefaultDrawColumnCell(Rect, DataCol, Column, []);
end;

@+ Phil