inherited CallStackDlg: TCallStackDlg Left = 247 Height = 246 Top = 176 Width = 562 HorzScrollBar.Page = 561 VertScrollBar.Page = 245 ActiveControl = lvCallStack Caption = 'CallStack' ClientHeight = 246 ClientWidth = 562 OnCreate = FormCreate Visible = True object lvCallStack: TListView Height = 204 Top = 42 Width = 562 Align = alClient Columns = < item Width = 20 end item Caption = 'Index' Width = 35 end item Caption = 'Source' Width = 150 end item Caption = 'Line' end item Caption = 'Function' Width = 290 end> PopupMenu = mnuPopup RowSelect = True TabOrder = 0 ViewStyle = vsReport OnDblClick = lvCallStackDBLCLICK end object ToolBar1: TToolBar Height = 42 Width = 562 ButtonHeight = 40 ButtonWidth = 50 Caption = 'tbButtons' EdgeBorders = [] Flat = True Images = ImageList1 ShowCaptions = True TabOrder = 1 object ToolButtonShow: TToolButton Left = 1 Action = actShow ImageIndex = 0 end object ToolButtonCurrent: TToolButton Left = 51 Action = actSetCurrent end object ToolButton4: TToolButton Left = 101 Width = 3 Caption = 'ToolButton4' Style = tbsSeparator end object ToolButtonMore: TToolButton Left = 159 Action = actViewMore ImageIndex = 1 end object ToolButtonMax: TToolButton Left = 104 Action = actViewLimit Caption = 'Max 10' DropdownMenu = mnuLimit Style = tbsDropDown end object Panel1: TPanel Left = 312 Height = 40 Width = 50 BevelOuter = bvNone ClientHeight = 40 ClientWidth = 50 TabOrder = 0 object txtGoto: TEdit Left = 2 Height = 22 Top = 8 Width = 46 OnKeyPress = txtGotoKeyPress TabOrder = 0 Text = '0' end end object ToolButtonGoto: TToolButton Left = 362 Action = actViewGoto ImageIndex = 4 end object ToolButtonCopyAll: TToolButton Left = 415 Action = actCopyAll ImageIndex = 5 end object ToolButton8: TToolButton Left = 412 Width = 3 Caption = 'ToolButton8' Style = tbsSeparator end object ToolButton9: TToolButton Left = 209 Width = 3 Caption = 'ToolButton9' Style = tbsSeparator end object ToolButtonTop: TToolButton Left = 212 Action = actViewTop ImageIndex = 2 end object ToolButtonBottom: TToolButton Left = 262 Action = actViewBottom ImageIndex = 3 end end object mnuPopup: TPopupMenu left = 66 top = 88 object popShow: TMenuItem Action = actShow Default = True OnClick = actShowClick end object N1: TMenuItem Caption = '-' end object popSetAsCurrent: TMenuItem Action = actSetCurrent OnClick = actSetAsCurrentClick end object popCopyAll: TMenuItem Action = actCopyAll OnClick = actCopyAllClick end end object aclActions: TActionList left = 128 top = 104 object actShow: TAction Caption = 'Show' DisableIfNoHandler = True OnExecute = actShowClick end object actSetCurrent: TAction Caption = 'Current' DisableIfNoHandler = True OnExecute = actSetAsCurrentClick end object actCopyAll: TAction Caption = 'Copy All' DisableIfNoHandler = True OnExecute = actCopyAllClick end object actViewMore: TAction Category = 'View' Caption = 'More' DisableIfNoHandler = True OnExecute = actViewMoreExecute end object actViewGoto: TAction Category = 'View' Caption = 'Goto' DisableIfNoHandler = True OnExecute = actViewGotoExecute end object actViewLimit: TAction Category = 'View' Caption = '10' DisableIfNoHandler = True OnExecute = actViewLimitExecute end object actViewTop: TAction Category = 'View' Caption = 'Top' DisableIfNoHandler = True OnExecute = actViewTopExecute end object actViewBottom: TAction Category = 'View' Caption = 'Bottom' DisableIfNoHandler = True OnExecute = actViewBottomExecute end end object mnuLimit: TPopupMenu left = 192 top = 112 object popLimit10: TMenuItem Tag = 10 Caption = 'Max 10' OnClick = popCountClick end object popLimit25: TMenuItem Tag = 25 Caption = 'Max 25' OnClick = popCountClick end object popLimit50: TMenuItem Tag = 50 Caption = 'Max 50' OnClick = popCountClick end end object ImageList1: TImageList left = 232 top = 112 end end