wie beim DBGrid OnColumnDraw aktuellen Datensatz ermitteln?

[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;