1object ProcedureListForm: TProcedureListForm
2  Left = 289
3  Height = 688
4  Top = 140
5  Width = 952
6  ActiveControl = cbObjects
7  Caption = 'Procedure List - '
8  ClientHeight = 688
9  ClientWidth = 952
10  OnCreate = FormCreate
11  OnDestroy = FormDestroy
12  OnKeyPress = FormKeyPress
13  OnResize = FormResize
14  OnShow = FormShow
15  Position = poScreenCenter
16  LCLVersion = '1.9.0.0'
17  object StatusBar: TStatusBar
18    Left = 0
19    Height = 21
20    Top = 667
21    Width = 952
22    Panels = <
23      item
24        Width = 400
25      end
26      item
27        Width = 50
28      end>
29    SimplePanel = False
30  end
31  object TB: TToolBar
32    Left = 0
33    Height = 26
34    Top = 0
35    Width = 952
36    Caption = 'TB'
37    EdgeBorders = []
38    TabOrder = 0
39    object tbAbout: TToolButton
40      Left = 136
41      Hint = 'About'
42      Top = 0
43      Caption = 'tbAbout'
44      ImageIndex = 9
45      OnClick = tbAboutClick
46      ParentShowHint = False
47      ShowHint = True
48    end
49    object ToolButton2: TToolButton
50      Left = 131
51      Height = 22
52      Top = 0
53      Caption = 'ToolButton2'
54      Style = tbsDivider
55    end
56    object tbJumpTo: TToolButton
57      Left = 108
58      Hint = 'Jump To Selection'
59      Top = 0
60      Caption = 'Goto'
61      ImageIndex = 5
62      OnClick = SGDblClick
63      ParentShowHint = False
64      ShowHint = True
65    end
66    object ToolButton4: TToolButton
67      Left = 103
68      Height = 22
69      Top = 0
70      Caption = 'ToolButton4'
71      Style = tbsDivider
72    end
73    object tbFilterAny: TToolButton
74      Left = 80
75      Hint = 'Filter by matching any part of method'
76      Top = 0
77      Caption = 'tbFilterAny'
78      Down = True
79      Grouped = True
80      ImageIndex = 8
81      OnClick = SomethingChange
82      ParentShowHint = False
83      ShowHint = True
84      Style = tbsCheck
85    end
86    object tbFilterStart: TToolButton
87      Left = 57
88      Hint = 'Filter by matching with start of method'
89      Top = 0
90      Caption = 'tbFilterStart'
91      Grouped = True
92      ImageIndex = 7
93      OnClick = SomethingChange
94      ParentShowHint = False
95      ShowHint = True
96      Style = tbsCheck
97    end
98    object ToolButton7: TToolButton
99      Left = 52
100      Height = 22
101      Top = 0
102      Caption = 'ToolButton7'
103      Style = tbsDivider
104      Visible = False
105    end
106    object tbChangeFont: TToolButton
107      Left = 29
108      Hint = 'Change Font'
109      Top = 0
110      Caption = 'tbChangeFont'
111      ImageIndex = 4
112      ParentShowHint = False
113      ShowHint = True
114      Visible = False
115    end
116    object ToolButton9: TToolButton
117      Left = 24
118      Height = 22
119      Top = 0
120      Caption = 'ToolButton9'
121      Style = tbsDivider
122    end
123    object tbCopy: TToolButton
124      Left = 1
125      Hint = 'Copy method name to the clipboard'
126      Top = 0
127      Caption = 'tbCopy'
128      ImageIndex = 6
129      OnClick = tbCopyClick
130      ParentShowHint = False
131      ShowHint = True
132    end
133  end
134  object pnlHeader: TPanel
135    Left = 0
136    Height = 47
137    Top = 26
138    Width = 952
139    Align = alTop
140    AutoSize = True
141    BevelOuter = bvNone
142    ClientHeight = 47
143    ClientWidth = 952
144    ParentColor = False
145    TabOrder = 1
146    object lblSearch: TLabel
147      AnchorSideTop.Control = pnlHeader
148      AnchorSideTop.Side = asrCenter
149      Left = 6
150      Height = 19
151      Top = 14
152      Width = 43
153      BorderSpacing.Around = 6
154      Caption = '&Search'
155      ParentColor = False
156    end
157    object lblObjects: TLabel
158      AnchorSideLeft.Control = edMethods
159      AnchorSideLeft.Side = asrBottom
160      AnchorSideTop.Control = pnlHeader
161      AnchorSideTop.Side = asrCenter
162      Left = 610
163      Height = 19
164      Top = 14
165      Width = 46
166      BorderSpacing.Left = 12
167      BorderSpacing.Around = 6
168      Caption = '&Objects'
169      ParentColor = False
170    end
171    object edMethods: TEdit
172      AnchorSideLeft.Control = lblSearch
173      AnchorSideLeft.Side = asrBottom
174      AnchorSideTop.Control = pnlHeader
175      AnchorSideRight.Side = asrBottom
176      AnchorSideBottom.Control = cbObjects
177      AnchorSideBottom.Side = asrBottom
178      Left = 55
179      Height = 35
180      Top = 6
181      Width = 537
182      Anchors = [akTop, akLeft, akRight, akBottom]
183      BorderSpacing.Left = 6
184      BorderSpacing.Top = 6
185      BorderSpacing.Right = 6
186      OnChange = SomethingChange
187      OnKeyDown = edMethodsKeyDown
188      OnKeyPress = edMethodsKeyPress
189      TabOrder = 0
190    end
191    object cbObjects: TComboBox
192      AnchorSideLeft.Control = lblObjects
193      AnchorSideLeft.Side = asrBottom
194      AnchorSideTop.Control = pnlHeader
195      AnchorSideRight.Control = pnlHeader
196      AnchorSideRight.Side = asrBottom
197      Left = 662
198      Height = 35
199      Top = 6
200      Width = 284
201      Anchors = [akTop, akLeft, akRight]
202      BorderSpacing.Around = 6
203      ItemHeight = 0
204      OnChange = SomethingChange
205      Sorted = True
206      Style = csDropDownList
207      TabOrder = 1
208    end
209  end
210  object SG: TStringGrid
211    Left = 0
212    Height = 594
213    Top = 73
214    Width = 952
215    Align = alClient
216    ColCount = 4
217    Columns = <
218      item
219        Title.Caption = ''
220        Width = 24
221      end
222      item
223        Title.Caption = 'Procedure'
224        Width = 200
225      end
226      item
227        Title.Caption = 'Type'
228      end
229      item
230        Title.Caption = 'Line'
231      end>
232    FixedCols = 0
233    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking, goSmoothScroll, goCellEllipsis]
234    TabOrder = 3
235    OnDblClick = SGDblClick
236    OnDrawCell = SGDrawCell
237    OnSelectCell = SGSelectCell
238  end
239end
240