Changeset 20
- Timestamp:
- Apr 3, 2025, 10:37:14 PM (23 hours ago)
- Location:
- trunk
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.lfm
r14 r20 5 5 Width = 939 6 6 Caption = 'VCSCommander' 7 ClientHeight = 53 87 ClientHeight = 539 8 8 ClientWidth = 939 9 9 Menu = MainMenu1 … … 12 12 OnShow = FormShow 13 13 Position = poScreenCenter 14 LCLVersion = '1. 4.0.4'14 LCLVersion = '1.5' 15 15 object ToolBarMain: TToolBar 16 16 Left = 0 … … 41 41 object StatusBar1: TStatusBar 42 42 Left = 0 43 Height = 2 843 Height = 29 44 44 Top = 510 45 45 Width = 939 … … 52 52 object MenuItemFile: TMenuItem 53 53 Caption = 'Working copy' 54 OnClick = MenuItemFileClick 54 55 object MenuItem17: TMenuItem 55 56 Action = Core.AProjectCheckout … … 69 70 object MenuItemQuit: TMenuItem 70 71 Action = Core.AQuit 72 end 73 end 74 object MenuItem22: TMenuItem 75 Caption = 'Repository' 76 object MenuItem26: TMenuItem 77 Action = Core.ARepositoryCreate 71 78 end 72 79 end -
trunk/Forms/UFormMain.pas
r13 r20 28 28 MenuItem20: TMenuItem; 29 29 MenuItem21: TMenuItem; 30 MenuItem22: TMenuItem; 31 MenuItem26: TMenuItem; 30 32 MenuItemRecentProjectGroup: TMenuItem; 31 33 MenuItem23: TMenuItem; … … 51 53 procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); 52 54 procedure FormShow(Sender: TObject); 55 procedure MenuItemFileClick(Sender: TObject); 53 56 private 54 57 Initialized: Boolean; … … 75 78 begin 76 79 DockInit; 80 end; 81 82 procedure TFormMain.MenuItemFileClick(Sender: TObject); 83 begin 84 77 85 end; 78 86 -
trunk/Forms/UFormProjectGroup.lfm
r13 r20 1 1 object FormProjectGroup: TFormProjectGroup 2 Left = 6082 Left = 1062 3 3 Height = 533 4 Top = 45 34 Top = 454 5 5 Width = 610 6 6 Caption = 'Project group' -
trunk/Packages/Common/Languages/UJobProgressView.cs.po
r19 r20 13 13 14 14 #: ujobprogressview.sestimatedtime 15 #, object-pascal-format 15 16 msgid "Estimated time: %s" 16 17 msgstr "OdhadovanÃœ Äas: %s" … … 37 38 38 39 #: ujobprogressview.stotalestimatedtime 40 #, object-pascal-format 39 41 msgid "Total estimated time: %s" 40 42 msgstr "CelkovÃœ odhadovanÃœ Äas: %s" 43 -
trunk/Packages/Common/Languages/UScaleDPI.cs.po
r19 r20 13 13 14 14 #: uscaledpi.swrongdpi 15 #, object-pascal-format 15 16 msgid "Wrong DPI [%d,%d]" 16 17 msgstr "Chybné DPI [%d,%d]" -
trunk/Packages/Common/Languages/UThreading.cs.po
r6 r20 11 11 12 12 #: uthreading.scurrentthreadnotfound 13 #, object-pascal-format 13 14 msgid "Current thread ID %d not found in virtual thread list." 14 15 msgstr "Aktuálnà vlákno ID %d nenalezeno v seznamu virtuálnÃch vláken." -
trunk/UCore.lfm
r19 r20 3 3 OnDestroy = DataModuleDestroy 4 4 OldCreateOrder = False 5 Height = 5446 HorizontalOffset = 8697 VerticalOffset = 3838 Width = 8669 PPI = 1 205 Height = 653 6 HorizontalOffset = 1060 7 VerticalOffset = 515 8 Width = 1039 9 PPI = 144 10 10 object ActionList1: TActionList 11 11 Images = ImageList1 12 left = 36013 top = 22012 Left = 432 13 Top = 264 14 14 object AQuit: TAction 15 15 Caption = 'Quit' … … 93 93 OnExecute = AProjectGroupSaveAsExecute 94 94 end 95 object ARepositoryCreate: TAction 96 Caption = 'Create' 97 OnExecute = ARepositoryCreateExecute 98 end 95 99 end 96 100 object ImageList1: TImageList 97 101 Height = 32 98 102 Width = 32 99 left = 360100 top = 300103 Left = 432 104 Top = 360 101 105 end 102 106 object OpenDialog1: TOpenDialog 103 107 Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*' 104 left = 360105 top = 120108 Left = 432 109 Top = 144 106 110 end 107 111 object XMLConfig1: TXMLConfig … … 109 113 RootName = 'CONFIG' 110 114 ReadOnly = False 111 left = 120112 top = 120115 Left = 144 116 Top = 144 113 117 end 114 118 object LastOpenedListProject: TLastOpenedList 115 119 MaxCount = 10 116 120 OnChange = LastOpenedListProjectChange 117 left = 120118 top = 210121 Left = 144 122 Top = 252 119 123 end 120 124 object LastOpenedListRepoURL: TLastOpenedList 121 125 MaxCount = 10 122 left = 120123 top = 300126 Left = 144 127 Top = 360 124 128 end 125 129 object LastOpenedListNewDir: TLastOpenedList 126 130 MaxCount = 10 127 left = 581128 top = 378131 Left = 697 132 Top = 454 129 133 end 130 134 object LastOpenedListProjectGroup: TLastOpenedList 131 135 MaxCount = 10 132 136 OnChange = LastOpenedListProjectGroupChange 133 left = 580134 top = 280137 Left = 696 138 Top = 336 135 139 end 136 140 object SaveDialog1: TSaveDialog 137 141 DefaultExt = '.vcgrp' 138 142 Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*' 139 left = 360140 top = 30143 Left = 432 144 Top = 36 141 145 end 142 146 end -
trunk/UCore.pas
r19 r20 19 19 ACommandCommit: TAction; 20 20 ACommandStatus: TAction; 21 ARepositoryCreate: TAction; 21 22 AProjectGroupSaveAs: TAction; 22 23 AProjectGroupSave: TAction; … … 41 42 SaveDialog1: TSaveDialog; 42 43 XMLConfig1: TXMLConfig; 43 procedure ACommandCheckoutExecute(Sender: TObject);44 44 procedure ACommandCleanupExecute(Sender: TObject); 45 45 procedure ACommandCommitExecute(Sender: TObject); … … 54 54 procedure AProjectOpenExecute(Sender: TObject); 55 55 procedure AQuitExecute(Sender: TObject); 56 procedure ARepositoryCreateExecute(Sender: TObject); 56 57 procedure ASettingsExecute(Sender: TObject); 57 58 procedure AViewTestExecute(Sender: TObject); … … 97 98 end; 98 99 100 procedure TCore.ARepositoryCreateExecute(Sender: TObject); 101 var 102 TempProject: TProject; 103 begin 104 { 105 if LastOpenedListRepoURL.Items.Count > 0 then 106 FormRepoCreate.EditURL.Text := LastOpenedListRepoURL.Items[0]; 107 if LastOpenedListNewDir.Items.Count > 0 then 108 FormRepoCreate.EditDir.Text := LastOpenedListNewDir.Items[0]; 109 if FormCheckout.ShowModal = mrOk then begin 110 LastOpenedListRepoURL.AddItem(FormCheckout.EditURL.Text); 111 LastOpenedListNewDir.AddItem(FormCheckout.EditDir.Text); 112 TempProject := TProject.Create; 113 try 114 TempProject.Backend := TBackend(FormRepoCreate.ComboBox1.Items.Objects[FormRepoCreate.ComboBox1.ItemIndex]); 115 TempProject.Directory := FormRepoCreate.EditDir.Text; 116 TempProject.RepositoryURL := FormRepoCreate.EditURL.Text; 117 TempProject.Repository.Init; 118 finally 119 TempProject.Free; 120 end; 121 end; 122 } 123 end; 124 99 125 procedure TCore.ASettingsExecute(Sender: TObject); 100 126 begin … … 321 347 end; 322 348 323 procedure TCore.ACommandCheckoutExecute(Sender: TObject);324 begin325 326 end;327 328 349 procedure TCore.ACommandCommitExecute(Sender: TObject); 329 350 begin -
trunk/VCSCommander.lpi
r19 r20 2 2 <CONFIG> 3 3 <ProjectOptions> 4 <Version Value="1 0"/>4 <Version Value="12"/> 5 5 <General> 6 <Flags> 7 <CompatibilityMode Value="True"/> 8 </Flags> 6 9 <SessionStorage Value="InProjectDir"/> 7 <MainUnit Value="0"/>8 10 <Title Value="VCSCommander"/> 9 11 <ResourceType Value="res"/> … … 62 64 <PublishOptions> 63 65 <Version Value="2"/> 64 <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>65 <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>66 66 </PublishOptions> 67 67 <RunParams> 68 <local> 69 <FormatVersion Value="1"/> 70 </local> 68 <FormatVersion Value="2"/> 69 <Modes Count="1"> 70 <Mode0 Name="default"/> 71 </Modes> 71 72 </RunParams> 72 73 <RequiredPackages Count="4"> -
trunk/VCSCommander.lpr
r14 r20 4 4 5 5 uses 6 {$IFDEF UNIX} {$IFDEF UseCThreads}7 cthreads, 8 {$ENDIF} {$ENDIF}6 {$IFDEF UNIX} 7 cthreads, clocale, 8 {$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 10 Forms, UFormMain, UCore, Common, TemplateGenerics, UFormBrowse, UVCS,
Note:
See TracChangeset
for help on using the changeset viewer.