Lignes du composant dbgrid multicoloriés

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............

Citation:

---

Envoyé par komguem

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:

---

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.

salut

Code:

---

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