📄 ctrls.dfm
字号:
object ControlsForm: TControlsForm
Left = 231
Top = 142
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'RX Controls'
ClientHeight = 313
ClientWidth = 504
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
PixelsPerInch = 96
Position = poDefaultPosOnly
ShowHint = True
Visible = True
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
TextHeight = 13
object TabbedNotebook1: TTabbedNotebook
Left = 0
Top = 0
Width = 504
Height = 313
Align = alClient
TabsPerRow = 4
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 0
object TTabPage
Left = 5
Top = 26
Caption = 'Misc'
object GroupBox1: TGroupBox
Left = 4
Top = 0
Width = 237
Height = 105
Caption = ' ColorComboBox '
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object Label1: TLabel
Left = 8
Top = 16
Width = 225
Height = 13
AutoSize = False
Caption = 'Allows to choose color from a drop-down list'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Shape1: TShape
Left = 8
Top = 64
Width = 221
Height = 33
Brush.Color = clLime
Shape = stRoundRect
end
object ColorComboBox1: TColorComboBox
Left = 8
Top = 36
Width = 129
Height = 20
ColorValue = clLime
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = ColorComboBox1Change
end
object CheckBox4: TCheckBox
Left = 143
Top = 38
Width = 86
Height = 17
Caption = 'Show names'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 1
OnClick = CheckBox4Click
end
end
object GroupBox2: TGroupBox
Left = 244
Top = 0
Width = 245
Height = 105
Caption = ' FontComboBox '
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label2: TLabel
Left = 8
Top = 16
Width = 229
Height = 13
AutoSize = False
Caption = 'Allows to choose font from a drop-down list'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 64
Width = 41
Height = 13
AutoSize = False
Caption = 'Show:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object FontComboBox1: TFontComboBox
Left = 8
Top = 36
Width = 145
Height = 20
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = FontComboBox1Change
end
object CheckBox1: TCheckBox
Left = 8
Top = 80
Width = 105
Height = 17
Caption = '&TrueType only'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CheckBox1Click
end
object ComboBox1: TComboBox
Left = 128
Top = 76
Width = 109
Height = 21
Style = csDropDownList
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Screen Fonts'
'Printer Fonts'
'All Fonts')
ParentFont = False
TabOrder = 2
OnChange = ComboBox1Change
end
end
object GroupBox3: TGroupBox
Left = 4
Top = 108
Width = 237
Height = 169
Caption = ' RxSlider '
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
object ADHRuler: TImage
Left = 24
Top = 104
Width = 16
Height = 6
AutoSize = True
Picture.Data = {
07544269746D6170A6000000424DA60000000000000076000000280000001000
0000060000000100040000000000300000000000000000000000000000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF00DDDDDDDDDDDDDDDD00000000000000000DDDDDDDDDDDDDD00DDDDDDDDDDD
DDD00000000000000000DDDDDDDDDDDDDDDD}
Visible = False
end
object Label4: TLabel
Left = 8
Top = 16
Width = 217
Height = 13
AutoSize = False
Caption = 'Slider with customizable look and feel'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
end
object Label5: TLabel
Left = 104
Top = 32
Width = 73
Height = 13
AutoSize = False
Caption = '&Orientation:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 12
Top = 144
Width = 69
Height = 13
AutoSize = False
Caption = 'Value: 0'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 104
Top = 116
Width = 53
Height = 13
AutoSize = False
Caption = 'O&ptions:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 104
Top = 76
Width = 77
Height = 13
AutoSize = False
Caption = '&Looks like in:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ADHThumb: TImage
Left = 28
Top = 98
Width = 10
Height = 16
AutoSize = True
Picture.Data = {
07544269746D6170F6040000424DF60400000000000036040000280000000A00
0000100000000100080000000000C00000000000000000000000000000000000
000000000000000080000080000000808000800000008000800080800000C0C0
C000C0DCC000F0CAA60000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000F0FBFF00A4A0
A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
FF0003000000000000000003000000F8F8F8F8F8F8F8F800000000FF0707FF07
F8070700000000FF0707FF07F8070700000000FF0707FF07F8070700000000FF
0707FF07F8070700000000FF0707FF07F8070700000000FF0707FF07F8070700
000000FF0707FF07F8070700000000FF0707FF07F8070700000000FF0707FF07
F8070700000000FF0707FF07F8070700000000FF0707FF07F8070700000000FF
0707FF07F8070700000000FFFFFFFFFFFFFFFF00000003000000000000000003
0000}
Visible = False
end
object ADVThumb: TImage
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -