📄 usize.dfm
字号:
object Frmsize: TFrmsize
Left = 270
Top = 104
Width = 304
Height = 321
Caption = '定制尺码'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 0
Width = 296
Height = 41
Align = alTop
BevelInner = bvLowered
BorderStyle = bsSingle
TabOrder = 0
object Label1: TLabel
Left = 32
Top = 12
Width = 24
Height = 12
Caption = '尺码'
end
object SpeedButton1: TSpeedButton
Left = 220
Top = 6
Width = 23
Height = 22
OnClick = SpeedButton1Click
end
object Edit1: TEdit
Left = 96
Top = 8
Width = 121
Height = 20
TabOrder = 0
OnChange = Edit1Change
OnClick = Edit1Change
end
end
object LstSet: TCheckListBox
Left = 0
Top = 41
Width = 296
Height = 214
Align = alClient
Columns = 3
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ImeMode = imChinese
IntegralHeight = True
ItemHeight = 15
Items.Strings = (
'35'
'36'
'37'
'38'
'39'
'40'
'41'
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30')
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 1
OnClick = LstSetClick
OnDblClick = LstSetDblClick
end
object Panel2: TPanel
Left = 0
Top = 258
Width = 296
Height = 36
Align = alBottom
BevelInner = bvLowered
TabOrder = 2
object Btnok: TBitBtn
Left = 45
Top = 5
Width = 75
Height = 25
Caption = ' 确定'
Default = True
ModalResult = 1
TabOrder = 0
NumGlyphs = 2
end
object BitExit: TBitBtn
Left = 184
Top = 6
Width = 75
Height = 25
Caption = '关闭'
ModalResult = 2
TabOrder = 1
NumGlyphs = 2
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -