Hallo zusammen,
ich stelle meine Daten im DBGrid mit abwechselnder Hintergrundfarbe dar. Wenn ich jetzt eine Zeile selektiere (RowSelect=true), dann ist die Schriftfarbe weiß, das kann man bei den von mir verwendeten Hintergrundarben sehr schlecht lesen. Wie kann ich die Selektionsfarbe anpassen?
Hintergrund wird wie folgt gefärbt:
Delphi-Quellcode:
procedure TfrmMain.DBGrid3DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if (Sender
as TDBGrid).DataSource.DataSet.RecNo
mod 2 = 0
then
DBGrid3.Canvas.Brush.Color:=
RGB(212, 226, 237)
else
DBGrid3.Canvas.Brush.Color:=
RGB(200,200,200);
DBGrid3.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Gruß Igotcha