1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm3.DrawPeaks;
var
   ht, x, boxh: integer;
begin
    ht:= trunc((leftcannelpb.Height / 2 )+ 0.5);
    boxh:= leftcannelpb.Height; 
    peakbufl.Canvas.MoveTo(0, ht);
    for x:= 0 to peakbufl.Width do    
    begin
        ......
        if x > 0 then
        begin
            peakbufl.Canvas.Pen.Color:= clblack;                     //hier muss boxh mit berechnet werden aber wie? 
            peakbufl.Canvas.LineTo(x - 1, ht - trunc((power(2, yzoom) * (wavebufL[x - 1]) / 512)));
        end;
      ....
      ....					

1:

peakbufl.Canvas.LineTo(x -1, ht -trunc(power(2, yzoom)*(boxh/100* wavebufL[x-1])/512));					

1:
2:
3:
4:
5:

if x > 0 then
        begin
            peakbufl.Canvas.Pen.Color:= clblack;                     //hier muss boxh mit berechnet werden aber wie? 
            peakbufl.Canvas.LineTo(x - 1, ht - trunc( (power(2, yzoom) / 512) * (leftcannelpb.Height / <HÖHE>)  * wavebufL[x - 1] ));
        end;					

1:

(leftcannelpb.Height / <HÖHE>)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TForm3.FormPaint(Sender: TObject);
begin
   timerpb.Canvas.Draw(0,0,Timebuf);        //TimerPaintBox
   leftpbh.Canvas.Draw(0,0,lbuf);           //LevelLeftPaintBox
   rightpbh.Canvas.Draw(0,0,rbuf);          //LevelRightPaintBox
   leftcannelpb.Canvas.Draw(0,0,peakbufl);  //LeftChannelPaintBox incl WaveCurve
   rightcannelpb.Canvas.Draw(0,0,peakbufr); //RightChannelPaintBox inl WaveCurve
end;

// und hier werden die Bitmaps aufgerufen------------------------------------------
procedure TForm3.Timer1Timer(Sender: TObject);
begin
   DrawTimeline;
   DrawLevelLine;
   DrawSpectrum;
   DrawPeaks;
   formpaint(sender);
   Edit_Audio.StatusBar1.Panels.Items[3].Text:= '> '+
   timepos(round(BASS_ChannelBytes2Seconds(mychan, BASS_ChannelGetPosition(mychan, BASS_POS_BYTE) * 1000)));
   if BASS_ChannelIsActive(mychan)<> 1 then
   begin
    Edit_Audio.stopbutton.Enabled:= false;
    Edit_Audio.playbutton.Enabled:= true;
   end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

for ypos:= 0 to peakbufr.Width do
begin
//Linkerkanal
   peakbufl.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufl.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufl.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufl.Height *ypos) );
   peakbufl.Canvas.MoveTo(0, ypos);
   peakbufl.Canvas.LineTo(peakbufl.Width, ypos);
//rechterkanal
  peakbufr.Canvas.Pen.Color:= RGB( Trunc(102+ (255 - 102) / peakbufr.Height *ypos) ,
                   Trunc(113+ (255 - 113) / peakbufr.Height *ypos) ,
                   Trunc(126+ (255 - 126) / peakbufr.Height *ypos) );
  peakbufr.Canvas.MoveTo(0, peakbufr.Height - ypos);
  peakbufr.Canvas.LineTo(peakbufr.Width, peakbufr.Height - ypos);
end;					

1:

ht - trunc((boxh/100 * wavebufL[x-1])*(power(2, yzoom)/768))