Componentes.Terceros.jvcl/internal/3.36/1/examples/JvSimScope/MainForm.dfm
2009-03-04 12:31:55 +00:00

155 lines
3.7 KiB
Plaintext

object frmMain: TfrmMain
Left = 0
Top = 0
BorderStyle = bsSingle
Caption = 'JvSimScope demo'
ClientHeight = 437
ClientWidth = 520
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object jssCPU: TJvSimScope
Left = 264
Top = 48
Width = 240
Height = 181
Active = False
BaseLine = 0
Interval = 100
Lines = <
item
Name = 'CPU graph'
Position = 0
end>
Minimum = 0
Maximum = 181
TotalTimeSteps = 240
OnUpdate = jssCPUUpdate
end
object jssRandom: TJvSimScope
Left = 264
Top = 248
Width = 240
Height = 177
Active = False
BaseLine = 0
BaseLineUnit = jluAbsolute
DisplayUnits = jduLogical
Interval = 100
Lines = <
item
Name = 'Random'
Color = clAqua
Position = 0
PositionUnit = jluAbsolute
end
item
Name = 'Random 2'
Color = clYellow
Position = 0
PositionUnit = jluAbsolute
end>
Minimum = -100
Maximum = 100
TotalTimeSteps = 240
OnUpdate = jssRandomUpdate
end
object lblCPUDetails1: TLabel
Left = 16
Top = 48
Width = 225
Height = 53
AutoSize = False
Caption =
'This scope shows the current CPU usage. Notice the DisplayUnits ' +
'property set to duPixels which means that the grid size is set i' +
'n pixels, not measurement units'
WordWrap = True
end
object lblCPUDetails2: TLabel
Left = 16
Top = 100
Width = 225
Height = 78
AutoSize = False
Caption =
'There is also one line in the Lines property, which unit is set ' +
'to percent so that the value is an actual percentage of the tota' +
'l height. This is fine for a CPU usage as it'#39's a value expressed' +
' in percentage.'
WordWrap = True
end
object lblRandomDetails1: TLabel
Left = 16
Top = 248
Width = 225
Height = 65
AutoSize = False
Caption =
'This scope shows random values but uses logical units to show a ' +
'more advanced usage. Here, the Minimum and Maximum values are us' +
'ed and can be adjusted to make the lines fit in the display.'
WordWrap = True
end
object Label1: TLabel
Left = 16
Top = 316
Width = 225
Height = 65
AutoSize = False
Caption =
'The yellow line values are meant to go higher than the maximum v' +
'alue set at design time for the scope. Use the button below to c' +
'hange that value and notice how the lines are completely adjuste' +
'd to this change.'
WordWrap = True
end
object lblWelcome: TLabel
Left = 104
Top = 8
Width = 319
Height = 24
Caption = 'Welcome to the TJvSimScope demo'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
end
object btnActivateDeactivateCPU: TButton
Left = 92
Top = 196
Width = 75
Height = 25
Caption = 'Activate'
TabOrder = 0
OnClick = btnActivateDeactivateCPUClick
end
object btnActivateDeactivateRandom: TButton
Left = 36
Top = 392
Width = 75
Height = 25
Caption = 'Activate'
TabOrder = 1
OnClick = btnActivateDeactivateRandomClick
end
object btnAdjustMax: TButton
Left = 117
Top = 392
Width = 100
Height = 25
Caption = 'Adjust Max value'
TabOrder = 2
OnClick = btnAdjustMaxClick
end
end