Changeset 22 for trunk/Forms


Ignore:
Timestamp:
Apr 3, 2025, 10:58:56 PM (2 weeks ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

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

  • 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
Note: See TracChangeset for help on using the changeset viewer.