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

Timestamp:

Nov 30, 2017, 12:02:32 AM (7 years ago)

Author:

chronos

Message:

• Added: New project Close action.
• Added: Track project Modified flag and offer project save if modified project is closed.
• Added: Remember last opened project file.

File:

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

branches/generator/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 1050
   Caption = 'Language generator'
-  ClientHeight = 653
+  ClientHeight = 644
   ClientWidth = 1050
   Menu = MainMenu1
   OnClose = FormClose
+  OnCloseQuery = FormCloseQuery
   OnShow = FormShow
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '1.8.0.4'
   object MemoBNF: TMemo
     Left = 0
-    Height = 618
+    Height = 609
     Top = 35
     Width = 1050
     Align = alClient
+    ReadOnly = True
     ScrollBars = ssAutoBoth
     TabOrder = 0
@@ -69 +71 @@
       Caption = 'File'
       object MenuItem11: TMenuItem
-        Action = ANew
+        Action = AProjectNew
       end
       object MenuItem4: TMenuItem
-        Action = AOpen
+        Action = AProjectOpen
       end
       object MenuItem10: TMenuItem
-        Action = ASave
+        Action = AProjectSave
       end
       object MenuItem5: TMenuItem
-        Action = ASaveAs
+        Action = AProjectSaveAs
+      end
+      object MenuItem13: TMenuItem
+        Action = AProjectClose
       end
       object MenuItem12: TMenuItem
@@ -119 +124 @@
       OnExecute = AExitExecute
     end
-    object AOpen: TAction
+    object AProjectOpen: TAction
       Caption = 'Open...'
       Hint = 'Open...'
       ImageIndex = 4
-      OnExecute = AOpenExecute
+      OnExecute = AProjectOpenExecute
     end
-    object ASaveAs: TAction
+    object AProjectSaveAs: TAction
       Caption = 'Save as...'
       Hint = 'Save as...'
       ImageIndex = 5
-      OnExecute = ASaveAsExecute
+      OnExecute = AProjectSaveAsExecute
     end
     object ABuildCompiler: TAction
@@ -136 +141 @@
       OnExecute = ABuildCompilerExecute
     end
-    object ASave: TAction
+    object AProjectSave: TAction
       Caption = 'Save'
       ImageIndex = 5
-      OnExecute = ASaveExecute
+      OnExecute = AProjectSaveExecute
     end
-    object ANew: TAction
+    object AProjectNew: TAction
       Caption = 'New'
       ImageIndex = 10
-      OnExecute = ANewExecute
+      OnExecute = AProjectNewExecute
     end
     object AGrammerSettings: TAction
       Caption = 'Settings'
       OnExecute = AGrammerSettingsExecute
+    end
+    object AProjectClose: TAction
+      Caption = 'Close'
+      OnExecute = AProjectCloseExecute
     end
   end