You've already forked lazarus-ccr
bfdb6c5eaa
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6318 8e941d3f-bd1b-0410-a28a-d453659cc2b4
133 lines
3.6 KiB
Plaintext
133 lines
3.6 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 411
|
|
Height = 352
|
|
Top = 332
|
|
Width = 594
|
|
AutoSize = True
|
|
BorderStyle = bsSingle
|
|
Caption = 'JvSimScope demo'
|
|
ClientHeight = 352
|
|
ClientWidth = 594
|
|
Color = clBtnFace
|
|
Font.Color = clWindowText
|
|
Position = poScreenCenter
|
|
LCLVersion = '1.9.0.0'
|
|
object jssRandom: TJvSimScope
|
|
AnchorSideLeft.Control = lblRandomDetails1
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = lblRandomDetails1
|
|
AnchorSideBottom.Control = btnActivateDeactivateRandom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 276
|
|
Height = 207
|
|
Top = 48
|
|
Width = 252
|
|
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
|
|
Anchors = [akTop, akLeft, akBottom]
|
|
BorderSpacing.Right = 24
|
|
end
|
|
object Label1: TLabel
|
|
AnchorSideLeft.Control = lblRandomDetails1
|
|
AnchorSideTop.Control = lblRandomDetails1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideRight.Control = lblRandomDetails1
|
|
AnchorSideRight.Side = asrBottom
|
|
Left = 16
|
|
Height = 75
|
|
Top = 131
|
|
Width = 244
|
|
Anchors = [akTop, akLeft, akRight]
|
|
BorderSpacing.Top = 8
|
|
Caption = 'The yellow line values are meant to go higher than the maximum value set at design time for the scope. Use the button below to change that value and notice how the lines are completely adjusted to this change.'
|
|
Constraints.MaxWidth = 250
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
object lblWelcome: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideLeft.Side = asrCenter
|
|
AnchorSideTop.Control = Owner
|
|
Left = 141
|
|
Height = 28
|
|
Top = 8
|
|
Width = 312
|
|
BorderSpacing.Top = 8
|
|
Caption = 'Welcome to the TJvSimScope demo'
|
|
Font.Color = clWindowText
|
|
Font.Height = -20
|
|
ParentColor = False
|
|
ParentFont = False
|
|
end
|
|
object btnActivateDeactivateRandom: TButton
|
|
AnchorSideLeft.Control = lblRandomDetails1
|
|
AnchorSideTop.Control = Label1
|
|
AnchorSideTop.Side = asrBottom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 32
|
|
Height = 25
|
|
Top = 230
|
|
Width = 69
|
|
AutoSize = True
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 24
|
|
BorderSpacing.Bottom = 24
|
|
Caption = 'Activate'
|
|
OnClick = btnActivateDeactivateRandomClick
|
|
TabOrder = 0
|
|
end
|
|
object btnAdjustMax: TButton
|
|
AnchorSideLeft.Control = btnActivateDeactivateRandom
|
|
AnchorSideLeft.Side = asrBottom
|
|
AnchorSideTop.Control = btnActivateDeactivateRandom
|
|
AnchorSideBottom.Control = jssRandom
|
|
AnchorSideBottom.Side = asrBottom
|
|
Left = 117
|
|
Height = 25
|
|
Top = 230
|
|
Width = 116
|
|
AutoSize = True
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Bottom = 16
|
|
Caption = 'Adjust Max value'
|
|
OnClick = btnAdjustMaxClick
|
|
TabOrder = 1
|
|
end
|
|
object lblRandomDetails1: TLabel
|
|
AnchorSideLeft.Control = Owner
|
|
AnchorSideTop.Control = lblWelcome
|
|
AnchorSideTop.Side = asrBottom
|
|
Left = 16
|
|
Height = 75
|
|
Top = 48
|
|
Width = 244
|
|
BorderSpacing.Left = 16
|
|
BorderSpacing.Top = 12
|
|
BorderSpacing.Right = 16
|
|
Caption = 'This scope shows random values but uses logical units to show a more advanced usage. Here, the Minimum and Maximum values are used and can be adjusted to make the lines fit in the display.'
|
|
Constraints.MaxWidth = 250
|
|
ParentColor = False
|
|
WordWrap = True
|
|
end
|
|
end
|