Changeset 191 for branches/generator/Forms

Timestamp:

May 17, 2019, 12:02:45 AM (6 years ago)

Author:

chronos

Message:

• Added: Interface language selection in Settings dialog.

Location:

branches/generator/Forms

Files:

• . (modified) (1 prop)
• UFormMain.lfm (modified) (6 diffs)
• UFormMain.lrj (modified) (2 diffs)
• UFormMain.pas (modified) (5 diffs)
• UFormSettings.lfm (added)
• UFormSettings.lrj (added)
• UFormSettings.pas (added)

branches/generator/Forms

@@ -1 @@
-*.lrj
 *.lrt

@@ -1 @@
-*.lrj
 *.lrt

branches/generator/Forms/UFormMain.lfm

@@ -32 +32 @@
       Height = 33
       Top = 5
-      Width = 239
+      Width = 237
       Align = alNone
       AutoSize = True
@@ -46 +46 @@
       Transparent = True
       object ToolButton2: TToolButton
-        Left = 169
+        Left = 167
         Top = 0
         Action = ABuildCompiler
@@ -79 +79 @@
       end
       object ToolButton7: TToolButton
-        Left = 204
+        Left = 202
         Top = 0
         Action = ALookupTables
@@ -184 +184 @@
       end
     end
+    object MenuItem14: TMenuItem
+      Caption = 'Tools'
+      object MenuItem15: TMenuItem
+        Action = ASettings
+      end
+    end
   end
   object ActionList1: TActionList
@@ -232 +238 @@
     end
     object AGrammerSettings: TAction
-      Caption = 'Settings'
+      Caption = 'Grammer settings'
       ImageIndex = 3
       OnExecute = AGrammerSettingsExecute
@@ -250 +256 @@
       ImageIndex = 8
       OnExecute = ALookupTablesExecute
+    end
+    object ASettings: TAction
+      Caption = 'Settings'
+      OnExecute = ASettingsExecute
     end
   end

branches/generator/Forms/UFormMain.lrj

@@ -8 +8 @@
 {"hash":243811202,"name":"tformmain.menuitem8.caption","sourcebytes":[71,114,97,109,109,101,114],"value":"Grammer"},
 {"hash":380871,"name":"tformmain.menuitem1.caption","sourcebytes":[86,105,101,119],"value":"View"},
+{"hash":5989939,"name":"tformmain.menuitem14.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"},
 {"hash":5882563,"name":"tformmain.arules.caption","sourcebytes":[82,117,108,101,115],"value":"Rules"},
 {"hash":5882563,"name":"tformmain.arules.hint","sourcebytes":[82,117,108,101,115],"value":"Rules"},
@@ -20 +21 @@
 {"hash":21703,"name":"tformmain.aprojectnew.caption","sourcebytes":[78,101,119],"value":"New"},
 {"hash":4863637,"name":"tformmain.aprojectclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
-{"hash":213582195,"name":"tformmain.agrammersettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"},
+{"hash":142765043,"name":"tformmain.agrammersettings.caption","sourcebytes":[71,114,97,109,109,101,114,32,115,101,116,116,105,110,103,115],"value":"Grammer settings"},
 {"hash":172269778,"name":"tformmain.abuildcompiler.caption","sourcebytes":[66,117,105,108,100,32,99,111,109,112,105,108,101,114],"value":"Build compiler"},
 {"hash":191244498,"name":"tformmain.atoolbarvisible.caption","sourcebytes":[84,111,111,108,98,97,114],"value":"Toolbar"},
-{"hash":79806131,"name":"tformmain.alookuptables.caption","sourcebytes":[76,111,111,107,117,112,32,116,97,98,108,101,115],"value":"Lookup tables"}
+{"hash":79806131,"name":"tformmain.alookuptables.caption","sourcebytes":[76,111,111,107,117,112,32,116,97,98,108,101,115],"value":"Lookup tables"},
+{"hash":213582195,"name":"tformmain.asettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"}
 ]}

branches/generator/Forms/UFormMain.pas

@@ -16 +16 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    ASettings: TAction;
     ALookupTables: TAction;
     AToolbarVisible: TAction;
@@ -38 +39 @@
     MenuItem12: TMenuItem;
     MenuItem13: TMenuItem;
+    MenuItem14: TMenuItem;
+    MenuItem15: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -65 +68 @@
     procedure ABuildCompilerExecute(Sender: TObject);
     procedure ALookupTablesExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AToolbarVisibleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -100 +104 @@
 
 uses
-  UFormRules, UCore, UFormGrammer, UBuilder, UFormLookupTables;
+  UFormRules, UCore, UFormGrammer, UBuilder, UFormLookupTables, UFormSettings;
 
 resourcestring
@@ -322 +326 @@
 end;
 
+procedure TFormMain.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings := TFormSettings.Create(nil);
+  FormSettings.Load;
+  if FormSettings.ShowModal = mrOk then begin
+    FormSettings.Save;
+  end;
+  FreeAndNil(FormSettings);
+end;
+
 procedure TFormMain.AToolbarVisibleExecute(Sender: TObject);
 begin

@@ -1 @@
-*.lrj
 *.lrt