wie beim DBGrid OnColumnDraw aktuellen Datensatz ermitteln?

[Jumpy]

Hallo,

nochmal ich, nochmal DBGrid.

Ich färbe die Zeilen meines DBGrids im OnDraw nach diversen Kriterien bunt. Nun hab ich aber das Problem, dass man den aktiven Datensatz nicht mehr sehen kann (außer an dem Pointer/Dreieck in der ersten Spalte). Wenn man nicht selber zeichnet würde ja der aktive Datensatz mit blauen Hintergrund und weißer Schrift angezeigt.

Kann man das irgendwie erkenne, dass man gerade den aktiven DS zeichnet und das selber zeichnen (für diese Zeile) nicht machen?

[tsteinmaurer]

Hab gerade kein Delphi hier, aber ich denke etwas in Richtung.

Delphi-Quellcode:

if not (gdSelected in State) then
begin
  // Dein Einfärben ...
end;

[shmia]

Du kannst natürlich auch die Schriftfarbe in Kontrast zum farbigen Hintergrund bringen.

Delphi-Quellcode:

function Intensity(Color: TColor): Integer;
begin
  Color := ColorToRGB(Color);
  Result := GetBValue(Color) * 21      // Blue
    + GetGValue(Color) * 174   // Green
    + GetRValue(Color) * 61;  // Red
  Result := Result shr 8;
end;

{**************************************************************************
 * NAME:    BlackWhiteContrastColor
 * DESC:    Berechne die Kontrastfarbe (nur schwarz oder weiss)
 *          zur übergebenen Farbe
 *************************************************************************}
function BlackWhiteContrastColor(value: TColor):TColor;
begin
   if Intensity(value) >= 128 then
      Result := clBlack
   else
      Result := clWhite;
end;

[Jumpy]

Zitat von tsteinmaurer:

Hab gerade kein Delphi hier, aber ich denke etwas in Richtung.

Delphi-Quellcode:

if not (gdSelected in State) then
begin
  // Dein Einfärben ...
end;

Jo das wars. "State" hät ich mir ja auch mal selber angucken können. Danke.

@shmia: Interessant. Muss ich mir mal in Ruhe angucken.