Changeset 22


Ignore:
Timestamp:
Apr 3, 2025, 10:58:56 PM (6 days ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
3 added
22 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        22VCSCommander
        33VCSCommander.lps
         4VCSCommander.dbg
        45Config.xml
        56heaptrclog.trc

  • trunk/Backends/Bazaar/UBazaar.pas

    r13 r22  
    11unit UBazaar;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2018
    2119  TBazaar = class(TWorkingCopy)
    22   private
    2320  protected
    2421    procedure Execute(Parameters: array of string);

  • trunk/Backends/CVS/UCVS.pas

    r15 r22  
    11unit UCVS;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Backends/Git/UGit.pas

    r13 r22  
    11unit UGit;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Backends/Subversion/USubversion.pas

    r21 r22  
    11unit USubversion;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    4442    procedure Init; override;
    4543  end;
     44
    4645
    4746implementation

  • trunk/Forms/UFormBrowse.pas

    r21 r22  
    11unit UFormBrowse;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    5755  FormBrowse: TFormBrowse;
    5856
     57
    5958implementation
    6059

  • trunk/Forms/UFormCheckout.pas

    r9 r22  
    11unit UFormCheckout;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2826    procedure Button1Click(Sender: TObject);
    2927    procedure FormShow(Sender: TObject);
    30   private
    31     { private declarations }
    32   public
    33     { public declarations }
    3428  end;
    3529
    3630var
    3731  FormCheckout: TFormCheckout;
     32
    3833
    3934implementation

  • trunk/Forms/UFormCommit.pas

    r7 r22  
    11unit UFormCommit;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2523    procedure FormCreate(Sender: TObject);
    2624    procedure GroupBox1Click(Sender: TObject);
    27   private
    28     { private declarations }
    29   public
    30     { public declarations }
    3125  end;
    3226
    3327var
    3428  FormCommit: TFormCommit;
     29
    3530
    3631implementation

  • trunk/Forms/UFormConsole.pas

    r16 r22  
    11unit UFormConsole;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2624  private
    2725    Process: TProcess;
    28     { private declarations }
    2926  public
    3027    Executable: string;
    … …  
    3936var
    4037  FormConsole: TFormConsole;
     38
    4139
    4240implementation

  • trunk/Forms/UFormFavorites.pas

    r3 r22  
    11unit UFormFavorites;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    108type
    119  TFormFavorites = class(TForm)
    12   private
    13     { private declarations }
    14   public
    15     { public declarations }
    1610  end;
    1711
    1812var
    1913  FormFavorites: TFormFavorites;
     14
    2015
    2116implementation

  • trunk/Forms/UFormLog.pas

    r12 r22  
    11unit UFormLog;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2725    procedure ListViewItemsSelectItem(Sender: TObject; Item: TListItem;
    2826      Selected: Boolean);
    29   private
    30     { private declarations }
    3127  public
    3228    FileName: string;
    … …  
    3834var
    3935  FormLog: TFormLog;
     36
    4037
    4138implementation

  • trunk/Forms/UFormMain.lfm

    r20 r22  
    11object FormMain: TFormMain
    22  Left = 687
    3   Height = 568
     3  Height = 801
    44  Top = 411
    5   Width = 939
     5  Width = 1408
    66  Caption = 'VCSCommander'
    7   ClientHeight = 539
    8   ClientWidth = 939
     7  ClientHeight = 801
     8  ClientWidth = 1408
     9  DesignTimePPI = 144
    910  Menu = MainMenu1
    1011  OnActivate = FormActivate
    … …  
    1213  OnShow = FormShow
    1314  Position = poScreenCenter
    14   LCLVersion = '1.5'
     15  LCLVersion = '3.6.0.0'
    1516  object ToolBarMain: TToolBar
    1617    Left = 0
    17     Height = 26
     18    Height = 39
    1819    Top = 0
    19     Width = 939
     20    Width = 1408
    2021    Caption = 'ToolBarMain'
    2122    Images = Core.ImageList1
    … …  
    2930    end
    3031    object ToolButton2: TToolButton
    31       Left = 24
     32      Left = 36
    3233      Top = 2
    3334      Action = Core.AProjectOpen
    3435    end
    3536    object ToolButton3: TToolButton
    36       Left = 47
     37      Left = 71
    3738      Top = 2
    3839      Action = Core.AProjectClose
    … …  
    4142  object StatusBar1: TStatusBar
    4243    Left = 0
    43     Height = 29
    44     Top = 510
    45     Width = 939
     44    Height = 28
     45    Top = 773
     46    Width = 1408
    4647    Panels = <>
    4748  end
    4849  object MainMenu1: TMainMenu
    4950    Images = Core.ImageList1
    50     left = 232
    51     top = 88
     51    Left = 348
     52    Top = 132
    5253    object MenuItemFile: TMenuItem
    5354      Caption = 'Working copy'

  • trunk/Forms/UFormMain.pas

    r20 r22  
    11unit UFormMain;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    … …  
    6563var
    6664  FormMain: TFormMain;
     65
    6766
    6867implementation

  • trunk/Forms/UFormProjectGroup.pas

    r19 r22  
    11unit UFormProjectGroup;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2422    TreeView1: TTreeView;
    2523    procedure FormShow(Sender: TObject);
    26   private
    27     { private declarations }
    2824  public
    2925    procedure ReloadTree;
    … …  
    3329var
    3430  FormProjectGroup: TFormProjectGroup;
     31
    3532
    3633implementation

  • trunk/Forms/UFormSettings.pas

    r13 r22  
    11unit UFormSettings;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2119    Label2: TLabel;
    2220    procedure FormCreate(Sender: TObject);
    23   private
    24     { private declarations }
    2521  public
    2622    procedure Load(XMLConfig: TXMLConfig);
    … …  
    3026var
    3127  FormSettings: TFormSettings;
     28
    3229
    3330implementation

  • trunk/Forms/UFormTest.pas

    r19 r22  
    11unit UFormTest;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2422    procedure OperationStart(Name: string);
    2523    procedure OperationStop;
    26   public
    27     { public declarations }
    2824  end;
    2925
    3026var
    3127  FormTest: TFormTest;
     28
    3229
    3330implementation
    … …  
    4946  if ComboBox1.Items.Count > 0 then
    5047    ComboBox1.ItemIndex := 0;
    51 
    5248end;
    5349

  • trunk/UCore.pas

    r21 r22  
    11unit UCore;
    2 
    3 {$mode delphi}{$H+}
    42
    53interface
    … …  
    8381  Core: TCore;
    8482
     83
    8584implementation
    8685

  • trunk/Units/UBackend.pas

    r13 r22  
    11unit UBackend;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321  end;
    2422
     23
    2524implementation
    2625

  • trunk/Units/UProject.pas

    r21 r22  
    11unit UProject;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Units/UVCS.pas

    r19 r22  
    11unit UVCS;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    9492  end;
    9593
    96 
    9794function URLFromDirectory(DirName: string; Relative: Boolean): string;
    9895
    … …  
    10097  FileStatusStateText: array[TFileStatusState] of string = ('Not versioned',
    10198    'Added', 'Removed', 'Modified', 'Normal');
     99
    102100
    103101implementation

  • trunk/VCSCommander.lpi

    r21 r22  
    1111      <ResourceType Value="res"/>
    1212      <UseXPManifest Value="True"/>
     13      <XPManifest>
     14        <DpiAware Value="True"/>
     15      </XPManifest>
    1316      <Icon Value="0"/>
    1417    </General>
    1518    <i18n>
    16       <EnableI18N LFM="False"/>
     19      <EnableI18N Value="True" LFM="False"/>
     20      <OutDir Value="Languages"/>
    1721    </i18n>
    1822    <BuildModes Count="2">
    … …  
    2731            <IncludeFiles Value="$(ProjOutDir)"/>
    2832            <OtherUnitFiles Value="Forms;Units;Backends/Bazaar;Backends/Subversion;Backends/CVS;Backends/Git"/>
    29             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     33            <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS))-$(BuildMode)"/>
    3034          </SearchPaths>
    3135          <Parsing>
    … …  
    6266        </CompilerOptions>
    6367      </Item2>
     68      <SharedMatrixOptions Count="2">
     69        <Item1 ID="483634553940" Targets="Common" Modes="Debug" Value="-g -gl -gh -CirotR -O1 -dDPI"/>
     70        <Item2 ID="924015825510" Targets="Common" Modes="Release" Value="-CX -XX -O3 -dDPI"/>
     71      </SharedMatrixOptions>
    6472    </BuildModes>
    6573    <PublishOptions>
    … …  
    204212      <IncludeFiles Value="$(ProjOutDir)"/>
    205213      <OtherUnitFiles Value="Forms;Units;Backends/Bazaar;Backends/Subversion;Backends/CVS;Backends/Git"/>
    206       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     214      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
    207215    </SearchPaths>
    208216    <Parsing>
    … …  
    222230        <StackChecks Value="True"/>
    223231      </Checks>
     232      <VerifyObjMethodCallValidity Value="True"/>
    224233    </CodeGeneration>
    225234    <Linking>
    226235      <Debugging>
    227236        <UseHeaptrc Value="True"/>
     237        <UseExternalDbgSyms Value="True"/>
    228238      </Debugging>
    229239      <Options>
Note: See TracChangeset for help on using the changeset viewer.