Changeset 14 for trunk


Ignore:
Timestamp:
May 31, 2015, 12:08:28 AM (10 years ago)
Author:
chronos
Message:
  • Modified: Use different Subversion path under Windows.
Location:
trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44Config.xml
        55heaptrclog.trc
         6backup
         7VCSCommander.exe

  • trunk/Backends/Subversion

    • Property svn:ignore set to
      backup

  • trunk/Backends/Subversion/USubversion.pas

    r13 r14  
    5050procedure TRepositorySubversion.Execute(Parameters: array of string);
    5151begin
     52  {$IFDEF Linux}
    5253  ExecuteProcess('/usr/bin/svnadmin', Parameters);
     54  {$ENDIF}
     55  {$IFDEF Windows}
     56  ExecuteProcess('c:\Program Files\Subversion\bin\svnadmin.exe', Parameters);
     57  {$ENDIF}
    5358end;
    5459
    … …  
    7883procedure TSubversion.Execute(Parameters: array of string);
    7984begin
     85  {$IFDEF Linux}
    8086  ExecuteProcess('/usr/bin/svn', Parameters);
     87  {$ENDIF}
     88  {$IFDEF Windows}
     89  ExecuteProcess('c:\Program Files\Subversion\bin\svn.exe', Parameters);
     90  {$ENDIF}
    8191end;
    8292

  • trunk/Forms

    • Property svn:ignore set to
      backup

  • trunk/Forms/UFormMain.lfm

    r13 r14  
    11object FormMain: TFormMain
    2   Left = 416
     2  Left = 687
    33  Height = 568
    4   Top = 329
     4  Top = 411
    55  Width = 939
    66  Caption = 'VCSCommander'
    7   ClientHeight = 539
     7  ClientHeight = 538
    88  ClientWidth = 939
    99  Menu = MainMenu1
    … …  
    1111  OnClose = FormClose
    1212  OnShow = FormShow
    13   LCLVersion = '1.5'
    14   WindowState = wsMaximized
     13  Position = poScreenCenter
     14  LCLVersion = '1.4.0.4'
    1515  object ToolBarMain: TToolBar
    1616    Left = 0
    … …  
    4141  object StatusBar1: TStatusBar
    4242    Left = 0
    43     Height = 29
     43    Height = 28
    4444    Top = 510
    4545    Width = 939

  • trunk/UCore.pas

    r13 r14  
    113113begin
    114114  Backends := TObjectList.Create;
    115   UpdateInterface;
    116115end;
    117116

  • trunk/VCSCommander.lpi

    r13 r14  
    9595        <HasResources Value="True"/>
    9696        <ResourceBaseClass Value="Form"/>
     97        <UnitName Value="UFormMain"/>
    9798      </Unit1>
    9899      <Unit2>
    … …  
    102103        <HasResources Value="True"/>
    103104        <ResourceBaseClass Value="DataModule"/>
     105        <UnitName Value="UCore"/>
    104106      </Unit2>
    105107      <Unit3>
    … …  
    131133        <Filename Value="Backends/Subversion/USubversion.pas"/>
    132134        <IsPartOfProject Value="True"/>
     135        <UnitName Value="USubversion"/>
    133136      </Unit7>
    134137      <Unit8>
    … …  
    142145        <HasResources Value="True"/>
    143146        <ResourceBaseClass Value="Form"/>
     147        <UnitName Value="UFormConsole"/>
    144148      </Unit9>
    145149      <Unit10>

  • trunk/VCSCommander.lpr

    r13 r14  
    3131  RequireDerivedFormResource := True;
    3232  Application.Initialize;
     33  Application.CreateForm(TCore, Core);
    3334  Application.CreateForm(TFormMain, FormMain);
    34   Application.CreateForm(TCore, Core);
    3535  Application.CreateForm(TFormBrowse, FormBrowse);
    3636  Application.CreateForm(TFormFavorites, FormFavorites);
Note: See TracChangeset for help on using the changeset viewer.