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