Ergebnis der Suchanfrage

• Forum: Datenbanken

  AW: wie beim DBGrid OnColumnDraw aktuellen Datensatz ermitteln?

   
    by shmia, 29. Jun 2012
  Du kannst natürlich auch die Schriftfarbe in Kontrast zum farbigen Hintergrund bringen.
  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;