anchor.diff:      Brush.Color := fBackColor;
       Brush.Style := bsSolid;
       FillRect(0, 0, Width, Height);
  -  end;
  -  if (fTextSource = stTextfile) then
  -    if FileExists('scrolling.txt') then
  -    begin
  -      fLines.Clear;
  -      fLines.LoadFromFile('scrolling.txt');
  -    end
  -    else
  -    begin
  -      fLines.Clear;
  -      fLines.Add('The file ''' + C_TEXTFILENAME + ''' is missing.');
  -      fLines.Add('It should be in the same folder as your application');
  -    end;
  -  if (fTextSource = stResource) then
  -
  -  // Load text from resource string
  -  begin
  -    r := LazarusResources.Find(fResourceName);
  -    if r = nil then
  -      raise Exception.CreateFmt('Resource ''%s'' is missing',[fResourceName])
  -    else
  -    begin
  -      fLines.Clear;
  -      fLines.Add(r.Value);
  -    end;
  -  end;
  -  // Are there any lines in the Stringlist?
  -  if (fLines.Count = 0) then
  -  begin
  -    fLines.Add('This is the ScrollingText scrolling window.');
  -    fLines.Add(' ');
  -    fLines.Add('This default text is showing because you either:');
  -    fLines.Add(' ');
  -    fLines.Add('1) Haven''t set any text in the Lines property. or');
  -    fLines.Add('2) TextSource is set to stTextfile and the file');
  -    fLines.Add('''' + C_TEXTFILENAME + ''' is empty.');
  -    fLines.Add(' ');
  -    fLines.Add('Note that URL links such as');
  -    fLines.Add('http://wiki.lazarus.freepascal.org/Main_Page');
  -    fLines.Add('mailto:bill_gates@microsoft.com');
  -    fLines.Add('are clickable by the user');
  -    fLines.Add('(each link should be a single line of text)');
  -    fLines.Add(' ');
  -    fLines.Add('TScrollingText is released under the GPL license (See About)');
  -    fLines.Add('Code is modified from the Lazarus ''AboutFrm'' code');
  -    fLines.Add(' ');
  -    fLines.Add('The standalone visual component TScrollingText is available at:');
  -    fLines.Add('https://sourceforge.net/p/lazarus-ccr/svn/HEAD/tree/components/');
  -    fLines.Add(' ');
  -    fLines.Add('Sep 2015');
     end;
   end;
   
  
positive.code:     FFont: TFont;
      FLinkFont:TFont;
      FBackColor: TColor;
      fTextFileName: string;
      fResourceName: string;
      fVersionString: string;
      fTextSource: TTextSource;
      function ActiveLineIsURL: boolean;
      procedure DoTimer(Sender: TObject);
      procedure SetActive(const AValue: boolean);
  
negative.code:   ExtCtrls, LCLIntf, LCLTranslator;
  
  const
    C_VERSION = '1.0.2.3';
  
  type
    TTextSource = (stStringlist, stTextfile, stResource);
  