lazarus-ccr/components/scrolltext/exampleapp/unit1.lfm
2014-09-13 08:55:51 +00:00

80 lines
2.2 KiB
Plaintext

object Form1: TForm1
Left = 403
Height = 363
Top = 139
Width = 552
BorderStyle = bsToolWindow
Caption = 'Form1'
ClientHeight = 363
ClientWidth = 552
Position = poDesktopCenter
LCLVersion = '1.2.4.0'
object ScrollingText1: TScrollingText
Left = 0
Height = 363
Top = 0
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 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
Align = alClient
Lines.Strings = (
'This is the ScrollingText scrolling window.'
' '
'This default text is showing because you either:'
' '
'1) Haven''t set any text in the Lines property. or'
'2) TextSource is set to stTextfile and the file'
'''scrolling.txt'' is empty.'
' '
'Note that URL links such as'
'http://wiki.lazarus.freepascal.org/Main_Page'
'mailto:bill_gates@microsoft.com'
'are clickable by the user'
' '
'TScrollingText is released under the GPL license (See About)'
'Code is modified from the Lazarus ''AboutFrm'' code'
' '
'The standalone visual component TScrollingText is available at:'
'http://www.charcodelvalle.com/scrollingtext/scrollingtext_component.zip'
' '
'June 2014'
)
Font.Height = -13
TextSource = stResource
end
object BitBtn1: TBitBtn
Left = 239
Height = 30
Top = 317
Width = 75
DefaultCaption = True
Kind = bkClose
ModalResult = 11
TabOrder = 0
end
object Button1: TButton
Left = 456
Height = 30
Top = 317
Width = 75
Caption = 'Toggle'
OnClick = Button1Click
TabOrder = 1
end
end