svn/view/Unit2.pas

unit Unit2;

interface

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;

type
  TForm2 = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    PopupBox1: TPopupBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { private éž }
  public
    { public éž }
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

uses Unit1;

procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Sender <> Form1 then
  begin
    CanClose:=false;
    Hide;
  end;
end;

procedure TForm2.FormCreate(Sender: TObject);
var
  s: TIniFile;
begin
  s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
  try
    PopupBox1.ItemIndex := s.ReadInteger('Form2', 'MAX_DEPTH', 4);
    Form1.TrackBar1.Value := s.ReadFloat('Form1', 'Volume', 0.5);
  finally
    s.Free;
  end;
end;

procedure TForm2.FormDestroy(Sender: TObject);
var
  s: TIniFile;
begin
  s := TIniFile.Create(TPath.GetHomePath+TPath.DirectorySeparatorChar+'Setting.ini');
  try
    s.WriteInteger('Form2', 'MAX_DEPTH', PopupBox1.ItemIndex);
    s.WriteFloat('Form1', 'Volume', Form1.TrackBar1.Value);
  finally
    s.Free;
  end;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  Hide;
end;

end.