home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Bin / CORIDE50.BPL / 0 / RCDATA / TCALLSTACKWINDOW / TCALLSTACKWINDOW.txt < prev   
Text File  |  1999-08-11  |  2KB  |  86 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 = [goRangeSelect, 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 csViewLocals: TMenuItem
  55.       Caption = 'View &Locals'
  56.       Visible = False
  57.       OnClick = csViewLocalsClick
  58.     end
  59.     object LocalMenuItem: TMenuItem
  60.       Caption = 'Local Menu'
  61.       Visible = False
  62.       OnClick = LocalMenuItemClick
  63.     end
  64.     object ZoomWindowItem: TMenuItem
  65.       Action = ZoomWindowCmd
  66.     end
  67.     object CloseWindowItem: TMenuItem
  68.       Caption = 'Close Window'
  69.       Visible = False
  70.       OnClick = CloseWindowItemClick
  71.     end
  72.     object TMenuItem
  73.       Caption = '-'
  74.     end
  75.     object csStayOnTop: TMenuItem
  76.       Action = StayOnTopCmd
  77.     end
  78.     object N1: TMenuItem
  79.       Caption = '-'
  80.     end
  81.     object DockableItem: TMenuItem
  82.       Action = DockableCmd
  83.     end
  84.   end
  85. end
  86.