DBGrid Farbe Markierung

[Lupster]

Hallo Zusammen,

habe ein kleines, aber für mich unlösbares Problem!

Hab ein DBGrid mit unterschiedlichen farbigen Zeilen, je nach Dateninhalt!

Markier ich nun einen Datensatz, welcher eine bunten Hintergrund hat, wechselt die Schriftfarbe auf weiss, was bei hellen Hintergründen schwer lesbar ist!

Weiss jemand, wie ich die Textfarbe bei dem markierten Datensatz ändern kann bzw. warum bei weissem Hintergrund der markierte Datensatz blau eingefärbt wird sonst aber nicht!

http://lupster.de/1.gif

http://lupster.de/2.gif

[barnti]

Hi,

für die Anpassung der Darstellung der 'Grid.cells', schreibe eine Behandlungsroutine für das OnDrawColumnCell...

Delphi-Quellcode:

...
if 'Bedingung zum Ändern der Schriftfarbe' then
        Grid.Canvas.Font.Color:= clRed;
...

Hoffe, das hilft?!

[Nightfly]

if (gdSelected in State) or (gdFocused in State) then exit;

Diese Zeile am anfang in deinem DrawColumnCell ereigniss sorgt dafür,das wenn die Zeile den fokus hat,oder selektiert wird,die Farbe nicht geändert wird. Statt des exit kannst du natürlich auch eigene farben definieren.

[shmia]

Eine Hilfsfunktion errechtet die Kontrastfarbe zum Hintergrund:

Delphi-Quellcode:

function BlackWhiteContrastColor(value: TColor):TColor;
var
   t : Integer;
begin
   value := ColorToRGB(value);

   t := GetBValue(value) * 21  // Blue
    + GetGValue(value) * 174   // Green
    + GetRValue(value) * 61;   // Red

   if t >= (128*256) then
      Result := clBlack
   else
      Result := clWhite;
end;

Und damit:
Grid.Canvas.Font.Color:= BlackWhiteContrastColor(Grid.Canvas.Color);

[Lupster]

besten dank euch allen!

gruss
lupster