anchor.diff:  
   
   const
  +  cTitle = 'fpGUI IDE - %s';
     cFileFilterTemplate  = '%s (%s)|%s';
     cSourceFiles = '*.pas;*.pp;*.lpr';
     cProjectFiles = '*.project';
  
positive.code:   writeln('source string = ', s);
    r := GMacroList.ExpandMacro(s);
    writeln('expanded string = ', r);
  end;
  
  procedure TMainForm.FormShow(Sender: TObject);
  
negative.code:         TfpgMessageDialog.Critical('', E.Message);
        end;
      end;
      UpdateWindowTitle;
      AddMessage(Format('Project saved as <%s>.', [s]));
    end;
  end;
  