02.09.2012, 19:38
|
|
Местный
|
|
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
|
|
потому что:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Play;
LengthBar.Max:=MediaPlayer1.Length;
LengthBar.Min:=MediaPlayer1.StartPos;
Timer1.Enabled:=True;
end;————————>вот эту строку
begin
ClearWavInfo(WavInfo);
tcDrawWav.Tabs.Clear;
pbDrawWav.Invalidate;
try
ReadWavInfo(OpenDialog1.FileName, WavInfo);
except
ClearWavInfo(WavInfo);
raise;
end;
sbTimePos.Position := sbTimePos.Min;
sbTimePos.PageSize := 0;
sbTimePos.Max := Max(WavInfo.NumSamples + sbTimePos.Min - 1, sbTimePos.Min);
sbTimePos.PageSize := WavInfo.NumSamples div tbTime.Position;
for i := 1 to WavInfo.WaveFormat.nChannels do
begin
tcDrawWav.Tabs.Add('Channel ¹' + IntToStr(i));
end;
pbDrawWav.Invalidate;
————————>нужно перенести сюда
end;
|