Wie ändere ich die Farben derZeilen in abwechselnder Reihenf

[Keldorn]

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if gdfixed in State then exit; //keine fixierten Zellen
  with (sender as Tstringgrid) do
    begin
      if odd(arow) then canvas.Brush.color := clwindow
                   else canvas.Brush.color := clgray;
      canvas.FillRect(rect);

      canvas.textrect(rect,rect.Left+2,rect.Top+2,cells[acol,arow]);           
    end;
end;

mit odd prüfen, ob Zeile gerade ist oder nicht und dementsprechend hintergrundfarbe setzen (zb. auch ...color:=rgb(...).
oder wenn du auf unterschiedliche Farbprofile rücksicht nehmen willst:

Delphi-Quellcode:

uses graputil
 ...
 else canvas.Brush.color := ColorAdjustLuma(colortorgb(clwindow),-20,false);

Mfg Frank