RGB Lampe Sound 2 Light Steuerung

[Blamaster]

Hi,

Danke für den Tipp.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Color_R, Color_G, Color_B, Color_R_old, Color_G_old, Color_B_old, level: integer;
begin
  level := BASS_ChannelGetLevel(RecChannel);

  if CheckBox1.Checked = true then Color_R := (round(HIWORD(level) / 255) + TrackBar1.Position) else Color_R := 0;
  if CheckBox2.Checked = true then Color_G := (round(HIWORD(level) / 255) + TrackBar1.Position) else Color_G := 0;
  if CheckBox3.Checked = true then Color_B := (round(HIWORD(level) / 255) + TrackBar1.Position) else Color_B := 0;

  if CheckBox1.Checked = true then Color_R := Color_R * 10 div 100 + Color_R_old * 90 div 100;
  if CheckBox2.Checked = true then Color_G := Color_G * 10 div 100 + Color_G_old * 90 div 100;
  if CheckBox3.Checked = true then Color_B := Color_B * 10 div 100 + Color_B_old * 90 div 100;
  Color_R_old := Color_R;
  Color_G_old := Color_G;
  Color_B_old := Color_B;

  JvColorTrackBar4.Position := Color_R;
  JvColorTrackBar4.Position := Color_G;
  JvColorTrackBar4.Position := Color_B;
  JvPanel3.Color := RGB(Color_R, Color_G, Color_B);

  SendRGB(Color_R, Color_G, Color_B);
end;

so tut sich leider garnichts mehr, oder habe ich da einen Denkfehler drin ?