object CallStackDlg: TCallStackDlg
  ActiveControl = lvCallStack
  Caption = 'CallStack'
  ClientHeight = 200
  ClientWidth = 500
  PixelsPerInch = 96
  Visible = True
  HorzScrollBar.Page = 499
  VertScrollBar.Page = 199
  Left = 843
  Height = 200
  Top = 202
  Width = 500
  object lvCallStack: TListView
    Align = alClient
    Columns = <    
      item
        Caption = 'Source'
        Width = 150
      end    
      item
        Caption = 'Line'
      end    
      item
        Caption = 'Function'
      end>
    PopupMenu = mnuPopup
    TabOrder = 0
    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
    object popCopyAll: TMenuItem
      Caption = 'Copy all'
      ShortCut = 16451
      OnClick = popCopyAllClick
    end
  end
end