Forum: Multimedia
Delphi
by KodeZwerg,
19. Jul 2018
Danke nochmal, hat geholfen da ich nun etwas völlig anderes Erreichen möchte um dieser Krebs-Situation aus dem Weg zu gehen.
Es ist noch in der Mache, hier was ich Vorhabe, Danke an dieser Stelle nochmal für HLS und die Java Brightness, beides kombiniert soll das simple machen:
Ab brightness(da bin ich noch am Tüfteln was ein Guter Hell/Dunkel Wert ist) = Hell dann HLS verdunkeln ansonsten...
Forum: Multimedia
Delphi
by KodeZwerg,
18. Jul 2018
Dein Link ist Klasse, sehr gute Informationen auch für meine Zwecke sind mit dabei (Sättigungswert).
Durch den Link habe ich auch erfahren das eine Bildschirmarbeitsverordnung existiert.
Also alles in allem eine sehr coole Resource wenn es um Farben und Text-Darstellung geht, Dankeschön dafür!
Forum: Multimedia
Delphi
by KodeZwerg,
18. Jul 2018
Ich möchte das im Endeffekt nicht für Text verwenden, das dient mir hier nur als Beispiel, sondern damit dynamisch die Farbe des Cursors setzen bzw ein Auswahl-Rechteck damit einfärben. Also Krebs-Faktor hält sich in Grenzen :-)
Forum: Multimedia
Delphi
by KodeZwerg,
18. Jul 2018
Danke sehr, habe es so umgesetzt:
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.
GraphUtil.ColorRGBToHLS( mmo1.Font.Color, Hue, Luminance, Saturation );
Hue := Hue + 180;
Luminance:= 120 - Luminance div 2;
Forum: Multimedia
Delphi
by KodeZwerg,
18. Jul 2018
Bisheriger Fortschritt der oftmals ganz gut klappt:
GraphUtil.ColorRGBToHLS( mmo1.Font.Color, Hue, Luminance, Saturation );
Hue := Hue + 180;
mmo1.Color := GraphUtil.ColorHLSToRGB( Hue, Luminance, Saturation );
Total problematisch wird es bei sehr sehr dunklen bzw sehr sehr hellen Werten, da mache ich noch was falsch.
Forum: Multimedia
Delphi
by KodeZwerg,
18. Jul 2018
Erreichen will ich so etwas in der Art:
Ich gebe eine Hintergrund-Farbe vor und erhalte dafür die Gegenteilige Vordergrund-Farbe. Schwarz -> Weiß / Vorder- -> Hintergrund; ist nur exemplarisch damit man versteht worauf ich hinaus möchte.
Dankeschön, das schaue ich mir näher an!
Forum: Multimedia
Delphi
by KodeZwerg,
17. Jul 2018
Hallo, gibt es eine Möglichkeit einen Farbwert ins Gegenteil zu verwandeln?
Beispiel: aus Input Farbe Schwarz wird Output Farbe weiß.
Zur Zeit nutze ich das hier: (nicht von mir, aus CodeLib)
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 +...