Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
18. Sep 2007
Man muss den Font-Color des Canvas ändern.
Das Font-Objekt des Stringgrids und das Font-Objekt des Canvas sind zwei verschiedene Dinge.
with StringGrid1.Canvas do
Font.Color := BlackWhiteContrastColor(Brush.Color); // <====
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
27. Feb 2007
Grundsätzlich sollte die Textfarbe immer einen möglichst grossen Kontrast zur Hintergrundfarbe haben.
Du änderst zwar die Farbe des Hintergrunds, aber nicht die Farbe des Textes (Vordergrund).
Mit folgendem Code bleibt die Textfarbe im Kontrast zum Hintergrund
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if...