anchor.diff:    fpg_base,
     fpg_impl
     {$IFDEF DEBUG}
  -  ,dbugintf
  +  ,fpg_dbugintf
     {$ENDIF DEBUG}
     ,fpg_OLEDragDrop
     ;
  
positive.code:     exit;
  
    {$IFDEF DND_DEBUG}
    Writeln('TfpgGDIWindow.HandleDNDDrop');
    {$ENDIF}
  
    wg := self as TfpgWidget;
  
negative.code:         begin
            {$IFDEF DEBUG}
            if uMsg <> WM_MOUSEMOVE then
              SendDebug('fpGFX/GDI: Found a mouse button event');
            {$ENDIF}
  //          msgp.mouse.x := smallint(lParam and $FFFF);
  //          msgp.mouse.y := smallint((lParam and $FFFF0000) shr 16);
  