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 4 by yamat0jp,
Fri Jul 31 23:39:46 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 250 
 end;


Line 254 
 end;












254
 
 

















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

















256
 begin
 begin















257


   if (TrackBar2.Value < MediaPlayer1.CurrentTime) or


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
















     (TrackBar2.Value > MediaPlayer1.CurrentTime + MediaTimeScale div 800) then


 















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

















259
 end;
 end;

















260
 
 





























Legend:



Removed from v.4
 


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 4 by yamat0jp,
Fri Jul 31 23:39:46 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 250 
 end;
+Line 254 
 end;
  procedure TForm1.TrackBar2Change(Sender: TObject);
  begin
-   if (TrackBar2.Value < MediaPlayer1.CurrentTime) or
+   if Abs(TrackBar2.Value - MediaPlayer1.CurrentTime) > 200 then
-     (TrackBar2.Value > MediaPlayer1.CurrentTime + MediaTimeScale div 800) then
      MediaPlayer1.CurrentTime := Trunc(TrackBar2.Value);
  end;
 Legend:



Removed from v.4
 


changed lines


 
Added in v.6
 Legend:



Removed from v.4
 


changed lines


 
Added in v.6
-Removed from v.4
+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