anchor.diff:  destructor TfpgGDIDrag.Destroy;
   begin
     {$IFDEF DND_DEBUG}
  -  writeln('TfpgGDIDrag.Destroy ');
  +  SendDebug('TfpgGDIDrag.Destroy ');
     {$ENDIF}
     inherited Destroy;
   end;
  
positive.code:   if FDragging then
    begin
      {$IFDEF DND_DEBUG}
      writeln('TfpgGDIDrag.Execute (already dragging)');
      {$ENDIF}
      Result := daIgnore;
    end
    else
    begin
      {$IFDEF DND_DEBUG}
      writeln('TfpgGDIDrag.Execute (new drag)');
      {$ENDIF}
      FDragging := True;
      wapplication.Drag := self;
  
negative.code:   c: longword;
  begin
    c := Windows.GetPixel(FWinGC, X, Y);
    {$IFDEF DEBUG}
    if c = CLR_INVALID then
      SendDebug('fpGFX/GDI: TfpgGDICanvas.GetPixel returned an invalid color');
    {$ENDIF}
    Result := WinColorTofpgColor(c);
  end;
  
  