Changeset 92 for trunk/Forms/UFormTargetOptions.pas

Timestamp:

Jul 20, 2018, 9:48:47 AM (6 years ago)

Author:

chronos

Message:

• Modified: Create FormTargetOptions in runtime.

File:

• trunk/Forms/UFormTargetOptions.pas (modified) (3 diffs)

trunk/Forms/UFormTargetOptions.pas

@@ -25 +25 @@
     procedure ButtonCompilerClick(Sender: TObject);
     procedure ButtonExecuteClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -35 +38 @@
   FormTargetOptions: TFormTargetOptions;
 
+
 implementation
 
 {$R *.lfm}
+
+uses
+  UCore;
 
 { TFormTargetOptions }
@@ -51 +58 @@
   OpenDialog1.FileName := Edit2.Text;
   if OpenDialog1.Execute then Edit2.Text := OpenDialog1.FileName;
+end;
+
+procedure TFormTargetOptions.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormTargetOptions.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+end;
+
+procedure TFormTargetOptions.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm1.Load(Self);
 end;