DBR Delphi-Ecke

// Um gut lesbare Aufschriften bei Änderung der Hintergrundfarbe zu erhalten,
// wird entsprechend die Schriftfarbe schwarz oder weiß eingefärbt.

// Getestet mit D4 unter XP

function FontColor(BackgroundColor: TColor): TColor; 
begin 
  BackgroundColor := ColorToRGB(BackgroundColor); 
  result := ord(GetRValue(BackgroundColor) shl 1 + 
    GetGValue(BackgroundColor) * 5 + 
    GetBValue(BackgroundColor) < 1024) * $FFFFFF; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  if Colordialog1.Execute then begin 
    Panel1.Color := Colordialog1.Color; 
    panel1.Font.Color := FontColor(Panel1.Color); 
  end; 
end;