Плеер

L,R,L1,R1:Integer;
level:Dword;
begin
 
 if BASS_ChannelIsActive(channel) <> BASS_ACTIVE_PLAYING then Exit;
 level:=BASS_ChannelGetLevel(Channel);
 L:=HiWord(level);
 R:=Loword(level);
 PaintBox1.Canvas.Brush.Color:=clBlack;
 PaintBox1.Canvas.FillRect(PaintBox1.Canvas.ClipRect);
 
 PaintBox2.Canvas.Brush.Color:=clBlack;
 PaintBox2.Canvas.FillRect(PaintBox2.Canvas.ClipRect);
 
 L1:=Round(L/(32768/PaintBox1.Height));
 R1:=Round(R/(32768/paintbox2.Height));
 PaintBox1.Canvas.Brush.Color:=clBlue;
 PaintBox2.Canvas.Brush.Color:=clBlue;
 PaintBox1.Canvas.Rectangle(0,PaintBox1.Height-L1,PaintBox1.Width,Height);
 PaintBox2.Canvas.Rectangle(0,PaintBox2.Height-R1,PaintBox2.Width,Height);

PaintBox1.Canvas.Rectangle(0,0,PaintBox1.Width-L1,Height);
 PaintBox2.Canvas.Rectangle(0,0,PaintBox2.Width-R1,Height);

PaintBox1.Canvas.Rectangle(PaintBox1.Width-L1,0,PaintBox1.Width,Height);
 PaintBox2.Canvas.Rectangle(0,0,R1,Height);