2026-07-11 15:55:22 +08:00

326 lines
6.3 KiB
Plaintext

object Form2: TForm2
Left = 394
Top = 281
BorderStyle = bsDialog
Caption = 'Font Setup'
ClientHeight = 199
ClientWidth = 351
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 0
Top = 166
Width = 351
Height = 3
end
object Button1: TButton
Left = 81
Top = 174
Width = 63
Height = 22
Caption = 'Add '
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 196
Top = 174
Width = 63
Height = 22
Caption = 'Cancel'
TabOrder = 1
OnClick = Button2Click
end
object fontpanel: TPanel
Left = 4
Top = 4
Width = 342
Height = 155
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 2
Visible = False
object Label3: TLabel
Left = 12
Top = 134
Width = 9
Height = 13
Caption = 'Id'
end
object Label1: TLabel
Left = 109
Top = 134
Width = 28
Height = 13
Caption = 'Width'
end
object Label2: TLabel
Left = 188
Top = 134
Width = 31
Height = 13
Caption = 'Height'
end
object Label6: TLabel
Left = 109
Top = 33
Width = 28
Height = 13
Caption = 'Name'
end
object Label4: TLabel
Left = 272
Top = 32
Width = 20
Height = 13
Caption = 'Size'
end
object Label5: TLabel
Left = 12
Top = 32
Width = 9
Height = 13
Caption = 'Id'
end
object ComboBox1: TComboBox
Left = 29
Top = 130
Width = 72
Height = 21
Style = csDropDownList
Color = clBtnFace
Enabled = False
ItemHeight = 13
ItemIndex = 0
TabOrder = 0
Text = '0-127'
Items.Strings = (
'0-127'
'0-255')
end
object SpinEdit1: TSpinEdit
Left = 143
Top = 130
Width = 44
Height = 22
Color = clBtnFace
Enabled = False
MaxValue = 1024
MinValue = 1
TabOrder = 1
Value = 5
end
object SpinEdit2: TSpinEdit
Left = 224
Top = 130
Width = 44
Height = 22
Color = clBtnFace
Enabled = False
MaxValue = 576
MinValue = 1
TabOrder = 2
Value = 9
end
object tFontName: TComboBox
Left = 143
Top = 29
Width = 127
Height = 21
Style = csDropDownList
Color = clBtnFace
Enabled = False
ItemHeight = 13
TabOrder = 3
OnChange = tFontNameChange
end
object RadioButton3: TRadioButton
Left = 2
Top = 6
Width = 113
Height = 17
Caption = 'System Font'
Checked = True
TabOrder = 4
TabStop = True
OnClick = RadioButton3Click
end
object tFontsize: TSpinEdit
Left = 296
Top = 28
Width = 39
Height = 22
Color = clBtnFace
Enabled = False
MaxValue = 250
MinValue = 1
TabOrder = 5
Value = 7
OnChange = tFontsizeChange
end
object RadioButton4: TRadioButton
Left = 2
Top = 107
Width = 113
Height = 17
Caption = 'User-Defined Font'
TabOrder = 6
OnClick = RadioButton4Click
end
object Panel1: TPanel
Left = 10
Top = 52
Width = 327
Height = 49
BevelOuter = bvLowered
Color = clBlack
TabOrder = 7
object Label7: TLabel
Left = 267
Top = 3
Width = 31
Height = 13
Caption = 'Width:'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 267
Top = 29
Width = 34
Height = 13
Caption = 'Height:'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
end
object Label_p: TTntLabel
Left = 3
Top = 19
Width = 3
Height = 13
Font.Charset = ANSI_CHARSET
Font.Color = clWindow
Font.Height = -11
Font.Name = 'Microsoft Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 211
Top = 10
Width = 36
Height = 16
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clBtnFace
Ctl3D = False
Enabled = False
ParentCtl3D = False
TabOrder = 0
Text = 'A'
OnChange = Edit1Change
end
end
object ComboBox2: TComboBox
Left = 29
Top = 28
Width = 73
Height = 21
Style = csDropDownList
Color = clBtnFace
Enabled = False
ItemHeight = 13
ItemIndex = 0
TabOrder = 8
Text = '0-127'
OnChange = ComboBox2Change
Items.Strings = (
'0-127'
'0-255')
end
end
object bitmapPanel: TPanel
Left = 4
Top = 4
Width = 342
Height = 155
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 3
Visible = False
object Label10: TLabel
Left = 52
Top = 96
Width = 28
Height = 13
Caption = 'Width'
end
object Label11: TLabel
Left = 151
Top = 96
Width = 31
Height = 13
Caption = 'Height'
end
object Label12: TLabel
Left = 52
Top = 49
Width = 28
Height = 13
Caption = 'Name'
end
object SpinEdit3: TSpinEdit
Left = 87
Top = 92
Width = 52
Height = 22
Color = clWhite
MaxValue = 1024
MinValue = 4
TabOrder = 0
Value = 16
end
object SpinEdit4: TSpinEdit
Left = 187
Top = 92
Width = 52
Height = 22
Color = clWhite
MaxValue = 512
MinValue = 4
TabOrder = 1
Value = 16
end
object Edit2: TEdit
Left = 86
Top = 47
Width = 149
Height = 21
MaxLength = 8
TabOrder = 2
OnKeyPress = Edit2KeyPress
end
end
end