...die inverse Farbe zu einer Farbe bekommen?

Autor: Neil Rubenking

Kategorie: Grafik

procedure EdBackColor(FontC: TColor; var EditableColor,
  ReadOnlyColor: TColor);
  // Calculate the luminance of the color using the simplified formula
  //     luminance = 0.25*red + 0.625*green + 0.125*blue
  // If greater than 0.5, use a dark background
var
  
R, G, B: Integer;
begin
  
R := GetRValue(FontC) * 2;
  G := GetGValue(FontC) * 5;
  B := GetBValue(FontC);
  if R + G + B < 1024 then
  begin
    
EditableColor := clWhite;
    ReadOnlyColor := clSilver;
  end
  else
  begin
    
EditableColor := clBlack;
    ReadOnlyColor := clDkGray;
  end;
end;

 

printed from
www.swissdelphicenter.ch
developers knowledge base