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:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure TSZWaveScope.doPaint(const MOVEWITHTIMELINE: boolean = true);
  procedure drawEvents;
  var
    x: integer;
  begin
    with FPaintBox.Canvas do
      for x := 0 to High(FEvents) do
      begin
        LineColor := clBlack;
        MoveTo(FEvents[x].Left + (FEvents[x].Width div 2), FEvents[x].Top + FEvents[x].Height);
        LineTo(PenPos.X, PenPos.Y + 10);
        LineTo(PenPos.X + (getPosFromMS(FEvents[x].Pos) - PenPos.X), PenPos.Y);
        LineTo(PenPos.X, FEventBmp.Height);
      end;
  end;
begin
  inherited;

  Color   := FBGColor;

  with FPaintBox.Canvas do
  begin
    Pen.Style   := psSolid;
    Brush.Color := clyellow;//FBGColor;
    FillRect(Rect(0, 0, FPaintBox.Width, FPaintBox.Height));

    Draw(0, 0, FEventBmp);
    Draw(0, FEventBmp.Height, FTimeBmp);                     // BEI DIESEN BILDERN MACHT ER MIR PROBLEME...
    Draw(0, FEventBmp.Height + FTimeBmp.Height, FWaveBmp);

    Pen.Color := clRed;
    MoveTo(FPos, 0);
    LineTo(FPos, Height);
  end;

  drawEvents;

  if MOVEWITHTIMELINE and ((FPos - HorzScrollBar.Position) > (Width - SCROLLSPACE)) then
    HorzScrollBar.Position := FPos - (Width - SCROLLSPACE);
end;					

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

procedure TSZPlayer.Execute;
begin
  while true do
  begin
    if FStatus = psStarted then
    begin
      channel := BASS_StreamCreateFile(FALSE, PChar(FFilename), 0, 0, 0);

      BASS_ChannelPlay(channel, false);
      setPosition(FPos^);

      while (BASS_ChannelIsActive(Channel) = BASS_ACTIVE_PLAYING) and (FStatus = psStarted) do
      begin
        FPos^ := getPosition;
        FDoPaint;
        Sleep(200);
      end;
      FStatus := psStopped;
    end else if BASS_ChannelIsActive(Channel) = BASS_ACTIVE_PLAYING then
      BASS_ChannelStop(channel);
    Sleep(100);
  end;
end;