Context Navigation

FormCheckout.pas

Last change on this file was 23, checked in by chronos, 2 weeks ago
Modified: All unit renamed to names without U prefix. Modified: Removed global form variables. Modified: Code cleanup.
File size: 1.1 KB

Line
1	unit FormCheckout;
2
3	interface
4
5	uses
6	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
7	Menus, ExtCtrls;
8
9	type
10
11	{ TFormCheckout }
12
13	TFormCheckout = class(TForm)
14	Button1: TButton;
15	ButtonCancel: TButton;
16	ButtonOk: TButton;
17	ComboBox1: TComboBox;
18	EditURL: TEdit;
19	EditDir: TEdit;
20	GroupBox1: TGroupBox;
21	GroupBox2: TGroupBox;
22	Label1: TLabel;
23	Label2: TLabel;
24	Label3: TLabel;
25	Panel1: TPanel;
26	procedure Button1Click(Sender: TObject);
27	procedure FormShow(Sender: TObject);
28	end;
29
30
31	implementation
32
33	{$R *.lfm}
34
35	uses
36	Core, Backend;
37
38	{ TFormCheckout }
39
40	procedure TFormCheckout.Button1Click(Sender: TObject);
41	var
42	NewDir: string;
43	begin
44	if SelectDirectory('Select directory', EditDir.Text, NewDir) then
45	EditDir.Text := NewDir;
46	end;
47
48	procedure TFormCheckout.FormShow(Sender: TObject);
49	var
50	I: Integer;
51	begin
52	ComboBox1.Clear;
53	for I := 0 to Core.Core.Backends.Count - 1 do
54	ComboBox1.AddItem(Core.Core.Backends[I].Name, Core.Core.Backends[I]);
55	if ComboBox1.Items.Count > 0 then
56	ComboBox1.ItemIndex := 0;
57	end;
58
59	end.
60

Note: See TracBrowser for help on using the repository browser.