3b1972ff82
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7307 8e941d3f-bd1b-0410-a28a-d453659cc2b4
138 lines
3.2 KiB
Plaintext
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
|