RGB-Gegenteil-Farbe ermitteln

[KodeZwerg]

Zitat von sakura:

Ist zwar aus der JavaScript-Welt, aber leicht zu verstehen und entsprechend umzusetzen.

Danke sehr, habe es so umgesetzt:

Delphi-Quellcode:

function Brightness(const Input: TColor): TColor;
begin
 Result := Round((GetRValue(Input) * 299 + GetGValue(Input) * 587 + GetBValue(Input) * 114) / 1000);
end;

Wenn Input sehr dunkel ist versagt es.

Zitat von Ydobon:

Du könntest noch etwas am Helligkeitswert schrauben.

Delphi-Quellcode:

GraphUtil.ColorRGBToHLS( mmo1.Font.Color, Hue, Luminance, Saturation );
Hue := Hue + 180;
Luminance:= 120 - Luminance div 2;
mmo1.Color := GraphUtil.ColorHLSToRGB( Hue, Luminance, Saturation );

Danke sehr, das ist bis jetzt die Beste Variante.

Zitat von Stevie:

aber nur entweder schwarz oder weiß

Genau so etwas hatte ich ja bereits und davon wollte ich weg, Danke trotzdem!

Zitat von Sherlock:

Das gesuchte Wort ist Komplementärfarbe (complemetary color).

Danke sehr für den Link, abgesehen davon das da auch InvertColor() angeboten wird in etwas kürzerer Form:

Delphi-Quellcode:

function InvertColor(const Input: TColor): TColor;
begin
  Result := RGB(255 - GetRValue(Input), 255 - GetGValue(Input), 255 - GetBValue(Input));
end;

habe ich das hier probiert:

Delphi-Quellcode:

function xorColor(BackgroundColor: TColor): TColor;
begin
  BackgroundColor := ColorToRGB(BackgroundColor);
  Result := RGB(
    IfThen(GetRValue(BackgroundColor)>$40, $00, $FF),
    IfThen(GetGValue(BackgroundColor)>$40, $00, $FF),
    IfThen(GetBValue(BackgroundColor)>$40, $00, $FF)
  );
end;

Das ist so wie nur Min oder Max. Also nicht direkt das was ich wollte, vielleicht habe ich auf der Seite auch was überlesen.



Ydobons Vorschläge in welche Richtung ich mich bewegen sollte finde ich bis jetzt am besten da ich noch keine Farbe entdeckt habe wo sich Vorder-/Hintergrund dolle in die Quere kommt und nicht nur Schwarz/Weiß als Resultat definiert wird.