anchor.diff:    FLanguage := ltPas;
     FSearchAll := True; // search anywhere in a method name
   //  FImageList := TfpgImageList.Create;
  -  
  +
   //  CreateImage_BMP(@grdimg_destructor_16, SizeOf(grdimg_destructor_16));
   
     fpgImages.AddMaskedBMP(  // 16x16 image
  
positive.code:   else if StrContains('destructor', ProcName, False) then // Do not localize.
      Result := ImageIndexTrash
    else if StrBeginsWith('class proc', ProcName, False)    // Do not localize.
        or StrContains('class func', ProcName, False) 
        or (ProcClass <> '') then
      Result := ImageIndexGear
    else
  
negative.code:       finally
          SFile.Free;
        end;
  //      SendDebug('Procedure List: Starting Parse');
        case Language of
          ltPas: Parser.Origin := MemStream.Memory;
  //        ltCpp: CParser.SetOrigin(MemStream.Memory, MemStream.Size);
  