Files
lazarus-ccr/components/scrolltext/latest_stable/exampleapp/unit1.lfm
2022-06-16 13:18:18 +00:00

96 lines
2.6 KiB
Plaintext

object Form1: TForm1
Left = 403
Height = 356
Top = 139
Width = 551
BorderStyle = bsToolWindow
Caption = 'Form1'
ClientHeight = 356
ClientWidth = 551
Position = poDesktopCenter
LCLVersion = '2.3.0.0'
object ScrollingText1: TScrollingText
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = BitBtn1
Left = 12
Height = 294
Top = 12
Width = 552
About.Description.Strings = (
'Component that shows a scrolling window.'#13#10'Use Lines property to set text and Active=True'#13#10'to use the component'
)
About.Title = 'About About About About About About About ScrollingText component'
About.Height = 280
About.Width = 400
About.Font.Color = clNavy
About.Font.Height = -13
About.Font.Name = 'Arial'
About.BackGroundColor = clWindow
About.Version = '1.0.0.0'
About.Authorname = 'Gordon Bamber'
About.Organisation = 'Public Domain'
About.AuthorEmail = 'minesadorada@charcodelvalle.com'
About.ComponentName = 'ScrollingText component'
About.LicenseType = abLGPL
Active = False
Anchors = [akTop, akLeft, akBottom]
Borderspacing.Around = 12
Lines.Strings = (
'The file ''../readme.txt'' is missing.'
'Ideally, it should be in the same folder as your application'
)
Font.Height = -13
LinkFont.Height = -13
TextSource = stTextfile
TextFileName = '../readme.txt'
TextResourceName = 'scrolltext_res'
end
object BitBtn1: TBitBtn
AnchorSideLeft.Control = Owner
AnchorSideLeft.Side = asrCenter
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 238
Height = 30
Top = 318
Width = 75
Anchors = [akLeft, akBottom]
BorderSpacing.Bottom = 8
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 0
end
object Button1: TButton
AnchorSideTop.Control = BitBtn1
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 468
Height = 30
Top = 318
Width = 75
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Toggle'
OnClick = Button1Click
TabOrder = 1
end
object TrackBar1: TTrackBar
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = BitBtn1
AnchorSideTop.Side = asrCenter
Left = 12
Height = 25
Top = 321
Width = 100
Max = 4
OnChange = TrackBar1Change
Position = 2
BorderSpacing.Left = 12
TabOrder = 2
end
end