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
|
object IDEInspectDlg: TIDEInspectDlg
Left = 423
Height = 406
Top = 139
Width = 295
BorderStyle = bsSizeToolWin
Caption = 'IDEInspectDlg'
ClientHeight = 406
ClientWidth = 295
Constraints.MinHeight = 200
Constraints.MinWidth = 200
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
LCLVersion = '1.3'
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 383
Width = 295
Panels = <>
end
object PageControl: TPageControl
Left = 0
Height = 336
Top = 47
Width = 295
ActivePage = DataPage
Align = alClient
TabIndex = 0
TabOrder = 1
OnMouseDown = DataGridMouseDown
object DataPage: TTabSheet
Caption = 'DataPage'
OnMouseDown = DataGridMouseDown
end
object PropertiesPage: TTabSheet
Caption = 'PropertiesPage'
end
object MethodsPage: TTabSheet
Caption = 'MethodsPage'
end
end
object EdInspect: TComboBox
Left = 0
Height = 21
Top = 0
Width = 295
Align = alTop
ItemHeight = 13
OnEditingDone = EdInspectEditingDone
OnKeyDown = EdInspectKeyDown
TabOrder = 2
Text = '(...)'
end
object ToolBar1: TToolBar
AnchorSideTop.Control = EdInspect
Left = 0
Height = 26
Top = 21
Width = 295
Caption = 'ToolBar1'
ShowCaptions = True
TabOrder = 3
object btnUseInstance: TToolButton
Left = 54
Hint = 'Use Instance class'
Top = 2
AllowAllUp = True
Caption = 'Instance'
OnClick = btnUseInstanceClick
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object ToolButton2: TToolButton
Left = 104
Top = 2
Width = 5
Caption = 'ToolButton2'
Style = tbsDivider
end
object btnColClass: TToolButton
Left = 109
Hint = 'Show Class Column'
Top = 2
AllowAllUp = True
Caption = 'C'
Down = True
OnClick = btnColClassClick
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object btnColType: TToolButton
Left = 132
Top = 2
AllowAllUp = True
Caption = 'T'
Down = True
OnClick = btnColClassClick
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object btnColVisibility: TToolButton
Left = 155
Top = 2
AllowAllUp = True
Caption = 'V'
Down = True
OnClick = btnColClassClick
ParentShowHint = False
ShowHint = True
Style = tbsCheck
end
object btnBackward: TToolButton
Left = 1
Top = 2
Caption = '<<'
OnClick = btnBackwardClick
end
object btnForward: TToolButton
Left = 25
Top = 2
Caption = '>>'
OnClick = btnForwardClick
end
object ToolButton4: TToolButton
Left = 49
Top = 2
Width = 5
Caption = 'ToolButton4'
Style = tbsDivider
end
end
end
|
