Develop and Download Open Source Software

bad-mp3player

Browse Subversion Repository

/[bad-mp3player]/Unit2.pas

Diff of /Unit2.pas

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

revision 1 by yamat0jp, Mon Jul 27 13:44:42 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 16  type Line 16  type
16      procedure SpeedButton1Click(Sender: TObject);      procedure SpeedButton1Click(Sender: TObject);
17      procedure FormCreate(Sender: TObject);      procedure FormCreate(Sender: TObject);
18      procedure FormDestroy(Sender: TObject);      procedure FormDestroy(Sender: TObject);
19        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
20    private    private
21      { private 宣言 }      { private 宣言 }
22    public    public
# Line 31  implementation Line 32  implementation
32    
33  uses Unit1;  uses Unit1;
34    
35    procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
36    begin
37      if Sender <> Form1 then
38      begin
39        CanClose:=false;
40        Hide;
41      end;
42    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.1  
changed lines
  Added in v.7
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help