anchor.diff:          begin
             {$IFDEF DEBUG}
             if uMsg <> WM_MOUSEMOVE then
  -            writeln('fpGFX/GDI: Found a mouse button event');
  +            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);
  
positive.code:   msgp: TfpgMessageParams;
  begin
    {$IFDEF DND_DEBUG}
    writeln('TfpgGDIWindow.HandleDNDEnter ');
    {$ENDIF}
    wg := self as TfpgWidget;
    if wg.AcceptDrops then
  
negative.code:   if FDropPos <> PT then
    begin
      {$IFDEF DND_DEBUG}
      SendDebug('TfpgGDIWindow.HandleDNDPosition ');
      {$ENDIF}
      FDropPos.x := PT.x;
      FDropPos.y := PT.y;
  