Am I missing something?
- Code: Select all
procedure TfrmWavePlayer.MultimediaTimer1Timer(Sender: TObject);
begin
TrackBarPosition.Max := WaveStorage1.Wave.Length;
TrackBarPosition.Position := WaveStorage1.Wave.Position;
lblLength.Caption := Long2StrS(WaveStorage1.Wave.Length);
lblPosition.Caption := Long2StrS(WaveStorage1.Wave.Position);
end;
Thanks in advance for your response.
Jim Voelker