Changeset 20 for trunk/Forms

Timestamp:

Apr 3, 2025, 10:37:14 PM (2 weeks ago)

Author:

chronos

Message:

• Added: Create repository action.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (5 diffs)
• UFormMain.pas (modified) (3 diffs)
• UFormProjectGroup.lfm (modified) (1 diff)

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 939
   Caption = 'VCSCommander'
-  ClientHeight = 538
+  ClientHeight = 539
   ClientWidth = 939
   Menu = MainMenu1
@@ -12 +12 @@
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.4.0.4'
+  LCLVersion = '1.5'
   object ToolBarMain: TToolBar
     Left = 0
@@ -41 +41 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 28
+    Height = 29
     Top = 510
     Width = 939
@@ -52 +52 @@
     object MenuItemFile: TMenuItem
       Caption = 'Working copy'
+      OnClick = MenuItemFileClick
       object MenuItem17: TMenuItem
         Action = Core.AProjectCheckout
@@ -69 +70 @@
       object MenuItemQuit: TMenuItem
         Action = Core.AQuit
+      end
+    end
+    object MenuItem22: TMenuItem
+      Caption = 'Repository'
+      object MenuItem26: TMenuItem
+        Action = Core.ARepositoryCreate
       end
     end

trunk/Forms/UFormMain.pas

@@ -28 +28 @@
     MenuItem20: TMenuItem;
     MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
+    MenuItem26: TMenuItem;
     MenuItemRecentProjectGroup: TMenuItem;
     MenuItem23: TMenuItem;
@@ -51 +53 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
+    procedure MenuItemFileClick(Sender: TObject);
   private
     Initialized: Boolean;
@@ -75 +78 @@
 begin
   DockInit;
+end;
+
+procedure TFormMain.MenuItemFileClick(Sender: TObject);
+begin
+
 end;
 

trunk/Forms/UFormProjectGroup.lfm

@@ -1 +1 @@
 object FormProjectGroup: TFormProjectGroup
-  Left = 608
+  Left = 1062
   Height = 533
-  Top = 453
+  Top = 454
   Width = 610
   Caption = 'Project group'