anchor.diff:    { TODO -ograemeg -copen files : Implement ParseAndExpandFilenames }
     tmpFileNames.Add(AFileName);
   //  ParseAndExpandFileNames(FileName, tmpFileNames);
  -  Result := OpenFiles( tmpFileNames,
  -                       AWindowTitle,
  -                       DisplayFirstTopic );
  +  Result := OpenFiles( tmpFileNames, AWindowTitle, DisplayFirstTopic );
     tmpFileNames.Destroy;
   end;
   
  
positive.code:     function    TranslateEnvironmentVar(AFilenames: TfpgString): TfpgString;
      procedure   RefreshFontSubstitutions;
      procedure   DisplaySelectedIndexTopic;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  
negative.code: var
    s: TfpgString;
  begin
    s :=  cLongName + LineEnding + LineEnding
        + cCreatedBy
        + cVersion + '  -  '+  {$I %date%} + ' ' + {$I %time%};
  
    TfpgMessageDialog.Information('Product Information', s);
  end;
  
  