home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 215
- Top = 105
- AutoScroll = False
- Width = 420
- Height = 270
- Caption = 'Dynamic Component Creation'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object CreationArea: TPanel
- Left = 0
- Top = 117
- Width = 412
- Height = 126
- Align = alClient
- TabOrder = 0
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 412
- Height = 117
- Align = alTop
- TabOrder = 1
- object GroupBox1: TGroupBox
- Left = 8
- Top = 4
- Width = 397
- Height = 105
- Caption = 'Component Info'
- TabOrder = 0
- object Label1: TLabel
- Left = 20
- Top = 20
- Width = 69
- Height = 13
- Caption = '&Class name:'
- FocusControl = ClassList
- end
- object Label2: TLabel
- Left = 76
- Top = 48
- Width = 13
- Height = 13
- Caption = '&X:'
- FocusControl = XPos
- end
- object Label3: TLabel
- Left = 168
- Top = 48
- Width = 13
- Height = 13
- Caption = '&Y:'
- FocusControl = YPos
- end
- object Label4: TLabel
- Left = 12
- Top = 72
- Width = 79
- Height = 13
- Caption = '&Text/Caption:'
- FocusControl = TextProp
- end
- object ClassList: TComboBox
- Left = 96
- Top = 18
- Width = 193
- Height = 20
- Style = csDropDownList
- ItemHeight = 13
- Sorted = True
- TabOrder = 0
- end
- object XPos: TEdit
- Left = 96
- Top = 43
- Width = 60
- Height = 20
- TabOrder = 1
- Text = '10'
- end
- object YPos: TEdit
- Left = 192
- Top = 43
- Width = 60
- Height = 20
- TabOrder = 2
- Text = '10'
- end
- object Button1: TButton
- Left = 308
- Top = 16
- Width = 73
- Height = 25
- Caption = 'C&reate!'
- TabOrder = 4
- OnClick = Button1Click
- end
- object TextProp: TEdit
- Left = 96
- Top = 68
- Width = 193
- Height = 20
- TabOrder = 3
- end
- end
- end
- end
-