hallo,
habe den code stehen im ereigniss
BGrid1DrawColumnCell
Delphi-Quellcode:
procedure TForm10.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if query1.FieldByName('Gültig bis Datum').Value <= Date() then
dbgrid1.Canvas.Font.Color := $000000DF
else
dbgrid1.Canvas.Font.Color := clblack;
// falls weder P1 noch P2, dann bleibt die Zeile wie Standard
dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
jetzt habe ich ein problem wenn ich in der laufzeit eine zeile im DBGrid mit der Maus markiere sehe ich die
schrift nicht mehr, es ist alles blau ???
was ist da schuld ?
mfg vader