anchor.diff:    FOffset := -1;
     Width := 100;
     Height := 100;
  -  fTextFileName := C_TEXTFILENAME;
  -  fResourceName := C_TEXTRESOURCENAME;
     fVersionString := C_VERSION;
  -  fTextSource := stStringlist;
     SendToBack;
   
   end;
  
positive.code:     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;
  
  
negative.code:   ExtCtrls, LCLIntf, LCLTranslator;
  
  const
    C_VERSION = '1.0.2.3';
  
  type
    TTextSource = (stStringlist, stTextfile, stResource);
  