Changeset 34 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (3 diffs)
• UFormMain.lrt (modified) (3 diffs)
• UFormMain.pas (modified) (8 diffs)
• UFormSettings.lfm (added)
• UFormSettings.lrt (added)
• UFormSettings.pas (added)

trunk/Forms/UFormMain.lfm

@@ -19 +19 @@
     Top = 0
     Width = 1703
-    Caption = 'ToolBar1'
     Images = Core.ImageList1
     TabOrder = 0
@@ -482 +481 @@
       OnExecute = AShowAboutExecute
     end
+    object AShowSettings: TAction
+      Caption = 'Settings'
+      OnExecute = AShowSettingsExecute
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -549 +552 @@
       end
     end
+    object MenuItem22: TMenuItem
+      Caption = 'Tools'
+      object MenuItem23: TMenuItem
+        Action = AShowSettings
+      end
+    end
     object MenuItem20: TMenuItem
       Caption = 'Help'

trunk/Forms/UFormMain.lrt

@@ -1 +1 @@
 TFORMMAIN.CAPTION=CoolDisk
-TFORMMAIN.TOOLBAR1.CAPTION=ToolBar1
 TFORMMAIN.LABEL1.CAPTION=Sector size:
 TFORMMAIN.LABELSECTORSIZE.CAPTION=  
@@ -43 +42 @@
 TFORMMAIN.AOPERATIONADD.CAPTION=Add
 TFORMMAIN.ASHOWABOUT.CAPTION=About
+TFORMMAIN.ASHOWSETTINGS.CAPTION=Settings
 TFORMMAIN.MENUITEM1.CAPTION=File
 TFORMMAIN.MENUITEMOPENRECENT.CAPTION=Open recent
@@ -49 +49 @@
 TFORMMAIN.MENUITEM14.CAPTION=-
 TFORMMAIN.MENUITEM16.CAPTION=View
+TFORMMAIN.MENUITEM22.CAPTION=Tools
 TFORMMAIN.MENUITEM20.CAPTION=Help

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;