Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit1.pas

Diff of /Unit1.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by yamat0jp, Fri Jul 31 23:39:46 2015 UTC revision 5 by yamat0jp, Sat Aug 1 00:50:22 2015 UTC
# Line 249  begin Line 249  begin
249  end;  end;
250    
251  procedure TForm1.TrackBar2Change(Sender: TObject);  procedure TForm1.TrackBar2Change(Sender: TObject);
252    var
253      i: extended;
254  begin  begin
255    if (TrackBar2.Value < MediaPlayer1.CurrentTime) or    if MediaPlayer1.CurrentTime - TrackBar1.Value > MediaTimeScale div 1500 then
     (TrackBar2.Value > MediaPlayer1.CurrentTime + MediaTimeScale div 800) then  
256      MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);      MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
257  end;  end;
258    
Legend:
Removed from v.4  
changed lines
  Added in v.5
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help