TDBGrid-Zeilen unterschiedlich färben und TTable

[Sharky]

Zitat von Tyler:

Leider gibt´s keiner derartige Funktion beim DBGrid, hab ich auch schon geschaut...

Hai Tyler,

eventuell kannst Du dir ja eine globale Variable deklarieren.

Delphi-Quellcode:

var
  gerade : Boolean = False;

procedure TForm1.GridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 If (gerade) then
  begin
   Grid.Canvas.Brush.Color := clSkyBlue;
  end;
 Grid.DefaultDrawColumnCell(Rect, 0, Column, State);
 gerade := Not (gerade);
end;

Ist aber nicht getestet!