source: trunk/Forms/UFormSetting.pas

unit UFormSetting;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls;

type

  { TFormSetting }

  TFormSetting = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormSetting: TFormSetting;

implementation

{$R *.lfm}

uses
  UCore;

{ TFormSetting }

procedure TFormSetting.FormClose(Sender: TObject; var CloseAction: TCloseAction
  );
begin
end;

procedure TFormSetting.FormCreate(Sender: TObject);
begin
  Core.PersistentForm.Load(Self);
end;

procedure TFormSetting.FormDestroy(Sender: TObject);
begin
  Core.PersistentForm.Save(Self);
end;

procedure TFormSetting.FormShow(Sender: TObject);
begin
end;

end.