Changeset 34 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 10, 2016, 10:00:19 PM (7 years ago)

Author:

chronos

Message:

• Added: Interface localization support.
• Added: Global settings dialog.

File:

• trunk/Forms/UFormMain.pas (modified) (8 diffs)

trunk/Forms/UFormMain.pas

@@ -15 +15 @@
 
   TFormMain = class(TForm)
+    AShowSettings: TAction;
     AShowAbout: TAction;
     AOperationAdd: TAction;
@@ -80 +81 @@
     MenuItem20: TMenuItem;
     MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
     MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
@@ -119 +122 @@
     procedure AScanStopExecute(Sender: TObject);
     procedure AShowAboutExecute(Sender: TObject);
+    procedure AShowSettingsExecute(Sender: TObject);
     procedure AViewToolbarExecute(Sender: TObject);
     procedure ComboBoxDriveChange(Sender: TObject);
@@ -162 +166 @@
 
 uses
-  UCore, UFormProject, UFormOperation, UFormAbout;
+  UCore, UFormProject, UFormOperation, UFormAbout, UFormSettings;
 
 resourcestring
@@ -180 +184 @@
   Detect;
   LoadConfig;
+  Core.LoadConfig;
   Core.PersistentForm1.Load(Self);
   if (LastOpenedList1.Items.Count > 0) and FileExists(LastOpenedList1.Items[0]) then
@@ -234 +239 @@
 
 procedure TFormMain.AShowAboutExecute(Sender: TObject);
-var
-  FormAbout: TFormAbout;
 begin
   FormAbout := TFormAbout.Create(nil);
@@ -243 +246 @@
   finally
     FreeAndNil(FormAbout);
+  end;
+end;
+
+procedure TFormMain.AShowSettingsExecute(Sender: TObject);
+begin
+  FormSettings := TFormSettings.Create(nil);
+  try
+    FormSettings.Load;
+    if FormSettings.ShowModal = mrOK then
+      FormSettings.Save;
+  finally
+    FreeAndNil(FormSettings);
   end;
 end;
@@ -417 +432 @@
   AFileClose.Execute;
   SaveConfig;
+  Core.SaveConfig;
   Core.PersistentForm1.Save(Self);
 end;