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

Timestamp:

Dec 27, 2017, 6:05:11 PM (6 years ago)

Author:

chronos

Message:

• Added: Lookup tables can be defined and their usage set from grammer rules.

File:

• branches/generator/Forms/UFormMain.pas (modified) (5 diffs)

branches/generator/Forms/UFormMain.pas

@@ -16 +16 @@
   TFormMain = class(TForm)
     ABuildCompiler: TAction;
+    ALookupTables: TAction;
     AToolbarVisible: TAction;
     AProjectOpenRecent: TAction;
@@ -38 +39 @@
     MenuItem13: TMenuItem;
     MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
     MenuItemRecent: TMenuItem;
     MenuItemToolbar: TMenuItem;
@@ -60 +62 @@
     ToolButton5: TToolButton;
     ToolButton6: TToolButton;
+    ToolButton7: TToolButton;
     procedure ABuildCompilerExecute(Sender: TObject);
+    procedure ALookupTablesExecute(Sender: TObject);
     procedure AToolbarVisibleExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -96 +100 @@
 
 uses
-  UFormRules, UCore, UFormGrammer, UBuilder;
+  UFormRules, UCore, UFormGrammer, UBuilder, UFormLookupTables;
 
 resourcestring
@@ -300 +304 @@
 end;
 
+procedure TFormMain.ALookupTablesExecute(Sender: TObject);
+var
+  FormLookupTables: TFormLookupTables;
+begin
+  FormLookupTables := TFormLookupTables.Create(nil);
+  try
+    FormLookupTables.LookupTables := Core.Grammer.LookupTables;
+    if FormLookupTables.ShowModal = mrOk then begin
+
+    end;
+  finally
+    FreeAndNil(FormLookupTables);
+  end;
+end;
+
 procedure TFormMain.AToolbarVisibleExecute(Sender: TObject);
 begin