Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 53 lines (39 sloc) 0.765 kb
2507560 first commit
Motaz Abdel Azeem authored
1 unit NewDomain;
2
3 {$mode objfpc}{$H+}
4
5 interface
6
7 uses
8 Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
9 StdCtrls, Spin, Buttons;
10
11 type
12
13 { TfmNewDomain }
14
15 TfmNewDomain = class(TForm)
16 BitBtn1: TBitBtn;
17 BitBtn2: TBitBtn;
18 cbType: TComboBox;
19 edDefault: TEdit;
20 edName: TEdit;
21 Label1: TLabel;
22 Label2: TLabel;
23 Label3: TLabel;
24 Label4: TLabel;
25 seSize: TSpinEdit;
26 private
27 { private declarations }
28 public
29 { public declarations }
30 procedure Init;
31 end;
32
33 var
34 fmNewDomain: TfmNewDomain;
35
36 implementation
37
38 { TfmNewDomain }
39
40 procedure TfmNewDomain.Init;
41 begin
42 edName.Clear;
43 cbType.ItemIndex:= -1;
44 edDefault.Clear;
45 seSize.Value:= 0;
46 end;
47
48 initialization
49 {$I newdomain.lrs}
50
51 end.
52
Something went wrong with that request. Please try again.