Changeset 9 for trunk/Forms


Ignore:
Timestamp:
May 18, 2015, 11:49:39 PM (10 years ago)
Author:
chronos
Message:
  • Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.
Location:
trunk/Forms
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormCheckout.lfm

    r8 r9  
    11object FormCheckout: TFormCheckout
    22  Left = 833
    3   Height = 377
     3  Height = 417
    44  Top = 345
    5   Width = 826
     5  Width = 834
    66  Caption = 'Checkout'
    7   ClientHeight = 377
    8   ClientWidth = 826
     7  ClientHeight = 417
     8  ClientWidth = 834
     9  OnShow = FormShow
    910  LCLVersion = '1.5'
    1011  object GroupBox1: TGroupBox
    1112    Left = 8
    12     Height = 184
     13    Height = 232
    1314    Top = 8
    14     Width = 810
     15    Width = 818
    1516    Align = alTop
    1617    BorderSpacing.Around = 8
    1718    Caption = 'Repository'
    18     ClientHeight = 157
    19     ClientWidth = 806
     19    ClientHeight = 205
     20    ClientWidth = 814
    2021    TabOrder = 0
    2122    object Label1: TLabel
    2223      Left = 8
    2324      Height = 25
    24       Top = 16
     25      Top = 64
    2526      Width = 166
    2627      Caption = 'URL of repository:'
    … …  
    3031      Left = 8
    3132      Height = 35
    32       Top = 48
    33       Width = 787
     33      Top = 96
     34      Width = 795
    3435      Anchors = [akTop, akLeft, akRight]
    3536      TabOrder = 0
    … …  
    3839      Left = 8
    3940      Height = 25
    40       Top = 88
     41      Top = 136
    4142      Width = 181
    4243      Caption = 'Checkout directory:'
    … …  
    4647      Left = 8
    4748      Height = 35
    48       Top = 120
    49       Width = 731
     49      Top = 168
     50      Width = 739
    5051      Anchors = [akTop, akLeft, akRight]
    5152      TabOrder = 1
    5253    end
    5354    object Button1: TButton
    54       Left = 755
     55      Left = 763
    5556      Height = 25
    56       Top = 128
     57      Top = 176
    5758      Width = 40
    5859      Anchors = [akTop, akRight]
    … …  
    6162      TabOrder = 2
    6263    end
     64    object ComboBox1: TComboBox
     65      Left = 152
     66      Height = 35
     67      Top = 16
     68      Width = 352
     69      ItemHeight = 0
     70      Style = csDropDownList
     71      TabOrder = 3
     72    end
     73    object Label3: TLabel
     74      Left = 8
     75      Height = 25
     76      Top = 21
     77      Width = 49
     78      Caption = 'Type:'
     79      ParentColor = False
     80    end
    6381  end
    6482  object GroupBox2: TGroupBox
    6583    Left = 8
    6684    Height = 105
    67     Top = 200
    68     Width = 810
     85    Top = 248
     86    Width = 818
    6987    Align = alTop
    7088    BorderSpacing.Around = 8
    … …  
    7290    TabOrder = 1
    7391  end
    74   object ButtonCancel: TButton
    75     Left = 728
    76     Height = 25
    77     Top = 328
    78     Width = 75
    79     Anchors = [akTop, akRight]
    80     Caption = 'Cancel'
    81     ModalResult = 2
     92  object Panel1: TPanel
     93    Left = 0
     94    Height = 50
     95    Top = 367
     96    Width = 834
     97    Align = alBottom
     98    BevelOuter = bvNone
     99    ClientHeight = 50
     100    ClientWidth = 834
    82101    TabOrder = 2
    83   end
    84   object ButtonOk: TButton
    85     Left = 616
    86     Height = 25
    87     Top = 328
    88     Width = 75
    89     Anchors = [akTop, akRight]
    90     Caption = 'Ok'
    91     ModalResult = 1
    92     TabOrder = 3
     102    object ButtonOk: TButton
     103      Left = 624
     104      Height = 25
     105      Top = 16
     106      Width = 75
     107      Anchors = [akTop, akRight]
     108      Caption = 'Ok'
     109      ModalResult = 1
     110      TabOrder = 0
     111    end
     112    object ButtonCancel: TButton
     113      Left = 736
     114      Height = 25
     115      Top = 16
     116      Width = 75
     117      Anchors = [akTop, akRight]
     118      Caption = 'Cancel'
     119      ModalResult = 2
     120      TabOrder = 1
     121    end
    93122  end
    94123end

  • trunk/Forms/UFormCheckout.pas

    r8 r9  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
     9  Menus, ExtCtrls;
    910
    1011type
    … …  
    1617    ButtonCancel: TButton;
    1718    ButtonOk: TButton;
     19    ComboBox1: TComboBox;
    1820    EditURL: TEdit;
    1921    EditDir: TEdit;
    … …  
    2224    Label1: TLabel;
    2325    Label2: TLabel;
     26    Label3: TLabel;
     27    Panel1: TPanel;
    2428    procedure Button1Click(Sender: TObject);
     29    procedure FormShow(Sender: TObject);
    2530  private
    2631    { private declarations }
    … …  
    3641{$R *.lfm}
    3742
     43uses
     44  UCore, UBackend;
     45
    3846{ TFormCheckout }
    3947
    … …  
    4654end;
    4755
     56procedure TFormCheckout.FormShow(Sender: TObject);
     57var
     58  I: Integer;
     59begin
     60  ComboBox1.Clear;
     61  for I := 0 to Core.Backends.Count - 1 do
     62    ComboBox1.AddItem(TBackend(Core.Backends[I]).Name, Core.Backends[I]);
     63  if ComboBox1.Items.Count > 0 then
     64    ComboBox1.ItemIndex := 0;
     65end;
     66
    4867end.
    4968

  • trunk/Forms/UFormMain.pas

    r8 r9  
    8585const
    8686  AppName = 'VCSCommander';
     87var
     88  NewCaption: string;
    8789begin
     90  NewCaption := '';
    8891  if Assigned(Core.Project) then
    89     Caption := Core.Project.Directory + ' - ' + AppName
    90     else Caption := AppName;
     92    NewCaption := Core.Project.Directory + ' (' + Core.Project.Backend.Name + ') - ';
     93  NewCaption := NewCaption + AppName;
     94  Caption := NewCaption;
    9195end;
    9296
Note: See TracChangeset for help on using the changeset viewer.