Wie ändere ich die Farben derZeilen in abwechselnder Reihenf

[mojo777]

Hallo,
Wie ändere ich die Farben derZeilen in abwechselnder Reihenfolge?

dabei handelt es sich um eine GridComponente und soo...

Also ich habe das mit onDraw... probiert, aber irgendwie ist meine OH zerschossen und hat dazu nix gefunden..
Wäre für Anregungen dankbar.

FmG

[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

[mojo777]

Alda, das ist krass!
Also ich verstehe die variablen der funktion noch nciht ganz... werde aber gleich sicherlich rausfinden.
DANKE MAHN!