lazarus-ccr/components/industrialstuff/Example/LEDNumberDemo/main.lfm
wp_xxyyzz 3b1972ff82 industrial: New demo for TLEDNumber
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7307 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2020-01-20 16:04:03 +00:00

138 lines
3.2 KiB
Plaintext

object Form1: TForm1
Left = 347
Height = 240
Top = 148
Width = 529
AutoSize = True
Caption = 'LEDNumber demo'
ClientHeight = 240
ClientWidth = 529
OnCreate = FormCreate
LCLVersion = '2.1.0.0'
object Panel1: TPanel
Left = 0
Height = 55
Top = 0
Width = 529
Align = alTop
AutoSize = True
BevelOuter = bvNone
ClientHeight = 55
ClientWidth = 529
TabOrder = 0
object lblCaption: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = edCaption
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 12
Width = 42
BorderSpacing.Left = 8
Caption = 'Caption'
ParentColor = False
end
object edCaption: TEdit
AnchorSideLeft.Control = lblCaption
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 62
Height = 23
Top = 8
Width = 132
BorderSpacing.Left = 12
BorderSpacing.Top = 8
OnChange = edCaptionChange
TabOrder = 0
Text = '-0.1234'
end
object cbZeroToO: TCheckBox
AnchorSideLeft.Control = edCaption
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edCaption
AnchorSideTop.Side = asrCenter
Left = 218
Height = 19
Top = 10
Width = 120
BorderSpacing.Left = 24
BorderSpacing.Right = 8
Caption = 'Replace zero by ''O'''
OnChange = cbZeroToOChange
TabOrder = 1
end
object cbSlanted: TCheckBox
AnchorSideLeft.Control = cbZeroToO
AnchorSideTop.Control = sbSize
AnchorSideTop.Side = asrCenter
Left = 218
Height = 19
Top = 36
Width = 59
Caption = 'Slanted'
OnChange = cbSlantedChange
TabOrder = 2
end
object lblSize: TLabel
AnchorSideLeft.Control = lblCaption
AnchorSideTop.Control = sbSize
AnchorSideTop.Side = asrCenter
Left = 8
Height = 15
Top = 38
Width = 20
Caption = 'Size'
ParentColor = False
end
object sbSize: TScrollBar
AnchorSideLeft.Control = edCaption
AnchorSideTop.Control = edCaption
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCaption
AnchorSideRight.Side = asrBottom
Left = 62
Height = 17
Top = 37
Width = 132
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Max = 5
Min = 2
PageSize = 0
Position = 2
TabOrder = 3
OnChange = sbSizeChange
end
end
object LEDNumber1: TLEDNumber
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Bevel1
AnchorSideTop.Side = asrBottom
Left = 8
Height = 30
Top = 78
Width = 170
BorderSpacing.Left = 8
BorderSpacing.Top = 12
BorderSpacing.Right = 12
BorderSpacing.Bottom = 12
Caption = 'LEDNumber1'
end
object Bevel1: TBevel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 8
Height = 3
Top = 63
Width = 513
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Shape = bsBottomLine
end
end