Diff of /Unit1.pas

OSDN > Find Software > bad-mp3player

 Browse Subversion Repository



/[bad-mp3player]/Unit1.pas




Diff of /Unit1.pas



 Parent Directory

|  Revision Log



|  Patch














revision 5 by yamat0jp,
Sat Aug  1 00:50:22 2015 UTC




revision 6 by yamat0jp,
Sat Aug  1 04:45:13 2015 UTC






#

Line 133 
 begin


Line 133 
 begin












133
       MediaPlayer1.FileName := ListView1.Items[ListView1.ItemIndex].Detail;
       MediaPlayer1.FileName := ListView1.Items[ListView1.ItemIndex].Detail;

















134
       TrackBar2.Max := MediaPlayer1.Duration;
       TrackBar2.Max := MediaPlayer1.Duration;

















135
       MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
       MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);












136
 
       MediaPlayer1.Volume:=TrackBar1.Value;












137
       MediaPlayer1.Play;
       MediaPlayer1.Play;

















138
     end;
     end;

















139
     MediaPlayer1.Play;
     MediaPlayer1.Play;











#

Line 142 
 end;


Line 143 
 end;












143
 
 

















144
 procedure TForm1.Action5Execute(Sender: TObject);
 procedure TForm1.Action5Execute(Sender: TObject);

















145
 begin
 begin















146


   if MediaPlayer1.CurrentTime < MediaTimeScale div 10000 then


   if MediaPlayer1.CurrentTime / (MediaTimeScale div 10000) < 5 then













147


     if ListView1.ItemCount > 0 then


   begin













148


       PlayMusic(ListView1.ItemIndex - 1)


     if ListView1.ItemIndex > 0 then













149


     else


       PlayMusic(ListView1.ItemIndex - 1);













150


     begin


   end













151


       MediaPlayer1.Stop;


   else













152


       MediaPlayer1.CurrentTime := 0;


   begin













153


       TrackBar2.Value := 0;


     MediaPlayer1.Stop;













154


       Action4.Text := 'Play';


     MediaPlayer1.CurrentTime := 0;













155


     end;


     TrackBar2.Value := 0;













156


 


     Action4.Text := 'Play';













157


 


   end;















158
 end;
 end;

















159
 
 

















160
 procedure TForm1.Action6Execute(Sender: TObject);
 procedure TForm1.Action6Execute(Sender: TObject);











#

Line 212 
 begin


Line 215 
 begin












215
   TrackBar2.Max := MediaPlayer1.Duration;
   TrackBar2.Max := MediaPlayer1.Duration;

















216
   TrackBar2.Value := 0;
   TrackBar2.Value := 0;

















217
   Action4.Text := 'Stop';
   Action4.Text := 'Stop';












218
 
   MediaPlayer1.Volume := TrackBar1.Value;












219
   MediaPlayer1.Play;
   MediaPlayer1.Play;

















220
 end;
 end;

















221
 
 











#

Line 249 
 begin


Line 253 
 begin












253
 end;
 end;

















254
 
 

















255
 procedure TForm1.TrackBar2Change(Sender: TObject);
 procedure TForm1.TrackBar2Change(Sender: TObject);














 var
 










   i: extended;
 













256
 begin
 begin















257


   if MediaPlayer1.CurrentTime - TrackBar1.Value > MediaTimeScale div 1500 then


   if Abs(TrackBar2.Value - MediaPlayer1.CurrentTime) > 200 then















258
     MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
     MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);

















259
 end;
 end;

















260
 
 





























Legend:



Removed from v.5
 


changed lines


 
Added in v.6













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[bad-mp3player]/Unit1.pas
-revision 5 by yamat0jp,
Sat Aug  1 00:50:22 2015 UTC
+revision 6 by yamat0jp,
Sat Aug  1 04:45:13 2015 UTC
 Line 133 
 begin
        MediaPlayer1.FileName := ListView1.Items[ListView1.ItemIndex].Detail;
        TrackBar2.Max := MediaPlayer1.Duration;
        MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
+       MediaPlayer1.Volume:=TrackBar1.Value;
        MediaPlayer1.Play;
      end;
      MediaPlayer1.Play;
-Line 142 
 end;
+Line 143 
 end;
  procedure TForm1.Action5Execute(Sender: TObject);
  begin
-   if MediaPlayer1.CurrentTime < MediaTimeScale div 10000 then
+   if MediaPlayer1.CurrentTime / (MediaTimeScale div 10000) < 5 then
-     if ListView1.ItemCount > 0 then
+   begin
-       PlayMusic(ListView1.ItemIndex - 1)
+     if ListView1.ItemIndex > 0 then
-     else
+       PlayMusic(ListView1.ItemIndex - 1);
-     begin
+   end
-       MediaPlayer1.Stop;
+   else
-       MediaPlayer1.CurrentTime := 0;
+   begin
-       TrackBar2.Value := 0;
+     MediaPlayer1.Stop;
-       Action4.Text := 'Play';
+     MediaPlayer1.CurrentTime := 0;
-     end;
+     TrackBar2.Value := 0;
+     Action4.Text := 'Play';
+   end;
  end;
  procedure TForm1.Action6Execute(Sender: TObject);
-Line 212 
 begin
+Line 215 
 begin
    TrackBar2.Max := MediaPlayer1.Duration;
    TrackBar2.Value := 0;
    Action4.Text := 'Stop';
+   MediaPlayer1.Volume := TrackBar1.Value;
    MediaPlayer1.Play;
  end;
-Line 249 
 begin
+Line 253 
 begin
  end;
  procedure TForm1.TrackBar2Change(Sender: TObject);
- var
-   i: extended;
  begin
-   if MediaPlayer1.CurrentTime - TrackBar1.Value > MediaTimeScale div 1500 then
+   if Abs(TrackBar2.Value - MediaPlayer1.CurrentTime) > 200 then
      MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
  end;
 Legend:



Removed from v.5
 


changed lines


 
Added in v.6
 Legend:



Removed from v.5
 


changed lines


 
Added in v.6
-Removed from v.5
+Added in v.6
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository