home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / BIN / CORIDE40.BPL / 0 / RCDATA / TCALLSTACKWINDOW / TCALLSTACKWINDOW.txt < prev   
Text File  |  1998-06-16  |  2KB  |  78 lines
  1. inherited CallStackWindow: TCallStackWindow
  2.   Left = 328
  3.   Top = 287
  4.   Width = 294
  5.   Height = 161
  6.   HelpContext = 1350
  7.   HorzScrollBar.Increment = 25
  8.   VertScrollBar.Increment = 12
  9.   ActiveControl = CallStack
  10.   Caption = 'Call stack'
  11.   Icon.Data = {<image000.ico>}
  12.   PopupMenu = CallStackMenu
  13.   Position = poScreenCenter
  14.   OnHide = FormHide
  15.   OnResize = FormResize
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object CallStack: TDrawGrid [0]
  20.     Left = 0
  21.     Top = 0
  22.     Width = 286
  23.     Height = 134
  24.     Align = alClient
  25.     ColCount = 1
  26.     FixedCols = 0
  27.     RowCount = 1
  28.     FixedRows = 0
  29.     Options = [goDrawFocusSelected, goThumbTracking]
  30.     TabOrder = 0
  31.     OnDblClick = CallStackDblClick
  32.     OnDrawCell = CallStackDrawCell
  33.     OnKeyPress = CallStackKeyPress
  34.   end
  35.   inherited DockActionList: TActionList
  36.     inherited StayOnTopCmd: TAction
  37.       Caption = 'Stay on &Top'
  38.     end
  39.   end
  40.   object CallStackMenu: TPopupMenu
  41.     HelpContext = 4705
  42.     Left = 28
  43.     Top = 76
  44.     object csViewSource: TMenuItem
  45.       Caption = '&View Source'
  46.       HelpContext = 2225
  47.       OnClick = CallStackDblClick
  48.     end
  49.     object csEditSource: TMenuItem
  50.       Caption = 'Edit &Source'
  51.       HelpContext = 2226
  52.       OnClick = EditSourceClick
  53.     end
  54.     object LocalMenuItem: TMenuItem
  55.       Caption = 'Local Menu'
  56.       Visible = False
  57.       OnClick = LocalMenuItemClick
  58.     end
  59.     object ZoomWindowItem: TMenuItem
  60.       Caption = 'Zoom Window'
  61.       Visible = False
  62.       OnClick = ZoomWindowItemClick
  63.     end
  64.     object TMenuItem
  65.       Caption = '-'
  66.     end
  67.     object csStayOnTop: TMenuItem
  68.       Action = StayOnTopCmd
  69.     end
  70.     object N1: TMenuItem
  71.       Caption = '-'
  72.     end
  73.     object DockableItem: TMenuItem
  74.       Action = DockableCmd
  75.     end
  76.   end
  77. end
  78.