Kurz gesagt würde ich einfach entgegnen: Na, dann mach doch einfach.
Ausführlicher: Worin besteht denn jetzt das Problem? Du hast dir
OnDrawColumnCell angeschaut und bist nicht weiter gekommen. Geht mir auch so: Allein vom Anschauen komm ich auch nie weiter
Liegt vielleicht daran, daß ich keinen hab, der mir meinen Code schreibt
Also mal ehrlich: ich wußte das jetzt auch nicht auf Anhieb, weil ich das nur selten benötige. Aber ein einziger Google-Besuch mit den Stichworten "delphi dbgrid alternate row color" brachte
gleich im ersten Ergebnis die Lösung:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure TFormMain.DBGridTestDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
Gitter : TDBGrid;
Spalte : integer;
begin
Gitter := Sender as TDBGrid;
Spalte := DatMod.DataSource1.DataSet.RecNo;
IF Column.Index = 1 THEN
Gitter.Canvas.Brush.Color := clYellow ELSE
Gitter.Canvas.Brush.Color := clWhite;
Gitter.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end; |
Ich bin zuversichtlich und traue dir grundsätzlich zu, ebenfalls eine Suchmaschine deiner Wahl bedienen zu können, um auf diese Weise Lösungen für schon tausendmal erfragte Probleme zu finden.
Narses
