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é ?