home *** CD-ROM | disk | FTP | other *** search
- object AutoObjectExpert: TAutoObjectExpert
- Left = 237
- Top = 102
- ActiveControl = NewClassName
- BorderStyle = bsDialog
- Caption = 'Automation Object Wizard'
- ClientHeight = 173
- ClientWidth = 369
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 353
- Height = 122
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 20
- Top = 23
- Width = 93
- Height = 16
- Caption = '&Class Name:'
- FocusControl = NewClassName
- end
- object Label2: TLabel
- Left = 20
- Top = 50
- Width = 93
- Height = 16
- Caption = '&OLE Class Name:'
- FocusControl = OleClassName
- end
- object Label3: TLabel
- Left = 20
- Top = 78
- Width = 93
- Height = 16
- Caption = '&Description:'
- FocusControl = Description
- end
- object Label4: TLabel
- Left = 20
- Top = 104
- Width = 93
- Height = 16
- Caption = '&Instancing:'
- FocusControl = Instancing
- end
- object NewClassName: TEdit
- Left = 120
- Top = 18
- Width = 145
- Height = 24
- TabOrder = 0
- OnChange = NewClassNameChange
- end
- object OKButton: TButton
- Left = 128
- Top = 140
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 4
- OnClick = OKButtonClick
- end
- object CancelButton: TButton
- Left = 207
- Top = 140
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- end
- object HelpButton: TButton
- Left = 287
- Top = 140
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 6
- OnClick = HelpButtonClick
- end
- object OleClassName: TEdit
- Left = 120
- Top = 45
- Width = 145
- Height = 24
- TabOrder = 1
- end
- object Description: TEdit
- Left = 120
- Top = 72
- Width = 225
- Height = 24
- TabOrder = 2
- end
- object Instancing: TComboBox
- Left = 120
- Top = 99
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Internal'
- 'Single Instance'
- 'Multiple Instance')
- TabOrder = 3
- end
- end
-