📄 unitframedialogs.dfm
字号:
object FrameDialogs: TFrameDialogs
Left = 0
Top = 0
Width = 574
Height = 520
TabOrder = 0
OnResize = FrameResize
object sGroupBox1: TsGroupBox
Left = 21
Top = 15
Width = 393
Height = 254
Caption = 'sMessageDlg function'
TabOrder = 0
SkinData.SkinSection = 'GROUPBOX'
object sEdit1: TsEdit
Left = 40
Top = 34
Width = 255
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Message text'
SkinData.SkinSection = 'EDIT'
BoundLabel.Indent = 0
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
end
object sGroupBox2: TsGroupBox
Left = 190
Top = 73
Width = 175
Height = 163
Caption = 'Message type'
TabOrder = 1
SkinData.SkinSection = 'GROUPBOX'
object sRadioButton1: TsRadioButton
Left = 16
Top = 29
Width = 64
Height = 19
Caption = 'Warning'
Checked = True
TabOrder = 0
TabStop = True
SkinData.SkinSection = 'RADIOBUTTON'
end
object sRadioButton2: TsRadioButton
Left = 16
Top = 52
Width = 46
Height = 19
Caption = 'Error'
TabOrder = 1
SkinData.SkinSection = 'RADIOBUTTON'
end
object sRadioButton3: TsRadioButton
Left = 16
Top = 75
Width = 76
Height = 19
Caption = 'Information'
TabOrder = 2
SkinData.SkinSection = 'RADIOBUTTON'
end
object sRadioButton4: TsRadioButton
Left = 16
Top = 98
Width = 82
Height = 19
Caption = 'Confirmation'
TabOrder = 3
SkinData.SkinSection = 'RADIOBUTTON'
end
object sRadioButton5: TsRadioButton
Left = 16
Top = 121
Width = 59
Height = 19
Caption = 'Custom'
TabOrder = 4
SkinData.SkinSection = 'RADIOBUTTON'
end
end
object sButton1: TsButton
Left = 313
Top = 32
Width = 59
Height = 26
Caption = 'Show'
TabOrder = 2
OnClick = sButton1Click
SkinData.SkinSection = 'BUTTON'
end
object sRadioGroup1: TsRadioGroup
Left = 16
Top = 73
Width = 161
Height = 163
Caption = 'Buttons'
ParentBackground = False
TabOrder = 3
SkinData.SkinSection = 'GROUPBOX'
Items.Strings = (
'OK'
'OKCANCEL'
'ABORTRETRYIGNORE'
'YESNOCANCEL'
'YESNO'
'RETRYCANCEL')
end
end
object sGroupBox3: TsGroupBox
Left = 21
Top = 274
Width = 393
Height = 87
Caption = 'Messages'
TabOrder = 1
SkinData.SkinSection = 'GROUPBOX'
object sEdit2: TsEdit
Left = 20
Top = 24
Width = 353
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Message text for "sShowMessage" procedure'
SkinData.SkinSection = 'EDIT'
BoundLabel.Indent = 0
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
end
object sButton2: TsButton
Left = 33
Top = 52
Width = 136
Height = 26
Caption = 'sShowMessage'
TabOrder = 1
OnClick = sButton2Click
SkinData.SkinSection = 'BUTTON'
end
object sButton4: TsButton
Left = 177
Top = 52
Width = 184
Height = 26
Caption = 'Application.MessageBox'
TabOrder = 2
OnClick = sButton4Click
SkinData.SkinSection = 'BUTTON'
end
end
object sGroupBox4: TsGroupBox
Left = 21
Top = 373
Width = 392
Height = 56
Caption = 'sInputQuery function'
TabOrder = 2
SkinData.SkinSection = 'GROUPBOX'
object sEdit3: TsEdit
Left = 40
Top = 24
Width = 255
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Message text for "sInputQuery" function'
SkinData.SkinSection = 'EDIT'
BoundLabel.Indent = 0
BoundLabel.Font.Charset = DEFAULT_CHARSET
BoundLabel.Font.Color = clWindowText
BoundLabel.Font.Height = -11
BoundLabel.Font.Name = 'MS Sans Serif'
BoundLabel.Font.Style = []
BoundLabel.Layout = sclLeft
BoundLabel.MaxWidth = 0
BoundLabel.UseSkinColor = True
end
object sButton3: TsButton
Left = 313
Top = 20
Width = 59
Height = 26
Caption = 'Show'
TabOrder = 1
OnClick = sButton3Click
SkinData.SkinSection = 'BUTTON'
end
end
object sFrameAdapter1: TsFrameAdapter
SkinData.SkinSection = 'CHECKBOX'
Left = 11
Top = 33
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -