365 lines
7.7 KiB
Plaintext
365 lines
7.7 KiB
Plaintext
object JvSpecialProgressMainForm: TJvSpecialProgressMainForm
|
|
Left = 247
|
|
Top = 109
|
|
BorderIcons = [biSystemMenu, biMinimize]
|
|
BorderStyle = bsSingle
|
|
Caption = 'JvSpecialProgressMainForm'
|
|
ClientHeight = 541
|
|
ClientWidth = 762
|
|
Color = clBtnFace
|
|
DefaultMonitor = dmDesktop
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poDesktopCenter
|
|
Scaled = False
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 762
|
|
Height = 238
|
|
Align = alClient
|
|
Color = clOlive
|
|
Constraints.MinHeight = 183
|
|
FullRepaint = False
|
|
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 Gauge1: TGauge
|
|
Left = 8
|
|
Top = 8
|
|
Width = 744
|
|
Height = 41
|
|
Hint = 'TGauge'
|
|
Anchors = [akLeft, akTop, akRight]
|
|
ParentShowHint = False
|
|
Progress = 0
|
|
ShowHint = True
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 8
|
|
Top = 184
|
|
Width = 744
|
|
Height = 45
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Max = 100
|
|
Orientation = trHorizontal
|
|
Frequency = 100
|
|
Position = 0
|
|
SelEnd = 0
|
|
SelStart = 0
|
|
TabOrder = 1
|
|
TickMarks = tmBottomRight
|
|
TickStyle = tsAuto
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 8
|
|
Top = 126
|
|
Width = 744
|
|
Height = 41
|
|
Hint = 'TProgressBar'
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Min = 0
|
|
Max = 100
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
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
|
|
Caption = 'Start Color: '
|
|
Columns = 2
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'clBlack'
|
|
'clMaroon'
|
|
'clGreen'
|
|
'clOlive'
|
|
'clNavy'
|
|
'clPurple'
|
|
'clTeal'
|
|
'clGray'
|
|
'clSilver'
|
|
'clRed'
|
|
'clLime'
|
|
'clYellow'
|
|
'clBlue'
|
|
'clFuchsia'
|
|
'clAqua'
|
|
'clWhite')
|
|
TabOrder = 0
|
|
OnClick = rgrStartColorClick
|
|
end
|
|
object rgrEndColor: TRadioGroup
|
|
Left = 152
|
|
Top = 8
|
|
Width = 137
|
|
Height = 209
|
|
Caption = ' End Color: '
|
|
Columns = 2
|
|
ItemIndex = 15
|
|
Items.Strings = (
|
|
'clBlack'
|
|
'clMaroon'
|
|
'clGreen'
|
|
'clOlive'
|
|
'clNavy'
|
|
'clPurple'
|
|
'clTeal'
|
|
'clGray'
|
|
'clSilver'
|
|
'clRed'
|
|
'clLime'
|
|
'clYellow'
|
|
'clBlue'
|
|
'clFuchsia'
|
|
'clAqua'
|
|
'clWhite')
|
|
TabOrder = 1
|
|
OnClick = rgrEndColorClick
|
|
end
|
|
object rgrBackground: TRadioGroup
|
|
Left = 296
|
|
Top = 8
|
|
Width = 137
|
|
Height = 209
|
|
Caption = ' Background Color: '
|
|
Columns = 2
|
|
ItemIndex = 11
|
|
Items.Strings = (
|
|
'clBlack'
|
|
'clMaroon'
|
|
'clGreen'
|
|
'clOlive'
|
|
'clNavy'
|
|
'clPurple'
|
|
'clTeal'
|
|
'clGray'
|
|
'clSilver'
|
|
'clRed'
|
|
'clLime'
|
|
'clYellow'
|
|
'clBlue'
|
|
'clFuchsia'
|
|
'clAqua'
|
|
'clWhite')
|
|
TabOrder = 2
|
|
OnClick = rgrBackgroundClick
|
|
end
|
|
object rgrPanel: TRadioGroup
|
|
Left = 440
|
|
Top = 8
|
|
Width = 137
|
|
Height = 209
|
|
Caption = ' Panel Color: '
|
|
Color = clBtnFace
|
|
Columns = 2
|
|
ItemIndex = 3
|
|
Items.Strings = (
|
|
'clBlack'
|
|
'clMaroon'
|
|
'clGreen'
|
|
'clOlive'
|
|
'clNavy'
|
|
'clPurple'
|
|
'clTeal'
|
|
'clGray'
|
|
'clSilver'
|
|
'clRed'
|
|
'clLime'
|
|
'clYellow'
|
|
'clBlue'
|
|
'clFuchsia'
|
|
'clAqua'
|
|
'clWhite')
|
|
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
|
|
Caption = ' Font: '
|
|
Columns = 4
|
|
Items.Strings = (
|
|
'Font 1'
|
|
'Font 2'
|
|
'Font 3'
|
|
'Font 4'
|
|
'Font 5'
|
|
'Font 6'
|
|
'Font 7'
|
|
'Font 8')
|
|
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
|
|
OnClick = chbPanelDoubleBufferedClick
|
|
end
|
|
object btnRandom: TButton
|
|
Left = 440
|
|
Top = 224
|
|
Width = 137
|
|
Height = 73
|
|
Caption = 'Random'
|
|
TabOrder = 11
|
|
OnClick = btnRandomClick
|
|
end
|
|
end
|
|
end
|