home *** CD-ROM | disk | FTP | other *** search
- object OLEWin: TOLEWin
- Left = 235
- Top = 99
- AutoScroll = False
- Width = 553
- Height = 488
- Caption = 'Ole Container'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Menu = MainMenu1
- ObjectMenuItem = Object1
- PixelsPerInch = 96
- Position = poDefaultPosOnly
- OnDragDrop = DoDrop
- TextHeight = 13
- object ScrollBox1: TScrollBox
- Left = 0
- Top = 41
- Width = 545
- Height = 344
- Align = alClient
- TabOrder = 0
- object OleContainer1: TOleContainer
- Left = 16
- Top = 40
- Width = 329
- Height = 137
- TabOrder = 0
- OnStatusLineEvent = StatusLineEvent
- end
- end
- object SpdBar: TPanel
- Left = 0
- Top = 0
- Width = 545
- Height = 41
- Align = alTop
- Caption = 'Speed Bar'
- TabOrder = 1
- end
- object MsgBar: TPanel
- Left = 0
- Top = 385
- Width = 545
- Height = 57
- Align = alBottom
- Caption = 'Message Bar'
- Locked = True
- TabOrder = 2
- end
- object MainMenu1: TMainMenu
- Left = 208
- Top = 8
- object File1: TMenuItem
- Caption = '&File'
- object New1: TMenuItem
- Caption = 'New'
- OnClick = NewOleWin1Click
- end
- object Open1: TMenuItem
- Caption = 'Open'
- OnClick = Open1Click
- end
- object Save1: TMenuItem
- Caption = 'Save'
- OnClick = Save1Click
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'Exit'
- OnClick = Exit1Click
- end
- end
- object Edit1: TMenuItem
- Caption = '&Edit'
- GroupIndex = 1
- OnClick = Edit1Click
- object Cut1: TMenuItem
- Caption = 'Cut'
- OnClick = Cut1Click
- end
- object Copy1: TMenuItem
- Caption = 'Copy'
- OnClick = Copy1Click
- end
- object Paste1: TMenuItem
- Caption = 'Paste'
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object InsertObject1: TMenuItem
- Caption = 'Insert Object...'
- OnClick = InsertObject1Click
- end
- object PasteSpecial1: TMenuItem
- Caption = 'Paste Special...'
- OnClick = PasteSpecial1Click
- end
- object Links1: TMenuItem
- Caption = 'Links...'
- OnClick = Links1Click
- end
- object N3: TMenuItem
- Caption = '-'
- end
- object Object1: TMenuItem
- Caption = 'Object'
- Enabled = False
- end
- end
- object Object2: TMenuItem
- Caption = '&Object'
- GroupIndex = 1
- OnClick = Object1Click
- object ResetObject1: TMenuItem
- Caption = 'Reset Object...'
- OnClick = ResetObjectClick
- end
- object PasteInObject1: TMenuItem
- Caption = 'Paste In Object...'
- OnClick = PasteInObject1Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- GroupIndex = 5
- end
- end
- object OpenDialog1: TOpenDialog
- Filter = 'All Files (*.*)|*.*'
- Left = 425
- Top = 74
- end
- object SaveDialog1: TSaveDialog
- Filter = 'All Files (*.*)|*.*'
- Left = 473
- Top = 74
- end
- end
-