Changeset 191 for branches/generator/Forms/UFormMain.pas

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.pas (modified) (5 diffs)

branches/generator/Forms

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

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

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