home *** CD-ROM | disk | FTP | other *** search
- object ChangeFont: TChangeFont
- Left = 184
- Top = 136
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Change Font'
- ClientHeight = 265
- ClientWidth = 519
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 120
- TextHeight = 20
- object GroupBox1: TGroupBox
- Left = 4
- Top = 8
- Width = 185
- Height = 213
- Caption = 'Font Size'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- object RadioButton1: TRadioButton
- Left = 16
- Top = 24
- Width = 145
- Height = 17
- Caption = 'One (smallest)'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- end
- object RadioButton2: TRadioButton
- Left = 16
- Top = 48
- Width = 113
- Height = 17
- Caption = 'Two'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 1
- end
- object RadioButton3: TRadioButton
- Left = 16
- Top = 72
- Width = 113
- Height = 17
- Caption = 'Three'
- Checked = True
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 2
- TabStop = True
- end
- object RadioButton4: TRadioButton
- Left = 16
- Top = 96
- Width = 113
- Height = 17
- Caption = 'Four'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- end
- object RadioButton5: TRadioButton
- Left = 16
- Top = 120
- Width = 113
- Height = 17
- Caption = 'Five'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 4
- end
- object RadioButton6: TRadioButton
- Left = 16
- Top = 144
- Width = 113
- Height = 17
- Caption = 'Six'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 5
- end
- object RadioButton7: TRadioButton
- Left = 16
- Top = 168
- Width = 153
- Height = 21
- Caption = 'Seven (largest)'
- Font.Color = clMaroon
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- end
- end
- object BitBtn2: TBitBtn
- Left = 139
- Top = 228
- Width = 89
- Height = 33
- TabOrder = 1
- OnClick = BitBtn2Click
- Kind = bkOK
- end
- object BitBtn3: TBitBtn
- Left = 291
- Top = 228
- Width = 89
- Height = 33
- TabOrder = 2
- OnClick = BitBtn3Click
- Kind = bkCancel
- end
- object GroupBox2: TGroupBox
- Left = 196
- Top = 8
- Width = 317
- Height = 157
- Caption = 'Face'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 3
- object Label1: TLabel
- Left = 12
- Top = 25
- Width = 53
- Height = 20
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'One:'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 12
- Top = 60
- Width = 53
- Height = 20
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Two:'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label3: TLabel
- Left = 12
- Top = 94
- Width = 53
- Height = 20
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Three:'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 12
- Top = 127
- Width = 53
- Height = 20
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Four:'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Edit2: TEdit
- Left = 72
- Top = 124
- Width = 237
- Height = 28
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- ReadOnly = True
- TabOrder = 0
- end
- object ComboBox1: TComboBox
- Left = 72
- Top = 21
- Width = 237
- Height = 28
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ItemHeight = 20
- ParentFont = False
- Sorted = True
- TabOrder = 1
- OnChange = ComboBox1Change
- end
- object ComboBox2: TComboBox
- Left = 72
- Top = 56
- Width = 237
- Height = 28
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ItemHeight = 20
- ParentFont = False
- Sorted = True
- TabOrder = 2
- OnChange = ComboBox1Change
- end
- object ComboBox3: TComboBox
- Left = 72
- Top = 90
- Width = 237
- Height = 28
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ItemHeight = 20
- ParentFont = False
- Sorted = True
- TabOrder = 3
- OnChange = ComboBox1Change
- end
- end
- object Panel1: TPanel
- Left = 196
- Top = 172
- Width = 317
- Height = 49
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 4
- object BitBtn1: TBitBtn
- Left = 34
- Top = 8
- Width = 89
- Height = 33
- Caption = 'Color'
- Font.Color = clBlue
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 0
- OnClick = BitBtn1Click
- end
- object Edit1: TEdit
- Left = 146
- Top = 14
- Width = 133
- Height = 28
- TabStop = False
- Color = clSilver
- ReadOnly = True
- TabOrder = 1
- end
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 484
- Top = 232
- end
- end
-