anchor.diff:    msgp: TfpgMessageParams;
   begin
     {$IFDEF DND_DEBUG}
  -  writeln('TfpgGDIWindow.HandleDNDEnter ');
  +  SendDebug('TfpgGDIWindow.HandleDNDEnter ');
     {$ENDIF}
     wg := self as TfpgWidget;
     if wg.AcceptDrops then
  
positive.code:   wg: TfpgWidget;
  begin
    {$IFDEF DND_DEBUG}
    writeln('TfpgGDIWindow.HandleDNDLeave ');
    {$ENDIF}
    FUserMimeSelection := '';
    wg := self as TfpgWidget;
  
negative.code:   fpg_base,
    fpg_impl
    {$IFDEF DEBUG}
    ,fpg_dbugintf
    {$ENDIF DEBUG}
    ,fpg_OLEDragDrop
    ;
  