Changeset 4 for trunk/Forms/UFormMain.lfm

Timestamp:

Sep 1, 2014, 7:10:03 PM (10 years ago)

Author:

chronos

Message:

• Added: Concept of project and open project as directory.

File:

• trunk/Forms/UFormMain.lfm (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 667
   Caption = 'VCSCommander'
-  ClientHeight = 472
+  ClientHeight = 471
   ClientWidth = 667
   Menu = MainMenu1
-  LCLVersion = '1.1'
+  LCLVersion = '1.3'
   object ToolBarMain: TToolBar
     Left = 0
@@ -15 +15 @@
     Width = 667
     Caption = 'ToolBarMain'
-    Images = ImageList1
     ParentShowHint = False
     ShowHint = True
@@ -22 +21 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 21
-    Top = 451
+    Height = 26
+    Top = 445
     Width = 667
     Panels = <>
   end
   object MainMenu1: TMainMenu
-    Images = ImageList1
     left = 232
     top = 88
     object MenuItemFile: TMenuItem
       Caption = 'File'
+      object MenuItem8: TMenuItem
+        Action = Core.AProjectOpen
+      end
+      object MenuItem10: TMenuItem
+        Action = Core.AProjectClose
+      end
+      object MenuItem9: TMenuItem
+        Caption = '-'
+      end
       object MenuItemQuit: TMenuItem
-        Action = AQuit
+        Action = Core.AQuit
       end
     end
@@ -40 +47 @@
       Caption = 'View'
       object MenuItem7: TMenuItem
-        Action = AViewFavorites
+        Caption = 'Favorites'
       end
     end
@@ -46 +53 @@
       Caption = 'General'
       object MenuItem2: TMenuItem
-        Action = ASettings
+        Action = Core.ASettings
       end
     end
     object MenuItem3: TMenuItem
-      Caption = 'Help'
+      Action = Core.AHelp
       object MenuItem5: TMenuItem
-        Action = AHelp
+        Caption = 'Help'
       end
       object MenuItem4: TMenuItem
-        Action = AAbout
+        Action = Core.AAbout
       end
     end
   end
-  object ActionList1: TActionList
-    Images = ImageList1
-    left = 232
-    top = 144
-    object AQuit: TAction
-      Caption = 'Quit'
-      Hint = 'Quit'
-      OnExecute = AQuitExecute
-    end
-    object ASettings: TAction
-      Caption = 'Settings'
-    end
-    object AAbout: TAction
-      Caption = 'About'
-    end
-    object AHelp: TAction
-      Caption = 'Help'
-    end
-    object AViewFavorites: TAction
-      Caption = 'Favorites'
-    end
-  end
-  object ImageList1: TImageList
-    left = 232
-    top = 200
-  end
 end