Changeset 20


Ignore:
Timestamp:
Apr 3, 2025, 10:37:14 PM (23 hours ago)
Author:
chronos
Message:
  • Added: Create repository action.
Location:
trunk
Files:
11 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormMain.lfm

    r14 r20  
    55  Width = 939
    66  Caption = 'VCSCommander'
    7   ClientHeight = 538
     7  ClientHeight = 539
    88  ClientWidth = 939
    99  Menu = MainMenu1
     
    1212  OnShow = FormShow
    1313  Position = poScreenCenter
    14   LCLVersion = '1.4.0.4'
     14  LCLVersion = '1.5'
    1515  object ToolBarMain: TToolBar
    1616    Left = 0
     
    4141  object StatusBar1: TStatusBar
    4242    Left = 0
    43     Height = 28
     43    Height = 29
    4444    Top = 510
    4545    Width = 939
     
    5252    object MenuItemFile: TMenuItem
    5353      Caption = 'Working copy'
     54      OnClick = MenuItemFileClick
    5455      object MenuItem17: TMenuItem
    5556        Action = Core.AProjectCheckout
     
    6970      object MenuItemQuit: TMenuItem
    7071        Action = Core.AQuit
     72      end
     73    end
     74    object MenuItem22: TMenuItem
     75      Caption = 'Repository'
     76      object MenuItem26: TMenuItem
     77        Action = Core.ARepositoryCreate
    7178      end
    7279    end
  • trunk/Forms/UFormMain.pas

    r13 r20  
    2828    MenuItem20: TMenuItem;
    2929    MenuItem21: TMenuItem;
     30    MenuItem22: TMenuItem;
     31    MenuItem26: TMenuItem;
    3032    MenuItemRecentProjectGroup: TMenuItem;
    3133    MenuItem23: TMenuItem;
     
    5153    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    5254    procedure FormShow(Sender: TObject);
     55    procedure MenuItemFileClick(Sender: TObject);
    5356  private
    5457    Initialized: Boolean;
     
    7578begin
    7679  DockInit;
     80end;
     81
     82procedure TFormMain.MenuItemFileClick(Sender: TObject);
     83begin
     84
    7785end;
    7886
  • trunk/Forms/UFormProjectGroup.lfm

    r13 r20  
    11object FormProjectGroup: TFormProjectGroup
    2   Left = 608
     2  Left = 1062
    33  Height = 533
    4   Top = 453
     4  Top = 454
    55  Width = 610
    66  Caption = 'Project group'
  • trunk/Packages/Common/Languages/UJobProgressView.cs.po

    r19 r20  
    1313
    1414#: ujobprogressview.sestimatedtime
     15#, object-pascal-format
    1516msgid "Estimated time: %s"
    1617msgstr "OdhadovanÜ čas: %s"
     
    3738
    3839#: ujobprogressview.stotalestimatedtime
     40#, object-pascal-format
    3941msgid "Total estimated time: %s"
    4042msgstr "CelkovÜ odhadovanÜ čas: %s"
     43
  • trunk/Packages/Common/Languages/UScaleDPI.cs.po

    r19 r20  
    1313
    1414#: uscaledpi.swrongdpi
     15#, object-pascal-format
    1516msgid "Wrong DPI [%d,%d]"
    1617msgstr "Chybné DPI [%d,%d]"
  • trunk/Packages/Common/Languages/UThreading.cs.po

    r6 r20  
    1111
    1212#: uthreading.scurrentthreadnotfound
     13#, object-pascal-format
    1314msgid "Current thread ID %d not found in virtual thread list."
    1415msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken."
  • trunk/UCore.lfm

    r19 r20  
    33  OnDestroy = DataModuleDestroy
    44  OldCreateOrder = False
    5   Height = 544
    6   HorizontalOffset = 869
    7   VerticalOffset = 383
    8   Width = 866
    9   PPI = 120
     5  Height = 653
     6  HorizontalOffset = 1060
     7  VerticalOffset = 515
     8  Width = 1039
     9  PPI = 144
    1010  object ActionList1: TActionList
    1111    Images = ImageList1
    12     left = 360
    13     top = 220
     12    Left = 432
     13    Top = 264
    1414    object AQuit: TAction
    1515      Caption = 'Quit'
     
    9393      OnExecute = AProjectGroupSaveAsExecute
    9494    end
     95    object ARepositoryCreate: TAction
     96      Caption = 'Create'
     97      OnExecute = ARepositoryCreateExecute
     98    end
    9599  end
    96100  object ImageList1: TImageList
    97101    Height = 32
    98102    Width = 32
    99     left = 360
    100     top = 300
     103    Left = 432
     104    Top = 360
    101105  end
    102106  object OpenDialog1: TOpenDialog
    103107    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
    104     left = 360
    105     top = 120
     108    Left = 432
     109    Top = 144
    106110  end
    107111  object XMLConfig1: TXMLConfig
     
    109113    RootName = 'CONFIG'
    110114    ReadOnly = False
    111     left = 120
    112     top = 120
     115    Left = 144
     116    Top = 144
    113117  end
    114118  object LastOpenedListProject: TLastOpenedList
    115119    MaxCount = 10
    116120    OnChange = LastOpenedListProjectChange
    117     left = 120
    118     top = 210
     121    Left = 144
     122    Top = 252
    119123  end
    120124  object LastOpenedListRepoURL: TLastOpenedList
    121125    MaxCount = 10
    122     left = 120
    123     top = 300
     126    Left = 144
     127    Top = 360
    124128  end
    125129  object LastOpenedListNewDir: TLastOpenedList
    126130    MaxCount = 10
    127     left = 581
    128     top = 378
     131    Left = 697
     132    Top = 454
    129133  end
    130134  object LastOpenedListProjectGroup: TLastOpenedList
    131135    MaxCount = 10
    132136    OnChange = LastOpenedListProjectGroupChange
    133     left = 580
    134     top = 280
     137    Left = 696
     138    Top = 336
    135139  end
    136140  object SaveDialog1: TSaveDialog
    137141    DefaultExt = '.vcgrp'
    138142    Filter = 'Project groups (.vcgrp))|*.vcgrp|All files (.*)|*.*'
    139     left = 360
    140     top = 30
     143    Left = 432
     144    Top = 36
    141145  end
    142146end
  • trunk/UCore.pas

    r19 r20  
    1919    ACommandCommit: TAction;
    2020    ACommandStatus: TAction;
     21    ARepositoryCreate: TAction;
    2122    AProjectGroupSaveAs: TAction;
    2223    AProjectGroupSave: TAction;
     
    4142    SaveDialog1: TSaveDialog;
    4243    XMLConfig1: TXMLConfig;
    43     procedure ACommandCheckoutExecute(Sender: TObject);
    4444    procedure ACommandCleanupExecute(Sender: TObject);
    4545    procedure ACommandCommitExecute(Sender: TObject);
     
    5454    procedure AProjectOpenExecute(Sender: TObject);
    5555    procedure AQuitExecute(Sender: TObject);
     56    procedure ARepositoryCreateExecute(Sender: TObject);
    5657    procedure ASettingsExecute(Sender: TObject);
    5758    procedure AViewTestExecute(Sender: TObject);
     
    9798end;
    9899
     100procedure TCore.ARepositoryCreateExecute(Sender: TObject);
     101var
     102  TempProject: TProject;
     103begin
     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  }
     123end;
     124
    99125procedure TCore.ASettingsExecute(Sender: TObject);
    100126begin
     
    321347end;
    322348
    323 procedure TCore.ACommandCheckoutExecute(Sender: TObject);
    324 begin
    325 
    326 end;
    327 
    328349procedure TCore.ACommandCommitExecute(Sender: TObject);
    329350begin
  • trunk/VCSCommander.lpi

    r19 r20  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="10"/>
     4    <Version Value="12"/>
    55    <General>
     6      <Flags>
     7        <CompatibilityMode Value="True"/>
     8      </Flags>
    69      <SessionStorage Value="InProjectDir"/>
    7       <MainUnit Value="0"/>
    810      <Title Value="VCSCommander"/>
    911      <ResourceType Value="res"/>
     
    6264    <PublishOptions>
    6365      <Version Value="2"/>
    64       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
    65       <ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
    6666    </PublishOptions>
    6767    <RunParams>
    68       <local>
    69         <FormatVersion Value="1"/>
    70       </local>
     68      <FormatVersion Value="2"/>
     69      <Modes Count="1">
     70        <Mode0 Name="default"/>
     71      </Modes>
    7172    </RunParams>
    7273    <RequiredPackages Count="4">
  • trunk/VCSCommander.lpr

    r14 r20  
    44
    55uses
    6   {$IFDEF UNIX}{$IFDEF UseCThreads}
    7   cthreads,
    8   {$ENDIF}{$ENDIF}
     6  {$IFDEF UNIX}
     7  cthreads, clocale,
     8  {$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    1010  Forms, UFormMain, UCore, Common, TemplateGenerics, UFormBrowse, UVCS,
Note: See TracChangeset for help on using the changeset viewer.