home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Demos / Activex / Olectnrs / MDICHILD.DFM / MDICHILD.txt
Text File  |  1999-08-11  |  3KB  |  134 lines
  1. object MDIChildForm: TMDIChildForm
  2.   Left = 425
  3.   Top = 134
  4.   AutoScroll = False
  5.   Caption = 'Untitled'
  6.   ClientHeight = 189
  7.   ClientWidth = 336
  8.   Font.Color = clWindowText
  9.   Font.Height = -10
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   FormStyle = fsMDIChild
  13.   Menu = MainMenu1
  14.   Position = poDefault
  15.   ShowHint = True
  16.   Visible = True
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCloseQuery = FormCloseQuery
  20.   OnCreate = FormCreate
  21.   PixelsPerInch = 96
  22.   TextHeight = 13
  23.   object Panel1: TPanel
  24.     Left = 0
  25.     Top = 0
  26.     Width = 336
  27.     Height = 189
  28.     Align = alClient
  29.     BevelOuter = bvNone
  30.     BorderWidth = 5
  31.     Caption = 'Panel1'
  32.     TabOrder = 0
  33.     object OleContainer1: TOleContainer
  34.       Left = 5
  35.       Top = 5
  36.       Width = 326
  37.       Height = 179
  38.       AutoVerbMenu = False
  39.       Align = alClient
  40.       Caption = 'OleContainer1'
  41.       PopupMenu = LocalMenu
  42.       TabOrder = 0
  43.       OnActivate = OleContainer1Activate
  44.     end
  45.   end
  46.   object LocalMenu: TPopupMenu
  47.     OnPopup = LocalMenuPopup
  48.     Left = 45
  49.     Top = 9
  50.     object InsertObject1: TMenuItem
  51.       Caption = '&Insert Object'
  52.       Hint = 'Insert an OLE object'
  53.       ShortCut = 0
  54.       OnClick = InsertObject1Click
  55.     end
  56.     object CopyObject1: TMenuItem
  57.       Caption = '&Copy Object'
  58.       Hint = 'Copy OLE object to the clipboard'
  59.       ShortCut = 0
  60.       OnClick = CopyObject1Click
  61.     end
  62.     object DeleteObject1: TMenuItem
  63.       Caption = '&Delete Object'
  64.       Hint = 'Delete OLE object'
  65.       ShortCut = 0
  66.       OnClick = DeleteObject1Click
  67.     end
  68.     object Properties1: TMenuItem
  69.       Caption = '&Object Properties...'
  70.       Hint = 'Display the OLE objects properties'
  71.       ShortCut = 0
  72.       OnClick = Properties1Click
  73.     end
  74.   end
  75.   object MainMenu1: TMainMenu
  76.     Left = 11
  77.     Top = 9
  78.     object Edit1: TMenuItem
  79.       Caption = '&Edit'
  80.       GroupIndex = 1
  81.       ShortCut = 0
  82.       OnClick = Edit1Click
  83.       object Cut1: TMenuItem
  84.         Caption = '&Cut'
  85.         Hint = 'Cut active object to the clipboard'
  86.         ShortCut = 0
  87.         OnClick = Cut1Click
  88.       end
  89.       object Copy1: TMenuItem
  90.         Caption = 'C&opy'
  91.         Hint = 'Copy active object to the clipboard'
  92.         ShortCut = 0
  93.         OnClick = Copy1Click
  94.       end
  95.       object Paste1: TMenuItem
  96.         Caption = '&Paste'
  97.         Hint = 'Insert clipboard contents'
  98.         ShortCut = 0
  99.         OnClick = Paste1Click
  100.       end
  101.       object PasteSpecial1: TMenuItem
  102.         Caption = 'Paste &Special...'
  103.         Hint = 
  104.           'Insert clipboard contents as an embedded object, linked object o' +
  105.           'r other format object'
  106.         ShortCut = 0
  107.         OnClick = PasteSpecial1Click
  108.       end
  109.       object CLear1: TMenuItem
  110.         Caption = 'C&lear'
  111.         Hint = 'Delete active OLE object'
  112.         ShortCut = 0
  113.         OnClick = DeleteObject1Click
  114.       end
  115.       object N3: TMenuItem
  116.         Caption = '-'
  117.         ShortCut = 0
  118.       end
  119.       object Object2: TMenuItem
  120.         Caption = '&Object Properties'
  121.         Hint = 'Display, edit active object properties'
  122.         ShortCut = 0
  123.         OnClick = Properties1Click
  124.       end
  125.       object Insert1: TMenuItem
  126.         Caption = '&Insert Object...'
  127.         Hint = 'Insert an OLE object'
  128.         ShortCut = 0
  129.         OnClick = InsertObject1Click
  130.       end
  131.     end
  132.   end
  133. end
  134.