RGB-Farbe einer gedimten Lampe (helligkeit) einstellen?

[Sharky]

Hai,

weiss jemand wie ich die "helligkeit" einer Farbe einstellen kann.

Ich möchte einen Dimmer-Simulation coden. Dabe soll ein Farbwert von schzwar (aus) über gelb bis weiss (volle power) eingestellt werden.

Im Colordialog kann ich das ja machen. Wenn ich dort für

Farbt. 40
Sätt. 240

einstelle kann ich mit dem Regler rechts alle Farben die ich möchte einstellen. Aber wie berechne ich diese RGB-Werte im Programm?

[Mr_T]

Also wenn ich sowas schreiben würde, dann würde ich mir nen Algo machen, der die Farbe aus einem "Dim-Prozentwert" heraus erstellt.
Ich bin nun mal davon ausgegangen, dass reines Geld den Wert "50%" darstellt und reines Weiß "100%"...

Delphi-Quellcode:

function dimcolor(prozent:integer) : integer;
var
tmp : byte;
begin
 if prozent <= 50 then
 begin
 tmp := 256 div 50 * prozent;
 result := strtoint('$'+'00'+inttohex(tmp,2)+inttohex(tmp,2)); 
 end
 else
 begin
 tmp := 256 div 50 * (prozent-50);
 result := strtoint('$'+inttohex(tmp,2)+'FFFF'); 
 end;
end;

(Nich t wundern wegen der reihenfolge der Hex-Werte... das liegt an der Art und weise, wie Delphi solche Werte verarbeitet...

Ein Anwenbdungsbeispiel:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
panel1.color := dimcolor(trackbar1.position);
end;

Klapte bei mir wunderbar... oder war es etwas anderes, was du brauchst?

[Sharky]

Zitat von Mr_T:

....Klapte bei mir wunderbar... oder war es etwas anderes, was du brauchst?

Danke, genau so wollte ich das. Hatte wohl mal wieder dieses berüchtigte Brett vor dem Kopf.