object CallStackDlg: TCallStackDlg
  Caption = 'CallStack'
  ClientHeight = 200
  ClientWidth = 500
  Visible = True
  HorzScrollBar.Page = 501
  VertScrollBar.Page = 201
  Left = 843
  Height = 200
  Top = 202
  Width = 500
  object lvCallStack: TListView
    Align = alClient
    Columns = <    
      item
        Caption = 'Source'
        ImageIndex = -1
        Visible = True
        Width = 150
      end    
      item
        Caption = 'Line'
        ImageIndex = -1
        Visible = True
        Width = 50
      end    
      item
        Caption = 'Function'
        ImageIndex = -1
        Visible = True
      end>
    ViewStyle = vsReport
    OnDblClick = lvCallStackDBLCLICK
    Height = 200
    Width = 500
  end
  object mnuPopup: TPopupMenu
    left = 66
    top = 88
    object popShow: TMenuItem
      Caption = 'Show'
      Default = True
      OnClick = popShowClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object popSetAsCurrent: TMenuItem
      Caption = 'Set as current'
    end
  end
end