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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
object UnitInfoDialog: TUnitInfoDialog
Left = 347
Height = 307
Top = 249
Width = 500
ActiveControl = Notebook
BorderIcons = [biSystemMenu, biMaximize]
Caption = 'UnitInfoDialog'
ClientHeight = 307
ClientWidth = 500
OnCreate = FormCreate
Position = poScreenCenter
LCLVersion = '1.9.0.0'
object OkButton: TBitBtn
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 419
Height = 28
Top = 273
Width = 75
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Bottom = 6
Cancel = True
Caption = '&OK'
Constraints.MinWidth = 75
Default = True
Kind = bkOK
ModalResult = 1
TabOrder = 0
end
object Notebook: TPageControl
AnchorSideBottom.Control = OkButton
Left = 6
Height = 261
Top = 6
Width = 488
ActivePage = GeneralPage
Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
TabIndex = 0
TabOrder = 1
object GeneralPage: TTabSheet
Caption = 'GeneralPage'
ClientHeight = 234
ClientWidth = 484
object ClearIncludedBy: TButton
Left = 6
Height = 25
Top = 203
Width = 101
Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Top = 6
Caption = 'ClearIncludedBy'
OnClick = clearIncludedByClick
TabOrder = 0
end
object ListValues: TListView
AnchorSideBottom.Control = ClearIncludedBy
Left = 6
Height = 191
Top = 6
Width = 472
Anchors = [akTop, akLeft, akRight, akBottom]
Columns = <
item
AutoSize = True
Caption = '(name)'
Width = 0
end
item
AutoSize = True
Caption = '(value)'
Width = 470
end>
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
ShowColumnHeaders = False
TabOrder = 1
ViewStyle = vsReport
end
end
object UnitPathsPage: TTabSheet
Caption = 'UnitPathsPage'
ClientHeight = 234
ClientWidth = 484
object UnitPathMemo: TMemo
Left = 6
Height = 223
Top = 6
Width = 468
Align = alClient
BorderSpacing.Around = 6
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object IncludePathsPage: TTabSheet
Caption = 'IncludePathsPage'
ClientHeight = 234
ClientWidth = 484
object IncludePathMemo: TMemo
Left = 6
Height = 223
Top = 6
Width = 468
Align = alClient
BorderSpacing.Around = 6
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
object CompleteUnitPathsPage: TTabSheet
Caption = 'CompleteUnitPathsPage'
ClientHeight = 234
ClientWidth = 484
object SrcPathMemo: TMemo
Left = 6
Height = 223
Top = 6
Width = 468
Align = alClient
BorderSpacing.Around = 6
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
end
end
end
object CodeToolsDefsButton: TButton
AnchorSideTop.Control = OkButton
AnchorSideBottom.Control = OkButton
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 28
Top = 273
Width = 133
Anchors = [akTop, akLeft, akBottom]
AutoSize = True
Caption = 'CodeToolsDefsButton'
OnClick = CodeToolsDefsButtonClick
TabOrder = 2
end
object GotoIncludeDirectiveButton: TButton
AnchorSideTop.Control = OkButton
AnchorSideRight.Control = OkButton
AnchorSideBottom.Control = OkButton
AnchorSideBottom.Side = asrBottom
Left = 244
Height = 28
Top = 273
Width = 169
Anchors = [akTop, akRight, akBottom]
AutoSize = True
BorderSpacing.Right = 6
Caption = 'GotoIncludeDirectiveButton'
ModalResult = 6
TabOrder = 3
end
end
|
