Changeset 20

Timestamp:

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

Author:

chronos

Message:

• Added: Create repository action.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (5 diffs)
• Forms/UFormMain.pas (modified) (3 diffs)
• Forms/UFormProjectGroup.lfm (modified) (1 diff)
• Packages/Common/Languages/UJobProgressView.cs.po (modified) (2 diffs)
• Packages/Common/Languages/UScaleDPI.cs.po (modified) (1 diff)
• Packages/Common/Languages/UThreading.cs.po (modified) (1 diff)
• UCore.lfm (modified) (3 diffs)
• UCore.pas (modified) (5 diffs)
• VCSCommander.lpi (modified) (2 diffs)
• VCSCommander.lpr (modified) (1 diff)
• VCSCommander.res (modified) ( previous)

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'

trunk/Packages/Common/Languages/UJobProgressView.cs.po

@@ -13 +13 @@
 
 #: ujobprogressview.sestimatedtime
+#, object-pascal-format
 msgid "Estimated time: %s"
 msgstr "OdhadovanÜ čas: %s"
@@ -37 +38 @@
 
 #: ujobprogressview.stotalestimatedtime
+#, object-pascal-format
 msgid "Total estimated time: %s"
 msgstr "CelkovÜ odhadovanÜ čas: %s"
+

trunk/Packages/Common/Languages/UScaleDPI.cs.po

@@ -13 +13 @@
 
 #: uscaledpi.swrongdpi
+#, object-pascal-format
 msgid "Wrong DPI [%d,%d]"
 msgstr "Chybné DPI [%d,%d]"

trunk/Packages/Common/Languages/UThreading.cs.po

@@ -11 +11 @@
 
 #: uthreading.scurrentthreadnotfound
+#, object-pascal-format
 msgid "Current thread ID %d not found in virtual thread list."
 msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken."

trunk/UCore.lfm

@@ -3 +3 @@
   OnDestroy = DataModuleDestroy
   OldCreateOrder = False
-  Height = 544
-  HorizontalOffset = 869
-  VerticalOffset = 383
-  Width = 866
-  PPI = 120
+  Height = 653
+  HorizontalOffset = 1060
+  VerticalOffset = 515
+  Width = 1039
+  PPI = 144
   object ActionList1: TActionList
     Images = ImageList1
-    left = 360
-    top = 220
+    Left = 432
+    Top = 264
     object AQuit: TAction
       Caption = 'Quit'
@@ -93 +93 @@
       OnExecute = AProjectGroupSaveAsExecute
     end
+    object ARepositoryCreate: TAction
+      Caption = 'Create'
+      OnExecute = ARepositoryCreateExecute
+    end
   end
   object ImageList1: TImageList
     Height = 32
     Width = 32
-    left = 360
-    top = 300
+    Left = 432
+    Top = 360
   end
   object OpenDialog1: TOpenDialog
     Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
-    left = 360
-    top = 120
+    Left = 432
+    Top = 144
   end
   object XMLConfig1: TXMLConfig
@@ -109 +113 @@
     RootName = 'CONFIG'
     ReadOnly = False
-    left = 120
-    top = 120
+    Left = 144
+    Top = 144
   end
   object LastOpenedListProject: TLastOpenedList
     MaxCount = 10
     OnChange = LastOpenedListProjectChange
-    left = 120
-    top = 210
+    Left = 144
+    Top = 252
   end
   object LastOpenedListRepoURL: TLastOpenedList
     MaxCount = 10
-    left = 120
-    top = 300
+    Left = 144
+    Top = 360
   end
   object LastOpenedListNewDir: TLastOpenedList
     MaxCount = 10
-    left = 581
-    top = 378
+    Left = 697
+    Top = 454
   end
   object LastOpenedListProjectGroup: TLastOpenedList
     MaxCount = 10
     OnChange = LastOpenedListProjectGroupChange
-    left = 580
-    top = 280
+    Left = 696
+    Top = 336
   end
   object SaveDialog1: TSaveDialog
     DefaultExt = '.vcgrp'
     Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
-    left = 360
-    top = 30
+    Left = 432
+    Top = 36
   end
 end

trunk/UCore.pas

@@ -19 +19 @@
     ACommandCommit: TAction;
     ACommandStatus: TAction;
+    ARepositoryCreate: TAction;
     AProjectGroupSaveAs: TAction;
     AProjectGroupSave: TAction;
@@ -41 +42 @@
     SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
-    procedure ACommandCheckoutExecute(Sender: TObject);
     procedure ACommandCleanupExecute(Sender: TObject);
     procedure ACommandCommitExecute(Sender: TObject);
@@ -54 +54 @@
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AQuitExecute(Sender: TObject);
+    procedure ARepositoryCreateExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AViewTestExecute(Sender: TObject);
@@ -97 +98 @@
 end;
 
+procedure TCore.ARepositoryCreateExecute(Sender: TObject);
+var
+  TempProject: TProject;
+begin
+  {
+  if LastOpenedListRepoURL.Items.Count > 0 then
+    FormRepoCreate.EditURL.Text := LastOpenedListRepoURL.Items[0];
+  if LastOpenedListNewDir.Items.Count > 0 then
+    FormRepoCreate.EditDir.Text := LastOpenedListNewDir.Items[0];
+  if FormCheckout.ShowModal = mrOk then begin
+    LastOpenedListRepoURL.AddItem(FormCheckout.EditURL.Text);
+    LastOpenedListNewDir.AddItem(FormCheckout.EditDir.Text);
+    TempProject := TProject.Create;
+    try
+      TempProject.Backend := TBackend(FormRepoCreate.ComboBox1.Items.Objects[FormRepoCreate.ComboBox1.ItemIndex]);
+      TempProject.Directory := FormRepoCreate.EditDir.Text;
+      TempProject.RepositoryURL := FormRepoCreate.EditURL.Text;
+      TempProject.Repository.Init;
+    finally
+      TempProject.Free;
+    end;
+  end;
+  }
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
@@ -321 +347 @@
 end;
 
-procedure TCore.ACommandCheckoutExecute(Sender: TObject);
-begin
-
-end;
-
 procedure TCore.ACommandCommitExecute(Sender: TObject);
 begin

trunk/VCSCommander.lpi

@@ -2 +2 @@
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="12"/>
     <General>
+      <Flags>
+        <CompatibilityMode Value="True"/>
+      </Flags>
       <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
       <Title Value="VCSCommander"/>
       <ResourceType Value="res"/>
@@ -62 +64 @@
     <PublishOptions>
       <Version Value="2"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="4">

trunk/VCSCommander.lpr

@@ -4 +4 @@
 
 uses
-  {$IFDEF UNIX}{$IFDEF UseCThreads}
-  cthreads,
-  {$ENDIF}{$ENDIF}
+  {$IFDEF UNIX}
+  cthreads, clocale,
+  {$ENDIF}
   Interfaces, // this includes the LCL widgetset
   Forms, UFormMain, UCore, Common, TemplateGenerics, UFormBrowse, UVCS,