TColor - Helligkeit und Sättigung (Get/Set)

[static_cast]

@alcaeus

nee ich mag kein vorgekauten code der so wirr ist (deswegen konnt ich mit dem post nix anfangen), dann bau ich es mir selber

Hehe jetzt hab ich meine get functions auch fertig die funzen auch, ist zwar eine abweichung von +/- 1..2 aber damit kann ich leben *g*

jetzt muss ich noch die set proceduren baun, mal schaun, hat da wer noch gute infos?

Delphi-Quellcode:

function GetLightness(AColor:TColor):Byte;
var
  R,G,B:Byte;
  MaxValue,MinValue:Double;
  Lightness:Double;
begin
  R:=GetRValue(ColorToRGB(AColor));
  G:=GetGValue(ColorToRGB(AColor));
  B:=GetBValue(ColorToRGB(AColor));

  MaxValue:=Max(Max(R,G),B);
  MinValue:=Min(Min(R,G),B);

  Lightness:=(((MaxValue + MinValue) * 240) + 255 ) / 510;

  Result:=Round(Lightness);
end;

function GetSaturation(AColor:TColor):Byte;
var
  R,G,B:Byte;
  MaxValue,MinValue:Double;
  Lightness,Saturation:Double;
begin
  R:=GetRValue(ColorToRGB(AColor));
  G:=GetGValue(ColorToRGB(AColor));
  B:=GetBValue(ColorToRGB(AColor));

  MaxValue:=Max(Max(R,G),B);
  MinValue:=Min(Min(R,G),B);

  Lightness:=(((MaxValue + MinValue) * 240) + 255 ) / 510;

  if Lightness <= 120 then
  begin
    Saturation:=(((MaxValue - MinValue) * 240) +
                 ((MaxValue + MinValue) / 2)) /
                  (MaxValue + MinValue);
  end else
  begin
    Saturation:=(((MaxValue - MinValue) * 240) +
                 ((510 - MaxValue - MinValue) / 2)) /
                  (510 - MaxValue - MinValue);
  end;

  Result:=Round(Saturation);
end;

PS: Ihr könntet die funktionen ja auch mal testen.