anchor.diff:    if FDragging then
     begin
       {$IFDEF DND_DEBUG}
  -    writeln('TfpgGDIDrag.Execute (already dragging)');
  +    SendDebug('TfpgGDIDrag.Execute (already dragging)');
       {$ENDIF}
       Result := daIgnore;
     end
     else
     begin
       {$IFDEF DND_DEBUG}
  -    writeln('TfpgGDIDrag.Execute (new drag)');
  +    SendDebug('TfpgGDIDrag.Execute (new drag)');
       {$ENDIF}
       FDragging := True;
       wapplication.Drag := self;
  
positive.code:   c: longword;
  begin
    c := Windows.GetPixel(FWinGC, X, Y);
    if c = CLR_INVALID then
      Writeln('fpGFX/GDI: TfpgGDICanvas.GetPixel returned an invalid color');
    Result := WinColorTofpgColor(c);
  end;
  
  
negative.code:       {$Note OLE DND: We are only handling strings at the moment, this needs to be extended to other types too }
        itm := FMimeData[i];
        {$IFDEF DND_DEBUG}
        SendDebug('  Processing mime-type: ', itm.Format);
        {$ENDIF}
  
        { description of data we are sending }
  