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;