lazarus-ccr/components/scrolltext/latest_stable/exampleapp/unit1.lfm

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