home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 221
- Top = 110
- Width = 268
- Height = 130
- ActiveControl = BGetHeight
- Caption = 'Property Form'
- Color = clNavy
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- PixelsPerInch = 96
- Scaled = False
- OnCreate = FormCreate
- TextHeight = 16
- object BGetHeight: TButton
- Left = 8
- Top = 64
- Width = 113
- Height = 30
- Caption = 'Get Height'
- TabOrder = 0
- OnClick = BGetHeightClick
- end
- object BSetHeight: TButton
- Left = 128
- Top = 64
- Width = 122
- Height = 30
- Caption = 'Set Height'
- TabOrder = 1
- OnClick = BSetHeightClick
- end
- object Edit1: TEdit
- Left = 16
- Top = 8
- Width = 233
- Height = 27
- Color = clBlue
- Font.Color = clYellow
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- Text = 'Edit1'
- end
- end
-