lazarus/debugger/callstackdlg.lfm

inherited CallStackDlg: TCallStackDlg
  Left = 466
  Height = 246
  Top = 191
  Width = 562
  BorderStyle = bsSizeToolWin
  Caption = 'CallStack'
  ClientHeight = 246
  ClientWidth = 562
  OnCreate = FormCreate
  Visible = True
  object lvCallStack: TListView[0]
    Left = 0
    Height = 166
    Top = 80
    Width = 562
    Align = alClient
    Columns = <    
      item
        Width = 20
      end    
      item
        AutoSize = True
        Caption = 'Index'
        Width = 538
      end    
      item
        Caption = 'Source'
        Width = 150
      end    
      item
        Caption = 'Line'
      end    
      item
        Caption = 'Function'
        Width = 280
      end>
    HideSelection = False
    PopupMenu = mnuPopup
    ReadOnly = True
    RowSelect = True
    TabOrder = 0
    ViewStyle = vsReport
    OnClick = lvCallStackClick
    OnDblClick = lvCallStackDBLCLICK
    OnKeyPress = lvCallStackKeyPress
  end
  object ToolBar1: TToolBar[1]
    Left = 0
    Height = 80
    Top = 0
    Width = 562
    AutoSize = True
    ButtonHeight = 40
    ButtonWidth = 50
    Caption = 'tbButtons'
    EdgeBorders = []
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 1
    object ToolButtonShow: TToolButton
      Left = 99
      Top = 0
      Action = actShow
      ImageIndex = 0
    end
    object ToolButtonCurrent: TToolButton
      Left = 149
      Top = 0
      Action = actSetCurrent
    end
    object ToolButton4: TToolButton
      Left = 199
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      Style = tbsSeparator
    end
    object ToolButtonMore: TToolButton
      Left = 269
      Top = 0
      Action = actViewMore
      ImageIndex = 1
    end
    object ToolButtonMax: TToolButton
      Left = 207
      Top = 0
      Action = actViewLimit
      Caption = 'Max 10'
      DropdownMenu = mnuLimit
      Style = tbsDropDown
    end
    object ToolButtonGoto: TToolButton
      Left = 477
      Top = 0
      Action = actViewGoto
      ImageIndex = 4
    end
    object ToolButtonCopyAll: TToolButton
      Left = 1
      Top = 40
      Action = actCopyAll
      ImageIndex = 5
    end
    object ToolButton8: TToolButton
      Left = 91
      Top = 0
      Width = 8
      Caption = 'ToolButton8'
      Style = tbsSeparator
    end
    object ToolButton9: TToolButton
      Left = 319
      Top = 0
      Width = 8
      Caption = 'ToolButton9'
      Style = tbsSeparator
    end
    object ToolButtonTop: TToolButton
      Left = 327
      Top = 0
      Action = actViewTop
      ImageIndex = 2
    end
    object ToolButtonBottom: TToolButton
      Left = 377
      Top = 0
      Action = actViewBottom
      ImageIndex = 3
    end
    object Panel1: TPanel
      Left = 427
      Height = 40
      Top = 0
      Width = 50
      BevelOuter = bvNone
      ClientHeight = 40
      ClientWidth = 50
      TabOrder = 0
      object txtGoto: TEdit
        Left = 2
        Height = 21
        Top = 8
        Width = 46
        OnKeyPress = txtGotoKeyPress
        TabOrder = 0
        Text = '0'
      end
    end
    object ToolButtonPower: TToolButton
      Left = 1
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = 'ToolButtonPower'
      Down = True
      OnClick = ToolButtonPowerClick
      Style = tbsCheck
    end
    object ToolButton2: TToolButton
      Left = 527
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      Style = tbsSeparator
    end
  end
  object mnuPopup: TPopupMenu[2]
    left = 224
    top = 80
    object popShow: TMenuItem
      Action = actShow
      Default = True
      OnClick = actShowClick
    end
    object popToggle: TMenuItem
      Action = actToggleBreakPoint
      OnClick = actToggleBreakPointExecute
    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[3]
    left = 48
    top = 80
    object actShow: TAction
      Caption = 'Show'
      OnExecute = actShowClick
    end
    object actSetCurrent: TAction
      Caption = 'Current'
      OnExecute = actSetAsCurrentClick
    end
    object actCopyAll: TAction
      Caption = 'Copy All'
      OnExecute = actCopyAllClick
    end
    object actViewMore: TAction
      Category = 'View'
      Caption = 'More'
      OnExecute = actViewMoreExecute
    end
    object actViewGoto: TAction
      Category = 'View'
      Caption = 'Goto'
      OnExecute = actViewGotoExecute
    end
    object actViewLimit: TAction
      Category = 'View'
      Caption = '10'
      OnExecute = actViewLimitExecute
    end
    object actViewTop: TAction
      Category = 'View'
      Caption = 'Top'
      OnExecute = actViewTopExecute
    end
    object actViewBottom: TAction
      Category = 'View'
      Caption = 'Bottom'
      OnExecute = actViewBottomExecute
    end
    object actToggleBreakPoint: TAction
      Caption = 'Toggle Breakpoint'
      OnExecute = actToggleBreakPointExecute
    end
  end
  object mnuLimit: TPopupMenu[4]
    left = 136
    top = 80
    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
end