Hallo
die ganze Sache geht recht einfach, Delphi unterstützt HLS in einer Graphutil
unit, die steht nicht in der Hilfe und für Leute ohne Source sieht es schlecht aus.
da gibts ein paar umrechnungsfunktioen und dann die hier:
Zitat:
{ Given a color and a luminance change "n" this routine returns a color whose
luminace has been changed accordingly. }
function ColorAdjustLuma(clrRGB: TColorRef; n: Integer; fScale: BOOL): TColorRef;
so als kleines sinnloses Beispiel
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
col:TColor;
begin
col :=
rgb(255,100,50);
for i:=-10
to 10
do
begin
Shape1.Brush.Color := ColorAdjustLuma(col,i*5,false);
Application.ProcessMessages;
sleep(50);
end;
end;
mußt du mal n bischen rumprobieren
Mfg Frank