Hallo,
Ich habe schon wieder ein Problem mit einem dbGrid. Mit der Prozedur OnDrawColumnCell werden bestimmte Zeilen des dbGrids in unterschiedlichen Farben angezeigt: hier der Code soweit:
Delphi-Quellcode:
procedure TFMain.DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var Farbe: TColor;
begin
case ArrayVeraendert[QrySlave.RecNo].Farbe of
1: Farbe := TColor($00B0FFFF);
2: Farbe := TColor($00A69EFF);
else Farbe := clWhite;
end;
//Hintergrundfarbe
TDBGrid(Sender).Canvas.Brush.Color := Farbe;
TDBGrid(Sender).Canvas.Brush.Style := bsSolid;
TDBGrid(Sender).Canvas.Pen.Style := psclear;
TDBGrid(Sender).Canvas.FillRect(Rect);
//Text
TDBGrid(Sender).Canvas.Pen.Style := psSolid;
TDBGrid(Sender).Canvas.Pen.Color := clBlack;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Das klappt soweit super, nur wird das Element, welches ich mit der Maus auswähle in weißer schrift geschrieben, was besonders bei weißem Hintergrund nervig ist. Was muss ich ändern, um die Schrift einfach immer Schwarz zu lassen?