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