anchor.diff:    quot: boolean;
     c, prevc: char;
     ccode: string;
  -  ids: string;
  +//  ids: string;
   begin
     Result := '';
  -  ids    := GetIdentifier(s);
  -  if ids <> '' then
  +//  ids    := GetIdentifier(s);
  +//  if ids <> '' then
   {    if ids = 'u8' then
       begin
         if not CheckSymbol(s, '(') then
  
positive.code: 
  type
    TVFDFormParser = class(TObject)
    protected
      ffd: TFormDesigner;
      fformname: string;
      BodyLines: TStringList;
      eob: boolean;
      line: string;
      lineindex: integer;
    public
      procedure   NextLine;
    public
      constructor Create(const FormName, FormHead, FormBody: string);
      destructor  Destroy; override;
      function    ParseForm: TFormDesigner;
      procedure   ParseFormProperties;
      procedure   ParseFormWidgets;
      function    ReadWGProperty(propline: string; wg: TfpgWidget; wgc: TVFDWidgetClass): boolean;
    end;
  
  
  
negative.code:     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  
      Description:
        This unit contains the Form Parser - used when loading a new
        form .pas file.
  }
  
  unit vfdformparser;
  