home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Demos / Activex / Oleauto / Word8 / WORDAUTO.DFM / WORDAUTO.txt
Text File  |  1999-08-11  |  2KB  |  90 lines
  1. object Form1: TForm1
  2.   Left = 259
  3.   Top = 138
  4.   Width = 261
  5.   Height = 433
  6.   Caption = 'Word 97 events'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -14
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = True
  14.   ShowHint = True
  15.   OnClose = FormClose
  16.   PixelsPerInch = 120
  17.   TextHeight = 16
  18.   object Label1: TLabel
  19.     Left = 10
  20.     Top = 128
  21.     Width = 59
  22.     Height = 16
  23.     Hint = 'Written by Anders Ohlsson. Copyright 1998 by Inprise Corp.'
  24.     Caption = 'Event log:'
  25.   end
  26.   object LaunchButton: TButton
  27.     Left = 10
  28.     Top = 10
  29.     Width = 109
  30.     Height = 31
  31.     Hint = 'Launch Word 97'
  32.     Caption = 'Launch Word'
  33.     TabOrder = 0
  34.     OnClick = LaunchButtonClick
  35.   end
  36.   object CloseButton: TButton
  37.     Left = 128
  38.     Top = 10
  39.     Width = 112
  40.     Height = 31
  41.     Hint = 'Close Word 97'
  42.     Caption = 'Close Word'
  43.     Enabled = False
  44.     TabOrder = 1
  45.     OnClick = CloseButtonClick
  46.   end
  47.   object Memo1: TMemo
  48.     Left = 10
  49.     Top = 148
  50.     Width = 228
  51.     Height = 237
  52.     Hint = 
  53.       'This is a log of all the events that Word 97 has fired off so fa' +
  54.       'r'
  55.     ReadOnly = True
  56.     TabOrder = 5
  57.   end
  58.   object NewDocButton: TButton
  59.     Left = 10
  60.     Top = 49
  61.     Width = 109
  62.     Height = 31
  63.     Hint = 'Open a new document'
  64.     Caption = 'New document'
  65.     Enabled = False
  66.     TabOrder = 2
  67.     OnClick = NewDocButtonClick
  68.   end
  69.   object TypeTextButton: TButton
  70.     Left = 128
  71.     Top = 49
  72.     Width = 110
  73.     Height = 31
  74.     Hint = 'Send the text to the active document in Word 97'
  75.     Caption = 'Type text'
  76.     Enabled = False
  77.     TabOrder = 3
  78.     OnClick = TypeTextButtonClick
  79.   end
  80.   object WordText: TEdit
  81.     Left = 10
  82.     Top = 89
  83.     Width = 228
  84.     Height = 24
  85.     Hint = 'This is the text you'#39'll send to Word 97 by hitting "Type Text"'
  86.     TabOrder = 4
  87.     Text = 'Delphi is RAD!!!'
  88.   end
  89. end
  90.