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
:cat:

[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!
:party: