Discussion :

[SergioMaster]

Que de questions sur le DBGrid !!
en voilà une autre . J'ai l'habitude sous delphi de faire la chose suivante :
Je mets la propriété Defaultdraw à false et utilise l'événement Ondrawdatacell pour mettre une ligne sur deux de couleur différente ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm6.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if  (QClients.RecNo mod 2=0) then
    begin
      if Dbgrid1.Canvas.Brush.Color=Dbgrid1.Color then
      Dbgrid1.Canvas.Brush.Color:=clskyblue;
    end;
  DBGrid1.DefaultDrawColumnCell(Rect,Datacol,Column,State);  
end;

Hors, à ma surprise, ce même code ne fonctionne pas avec Lazarus . Pis sur la première ligne il me dessine une partie du dbnavigator que j'ai mis sous le DBGrid et lorsque je navigue dans les lignes la fonte (oui vous lisez bien la Fonte) change passant de normal à gras et je ne vous raconte même pas le désastre apres la première page ²

Quelqu'un pourrait-il m'expliquer si j'ai fait une faute quelque part
ou est-ce un bug non corrigé ?

[chris37]

Bonsoir,

La propriété AlternateColor de la DbGrid permet de faire cela

@+

[SergioMaster]

super, et je vais donc l'utiliser
toutefois ce comportement est bien étrange y aurait-il une explication ou bien est un bug ?

[chris37]

Bonjour,

Je n'utilise pas l'événement OnDrawColumnCell car j'ai refais ma propre Dbgrid. Mon code est donc plus en profondeur dans le code et je ne rencontre pas de difficultés particulières.

@+

[SergioMaster]

super, et je vais donc l'utiliser
toutefois ce comportement est bien étrange y aurait-il une explication ou bien est un bug ?

L'eau a coulé sous les ponts , et depuis j'ai trouvé la réponse . En fait c'est mon comportement qui était trop "Delphiiste" plutôt que d'utiliser OnDrawColumnCell j'aurais du utiliser OnDrawCanvas

Laissé ici a titre d'information pour les générations futures