Diff of /Unit2.pas

OSDN > Find Software > bad-mp3player

 Browse Subversion Repository



/[bad-mp3player]/Unit2.pas




Diff of /Unit2.pas



 Parent Directory

|  Revision Log



|  Patch














revision 2 by yamat0jp,
Tue Jul 28 08:41:38 2015 UTC




revision 7 by yamat0jp,
Sat Aug 15 03:06:09 2015 UTC






#

Line 6 
 uses


Line 6 
 uses












6
   System.SysUtils, System.Types, System.UITypes, System.Classes,
   System.SysUtils, System.Types, System.UITypes, System.Classes,

















7
   System.Variants,
   System.Variants,

















8
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,















9


   System.IniFiles, System.IOUtils, FMX.ExtCtrls;


   System.IOUtils, FMX.ExtCtrls;















10
 
 

















11
 type
 type

















12
   TForm2 = class(TForm)
   TForm2 = class(TForm)











#

Line 42 
 begin


Line 42 
 begin












42
 end;
 end;

















43
 
 

















44
 procedure TForm2.FormCreate(Sender: TObject);
 procedure TForm2.FormCreate(Sender: TObject);















45


 var


 //var













46


   s: TIniFile;


 //  s: TMemIniFile;















47
 begin
 begin















48


   s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');


   //s := TMemIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');















49
   try
   try















50


     PopupBox1.ItemIndex := s.ReadInteger('Form2', 'MAX_DEPTH', 4);


     //PopupBox1.ItemIndex := s.ReadInteger('Form2', 'MAX_DEPTH', 4);













51


     Form1.TrackBar1.Value := s.ReadFloat('Form1', 'Volume', 0.5);


 //    Form1.TrackBar1.Value := s.ReadFloat('Form1', 'Volume', 0.5);















52
   finally
   finally















53


     s.Free;


   //  s.Free;















54
   end;
   end;

















55
 end;
 end;

















56
 
 

















57
 procedure TForm2.FormDestroy(Sender: TObject);
 procedure TForm2.FormDestroy(Sender: TObject);















58


 var


 //var













59


   s: TIniFile;


 //  s: TMemIniFile;















60
 begin
 begin















61


   s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');


   //s := TMemIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');















62
   try
   try















63


     s.WriteInteger('Form2', 'MAX_DEPTH', PopupBox1.ItemIndex);


     //s.WriteInteger('Form2', 'MAX_DEPTH', PopupBox1.ItemIndex);













64


     s.WriteFloat('Form1', 'Volume', Form1.TrackBar1.Value);


 //    s.WriteFloat('Form1', 'Volume', Form1.TrackBar1.Value);















65
   finally
   finally















66


     s.Free;


   //  s.Free;















67
   end;
   end;

















68
 end;
 end;

















69
 
 





























Legend:



Removed from v.2
 


changed lines


 
Added in v.7













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[bad-mp3player]/Unit2.pas
-revision 2 by yamat0jp,
Tue Jul 28 08:41:38 2015 UTC
+revision 7 by yamat0jp,
Sat Aug 15 03:06:09 2015 UTC
 Line 6 
 uses
    System.SysUtils, System.Types, System.UITypes, System.Classes,
    System.Variants,
    FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
-   System.IniFiles, System.IOUtils, FMX.ExtCtrls;
+   System.IOUtils, FMX.ExtCtrls;
  type
    TForm2 = class(TForm)
 Line 42 
 begin
  end;
  procedure TForm2.FormCreate(Sender: TObject);
- var
+ //var
-   s: TIniFile;
+ //  s: TMemIniFile;
  begin
-   s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
+   //s := TMemIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
    try
-     PopupBox1.ItemIndex := s.ReadInteger('Form2', 'MAX_DEPTH', 4);
+     //PopupBox1.ItemIndex := s.ReadInteger('Form2', 'MAX_DEPTH', 4);
-     Form1.TrackBar1.Value := s.ReadFloat('Form1', 'Volume', 0.5);
+ //    Form1.TrackBar1.Value := s.ReadFloat('Form1', 'Volume', 0.5);
    finally
-     s.Free;
+   //  s.Free;
    end;
  end;
  procedure TForm2.FormDestroy(Sender: TObject);
- var
+ //var
-   s: TIniFile;
+ //  s: TMemIniFile;
  begin
-   s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
+   //s := TMemIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
    try
-     s.WriteInteger('Form2', 'MAX_DEPTH', PopupBox1.ItemIndex);
+     //s.WriteInteger('Form2', 'MAX_DEPTH', PopupBox1.ItemIndex);
-     s.WriteFloat('Form1', 'Volume', Form1.TrackBar1.Value);
+ //    s.WriteFloat('Form1', 'Volume', Form1.TrackBar1.Value);
    finally
-     s.Free;
+   //  s.Free;
    end;
  end;
 Legend:



Removed from v.2
 


changed lines


 
Added in v.7
 Legend:



Removed from v.2
 


changed lines


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