📄 unit1.~dfm
字号:
object Form1: TForm1
Left = 300
Top = -6
Width = 934
Height = 689
Align = alClient
AutoSize = True
Caption = #20307#26684#26816#26597
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object shenzhi1: TLabel
Left = 32
Top = 120
Width = 57
Height = 20
AutoSize = False
Caption = #31070#26234
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 926
Height = 655
Align = alClient
AutoSize = True
Caption = 'Panel1'
Color = clBtnText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Panel5: TPanel
Left = 1
Top = 1
Width = 924
Height = 653
Align = alClient
Caption = 'Panel5'
TabOrder = 0
object baocun: TButton
Left = 904
Top = 488
Width = 75
Height = 33
Caption = #20445#23384
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = baocunClick
end
object fanhui: TButton
Left = 904
Top = 552
Width = 75
Height = 33
Caption = #36820#22238
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object PageControl1: TPageControl
Left = 72
Top = 152
Width = 809
Height = 497
ActivePage = TabSheet4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabIndex = 3
TabOrder = 2
object TabSheet1: TTabSheet
Caption = #20307#26684#26816#26597
OnHide = TabSheet1Hide
object tiwen1: TLabel
Left = 48
Top = 32
Width = 81
Height = 16
AutoSize = False
Caption = #20307#28201#65288'T'#65289':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object huxi1: TLabel
Left = 48
Top = 80
Width = 89
Height = 16
AutoSize = False
Caption = #21628#21560#65288'R'#65289#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object xueya1: TLabel
Left = 48
Top = 136
Width = 89
Height = 24
AutoSize = False
Caption = #34880#21387#65288'BT'#65289':'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object maibo1: TLabel
Left = 336
Top = 40
Width = 89
Height = 16
AutoSize = False
Caption = #33033#25615#65288'P'#65289
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 552
Top = 40
Width = 49
Height = 16
AutoSize = False
Caption = #20998'/'#27425
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 272
Top = 32
Width = 3
Height = 16
end
object Label18: TLabel
Left = 272
Top = 32
Width = 16
Height = 20
AutoSize = False
Caption = #176'C'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 272
Top = 80
Width = 41
Height = 16
AutoSize = False
Caption = #20998'/'#27425
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 272
Top = 128
Width = 37
Height = 16
AutoSize = False
Caption = 'mmhg'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object tiwenEdit: TEdit
Left = 144
Top = 32
Width = 121
Height = 24
TabOrder = 0
end
object huxiEdit: TEdit
Left = 144
Top = 80
Width = 121
Height = 24
TabOrder = 1
end
object xueyaEdit: TEdit
Left = 144
Top = 128
Width = 121
Height = 24
TabOrder = 2
end
object maiboEdit: TEdit
Left = 424
Top = 40
Width = 121
Height = 24
TabOrder = 3
end
end
object TabSheet2: TTabSheet
Caption = #25972#20307#29366#20917
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ImageIndex = 1
ParentFont = False
OnHide = TabSheet2Hide
object GroupBox1: TGroupBox
Left = 560
Top = 321
Width = 185
Height = 105
Caption = #40664#35748#36873#39033
Color = clSkyBlue
ParentColor = False
TabOrder = 0
object CheckBox6: TCheckBox
Left = 40
Top = 56
Width = 97
Height = 17
Caption = #26410#35265#24322#24120
TabOrder = 0
end
end
object fayuGroupBox2: TGroupBox
Left = 24
Top = 6
Width = 521
Height = 57
Caption = #21457#32946
TabOrder = 1
object fayuzhengchang1RadioButton: TRadioButton
Left = 112
Top = 24
Width = 65
Height = 17
Caption = #27491#24120
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object fayulianghaoRadioButton: TRadioButton
Left = 232
Top = 24
Width = 57
Height = 17
Caption = #33391#22909
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object fayuchaochangRadioButton: TRadioButton
Left = 352
Top = 24
Width = 57
Height = 17
Caption = #36229#24120
TabOrder = 2
end
end
object yingyangGroupBox3: TGroupBox
Left = 24
Top = 67
Width = 521
Height = 49
Caption = #33829#20859
TabOrder = 2
object yingyanglianghaoRadioButton: TRadioButton
Left = 112
Top = 16
Width = 57
Height = 17
Caption = #33391#22909
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object yingyangzhongdengRadioButton: TRadioButton
Left = 232
Top = 16
Width = 113
Height = 17
Caption = #20013#31561
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object yingyangbuliangRadioButton: TRadioButton
Left = 360
Top = 16
Width = 113
Height = 17
Caption = #19981#33391
TabOrder = 2
end
end
object shenzhiGroupBox4: TGroupBox
Left = 24
Top = 120
Width = 521
Height = 49
Caption = #31070#26234
TabOrder = 3
object shenzhimohuRadioButton: TRadioButton
Left = 232
Top = 16
Width = 113
Height = 17
Caption = #27169#31946
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object shenzhiyiwangRadioButton: TRadioButton
Left = 360
Top = 16
Width = 113
Height = 17
Caption = #36951#24536
TabOrder = 1
end
object shenzhiqingchuRadioButton: TRadioButton
Left = 112
Top = 16
Width = 113
Height = 17
Caption = #28165#26970
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
end
object tiweiGroupBox5: TGroupBox
Left = 24
Top = 176
Width = 521
Height = 49
Caption = #20307#20301
TabOrder = 4
object tiweiziranRadioButton: TRadioButton
Left = 112
Top = 24
Width = 113
Height = 17
Caption = #33258#28982
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -