1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
object GenCodeFormOptions: TGenCodeFormOptions
Left = 644
Height = 205
Top = 319
Width = 374
Caption = 'Generate pascal code'
ClientHeight = 205
ClientWidth = 374
Position = poMainFormCenter
LCLVersion = '1.5'
object EBaseClass: TEdit
Left = 160
Height = 18
Top = 64
Width = 200
TabOrder = 0
end
object EExtraUnits: TEdit
Left = 160
Height = 18
Top = 88
Width = 200
TabOrder = 1
end
object EPrefix: TEdit
Left = 160
Height = 18
Top = 112
Width = 80
TabOrder = 2
end
object Label1: TLabel
Left = 62
Height = 12
Top = 64
Width = 87
Alignment = taRightJustify
Caption = 'Parent Class name'
ParentColor = False
end
object Label2: TLabel
Left = 27
Height = 12
Top = 88
Width = 122
Alignment = taRightJustify
Caption = 'Extra units for uses clause'
ParentColor = False
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 33
Top = 166
Width = 362
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 3
ShowButtons = [pbOK, pbCancel]
end
object Label3: TLabel
Left = 48
Height = 12
Top = 112
Width = 101
Alignment = taRightJustify
Caption = 'Prefix for class names'
ParentColor = False
end
object EUnitName: TEdit
Left = 160
Height = 18
Top = 11
Width = 104
OnEditingDone = EUnitNameEditingDone
TabOrder = 4
end
object Label4: TLabel
Left = 99
Height = 12
Top = 11
Width = 50
Alignment = taRightJustify
Caption = 'Unit name'
ParentColor = False
end
object EFileName: TFileNameEdit
Left = 160
Height = 20
Top = 37
Width = 200
DialogKind = dkSave
DialogOptions = [ofPathMustExist, ofEnableSizing, ofViewDetail]
Filter = 'All pascal files|*.pp;*.pas|Delphi files|*.pas|FPC files|*.pp|All files|*.*'
FilterIndex = 0
DefaultExt = '.pp'
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 5
end
object LFileName: TLabel
Left = 99
Height = 12
Top = 40
Width = 51
Alignment = taRightJustify
Caption = 'Save in file'
ParentColor = False
end
object CBView: TCheckBox
Left = 160
Height = 26
Top = 136
Width = 131
Caption = 'View generated code'
TabOrder = 6
end
end
|
