Changeset 13 for trunk/Forms/UFormMain.lfm

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 340
-  Height = 497
-  Top = 152
-  Width = 667
+  Left = 416
+  Height = 568
+  Top = 329
+  Width = 939
   Caption = 'VCSCommander'
-  ClientHeight = 468
-  ClientWidth = 667
+  ClientHeight = 539
+  ClientWidth = 939
   Menu = MainMenu1
   OnActivate = FormActivate
@@ -17 +17 @@
     Height = 26
     Top = 0
-    Width = 667
+    Width = 939
     Caption = 'ToolBarMain'
+    Images = Core.ImageList1
     ParentShowHint = False
     ShowHint = True
     TabOrder = 0
+    object ToolButton1: TToolButton
+      Left = 1
+      Top = 2
+      Action = Core.AProjectCheckout
+    end
+    object ToolButton2: TToolButton
+      Left = 24
+      Top = 2
+      Action = Core.AProjectOpen
+    end
+    object ToolButton3: TToolButton
+      Left = 47
+      Top = 2
+      Action = Core.AProjectClose
+    end
   end
   object StatusBar1: TStatusBar
     Left = 0
     Height = 29
-    Top = 439
-    Width = 667
+    Top = 510
+    Width = 939
     Panels = <>
   end
   object MainMenu1: TMainMenu
+    Images = Core.ImageList1
     left = 232
     top = 88
     object MenuItemFile: TMenuItem
-      Caption = 'File'
+      Caption = 'Working copy'
       object MenuItem17: TMenuItem
         Action = Core.AProjectCheckout
@@ -52 +69 @@
       object MenuItemQuit: TMenuItem
         Action = Core.AQuit
+      end
+    end
+    object MenuItem19: TMenuItem
+      Caption = 'Project group'
+      object MenuItem20: TMenuItem
+        Action = Core.AProjectGroupNew
+      end
+      object MenuItem21: TMenuItem
+        Action = Core.AProjectGroupOpen
+      end
+      object MenuItemRecentProjectGroup: TMenuItem
+        Caption = 'Open recent'
+      end
+      object MenuItem23: TMenuItem
+        Action = Core.AProjectGroupSave
+      end
+      object MenuItem25: TMenuItem
+        Action = Core.AProjectGroupSaveAs
+      end
+      object MenuItem24: TMenuItem
+        Action = Core.AProjectGroupClose
       end
     end
@@ -75 +113 @@
       end
     end
+    object MenuItem15: TMenuItem
+      Caption = 'Tools'
+      object MenuItem18: TMenuItem
+        Action = Core.AViewTest
+      end
+    end
     object MenuItem1: TMenuItem
       Caption = 'General'