Hallo!
Ich habe auf meiner Form ein TEdit-Feld und ein StringGrid, bei dem ich die ungeraden Zeilen hellgelb eingefärbt habe und die geraden Zeilen weiß gelassen habe. Die einzelnen Zellen habe in schwarzer Schrift gefüllt.
Klicke ich jetzt z.B. in Cells[1,1] (hellgelb) und sofort anschliessend in das TEdit-Feld, dann wird die Schrift auf weiß invertiert und ist fast nicht mehr sichtbar.
Weiss jemand wie man dies verhindern kann? Vielleicht habe ich ein Problem beim Einfärben? Ich denke aber eher aber, das es irgendwas mit markieren/selektieren der Zelle zutun hat?
Code:
procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if odd(ARow) then
begin //bei ungeraden Zeilen
sg.Canvas.Brush.Color := clHellGelb;
sg.Canvas.FillRect(Rect);
sg.Font.Color := clBlack ;
sg.Canvas.Textout(Rect.Left+2, Rect.Top+2, sg.Cells[ACol, ARow]);
end;
end;
Für Eure Hilfe schon mal vielen Dank im voraus!
Gruß GG