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;