Changeset 127 for branches/generator/Forms/UFormMain.lfm

Timestamp:

Nov 30, 2017, 5:19:57 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Correctly set filename in open/save dialog.
• Modified: Improved generation of compiler code.

File:

• branches/generator/Forms/UFormMain.lfm (modified) (6 diffs)

branches/generator/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 1050
   Caption = 'Language generator'
-  ClientHeight = 644
+  ClientHeight = 653
   ClientWidth = 1050
   Menu = MainMenu1
@@ -11 +11 @@
   OnCloseQuery = FormCloseQuery
   OnShow = FormShow
-  LCLVersion = '1.8.0.4'
+  LCLVersion = '1.6.4.0'
   object MemoBNF: TMemo
     Left = 0
-    Height = 609
+    Height = 618
     Top = 35
     Width = 1050
@@ -39 +39 @@
       Height = 22
       Top = 5
-      Width = 47
+      Width = 124
       Align = alNone
       AutoSize = True
       BorderSpacing.Left = 22
       BorderSpacing.Top = 3
-      Caption = 'ToolBar1'
       EdgeInner = esNone
       EdgeOuter = esNone
@@ -53 +52 @@
       Transparent = True
       object ToolButton1: TToolButton
-        Left = 1
+        Left = 78
         Top = 0
         Action = ARules
       end
       object ToolButton2: TToolButton
+        Left = 101
+        Top = 0
+        Action = ABuildCompiler
+      end
+      object ToolButton3: TToolButton
+        Left = 1
+        Top = 0
+        Action = AProjectNew
+      end
+      object ToolButton4: TToolButton
         Left = 24
         Top = 0
-        Action = ABuildCompiler
+        Action = AProjectOpen
+      end
+      object ToolButton5: TToolButton
+        Left = 47
+        Top = 0
+        Action = AProjectSave
+      end
+      object ToolButton6: TToolButton
+        Left = 70
+        Height = 22
+        Top = 0
+        Width = 8
+        Caption = 'ToolButton6'
+        Style = tbsSeparator
       end
     end
@@ -66 +88 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageList1
-    left = 312
+    left = 304
     top = 229
     object MenuItem2: TMenuItem
@@ -161 +183 @@
   end
   object OpenDialog1: TOpenDialog
+    DefaultExt = '.grm'
+    Filter = 'Grammer (.grm)|*.grm|All files|*.*'
     left = 748
     top = 188
   end
   object SaveDialog1: TSaveDialog
+    DefaultExt = '.grm'
+    Filter = 'Grammer (.grm)|*.grm|All files|*.*'
     left = 587
     top = 414