TColor Problem

[ken_jones]

Ok, das ist mir aktuell voll peinlich, aber ich komm gerade nicht weiter und ich rege mich auf, dass ich das noch nicht auf die Reihe gekriegt habe...

Ich habe das Problem eingegrenzt und nun auf das Minimum reduziert.

Code:

function Brighten(AColor: TColor): TColor;
var
  H, S, L: Word;
begin
  ColorRGBToHLS(AColor, H, L, S);
  Result := ColorHLSToRGB(H, L, S);
end;

Ja, diese Funktion sollte eigentlich nichts machen, es sollte derselbe Rückgabewert, theoretisch...
Aber wenn ich

Code:

panel1.Color := Brighten(clInfoBk);

probiere, dann erscheint das Panel schwarz. Wieso??

Delphi 10.0 / Win 10

[ken_jones]

Ok, Danke, hat sich erledigt...

Code:

panel1.Color := Brighten(ColorToRGB(clInfoBk));

Dachte, dass die Farbe schon so im TColor drin ist... aber wohl nicht wirklich...

Gruss,
Ken