📄 jvspecialprogressmainformu.xfm
字号:
object JvSpecialProgressMainForm: TJvSpecialProgressMainForm
Left = 247
Top = 109
Width = 762
Height = 541
VertScrollBar.Range = 303
ActiveControl = TrackBar1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = fbsSingle
Caption = 'JvSpecialProgressMainForm'
Color = clButton
Font.Color = clText
Font.Height = 11
Font.Name = 'MS Sans Serif'
Font.Pitch = fpVariable
Font.Style = []
Font.Weight = 40
ParentFont = False
Position = poDesktopCenter
Scaled = False
OnShow = FormShow
PixelsPerInch = 96
object Panel1: TPanel
Left = 0
Top = 0
Width = 762
Height = 238
Align = alClient
Color = clOlive
Constraints.MinHeight = 183
TabOrder = 0
object JvSpecialProgress1: TJvSpecialProgress
Left = 8
Top = 56
Width = 744
Height = 55
Hint = 'TJvSpecialProgress'
Anchors = [akLeft, akTop, akRight, akBottom]
Color = clYellow
EndColor = clWhite
HintColor = clYellow
ParentColor = False
ShowHint = True
StartColor = clBlack
Step = 0
TextOption = toPercent
end
object ProgressBar1: TProgressBar
Left = 8
Top = 126
Width = 744
Height = 41
Hint = 'TProgressBar'
Anchors = [akLeft, akRight, akBottom]
ParentShowHint = False
ShowHint = True
end
object Gauge1: TJvGauge
Left = 8
Top = 8
Width = 745
Height = 33
Anchors = [akLeft, akTop, akRight]
Progress = 0
end
object TrackBar1: TTrackBar
Left = 8
Top = 184
Width = 744
Height = 45
Anchors = [akLeft, akRight, akBottom]
Frequency = 100
Max = 100
TabOrder = 0
OnChange = TrackBar1Change
end
end
object Panel2: TPanel
Left = 0
Top = 238
Width = 762
Height = 303
Align = alBottom
Caption = 'Panel2'
TabOrder = 1
object rgrStartColor: TRadioGroup
Left = 8
Top = 8
Width = 137
Height = 209
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clWhite')
Caption = 'Start Color: '
Columns = 2
TabOrder = 0
OnClick = rgrStartColorClick
end
object rgrEndColor: TRadioGroup
Left = 152
Top = 8
Width = 137
Height = 209
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clWhite')
Caption = ' End Color: '
Columns = 2
TabOrder = 1
OnClick = rgrEndColorClick
end
object rgrBackground: TRadioGroup
Left = 296
Top = 8
Width = 137
Height = 209
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clWhite')
Caption = ' Background Color: '
Columns = 2
TabOrder = 2
OnClick = rgrBackgroundClick
end
object rgrPanel: TRadioGroup
Left = 440
Top = 8
Width = 137
Height = 209
Items.Strings = (
'clBlack'
'clMaroon'
'clGreen'
'clOlive'
'clNavy'
'clPurple'
'clTeal'
'clGray'
'clSilver'
'clRed'
'clLime'
'clYellow'
'clBlue'
'clFuchsia'
'clAqua'
'clWhite')
Caption = ' Panel Color: '
Color = clButton
Columns = 2
ParentColor = False
TabOrder = 3
OnClick = rgrPanelClick
end
object chbSolid: TCheckBox
Left = 584
Top = 24
Width = 97
Height = 17
Caption = 'Solid'
TabOrder = 5
OnClick = chbSolidClick
end
object chbTextVisible: TCheckBox
Left = 584
Top = 56
Width = 97
Height = 17
Caption = 'Text Visible'
TabOrder = 7
OnClick = chbTextVisibleClick
end
object chbTextCentered: TCheckBox
Left = 584
Top = 40
Width = 97
Height = 17
Caption = 'Text Centered'
TabOrder = 6
OnClick = chbTextCenteredClick
end
object chbTransparent: TCheckBox
Left = 584
Top = 72
Width = 97
Height = 17
Caption = 'Transparent'
TabOrder = 8
end
object chbGradientBlocks: TCheckBox
Left = 584
Top = 8
Width = 97
Height = 17
Caption = 'Gradient Blocks'
TabOrder = 4
OnClick = chbGradientBlocksClick
end
object rgrFont: TRadioGroup
Left = 8
Top = 224
Width = 425
Height = 73
Items.Strings = (
'Font 1'
'Font 2'
'Font 3'
'Font 4'
'Font 5'
'Font 6'
'Font 7'
'Font 8')
Caption = ' Font: '
Columns = 4
TabOrder = 10
OnClick = rgrFontClick
end
object Panel3: TPanel
Left = 584
Top = 136
Width = 169
Height = 161
TabOrder = 12
object lblMinimum: TLabel
Left = 8
Top = 8
Width = 44
Height = 13
Caption = 'Minimum:'
end
object lblMaximum: TLabel
Left = 8
Top = 60
Width = 47
Height = 13
Caption = 'Maximum:'
end
object lblStep: TLabel
Left = 8
Top = 108
Width = 25
Height = 13
Caption = 'Step:'
end
object edtMinimum: TEdit
Left = 8
Top = 28
Width = 65
Height = 21
TabOrder = 0
Text = '0'
end
object edtMaximum: TEdit
Left = 8
Top = 76
Width = 65
Height = 21
TabOrder = 1
Text = '100'
end
object edtStep: TEdit
Left = 8
Top = 124
Width = 65
Height = 21
TabOrder = 2
Text = '10'
end
object btnApply: TButton
Left = 86
Top = 76
Width = 75
Height = 25
Caption = 'Apply'
TabOrder = 3
OnClick = btnApplyClick
end
object btnStepIt: TButton
Left = 86
Top = 124
Width = 75
Height = 25
Caption = 'StepIt'
TabOrder = 4
OnClick = btnStepItClick
end
end
object chbPanelDoubleBuffered: TCheckBox
Left = 584
Top = 104
Width = 153
Height = 17
Caption = 'Panel Double Buffered'
TabOrder = 9
Visible = False
OnClick = chbPanelDoubleBufferedClick
end
object btnRandom: TButton
Left = 440
Top = 224
Width = 137
Height = 73
Caption = 'Random'
TabOrder = 11
OnClick = btnRandomClick
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -