anchor.diff:    inherited Destroy;
   end;
   
  -procedure TDragProxy.DropOnPalette;
  -begin
  -  //do nothing by default
  -end;
  -
   { TObjectDragProxy }
   
   constructor TObjectDragProxy.Create(AOwner: TfMain;
  
positive.code: procedure TObjectDragProxy.DropOnMap;
  begin
    FOwner.MoveOrCopyObject(FDraggingObject,FOwner.FMap.CurrentLevelIndex,FOwner.FMouseTileX+FShiftX,FOwner.FMouseTileY+FShiftY);
  end;
  
  procedure TObjectDragProxy.DropOnPalette;
  begin
    FOwner.ClearSelection;
    FOwner.DeleteObject(FDraggingObject);
    FDraggingObject := nil;
  end;
  
  procedure TObjectDragProxy.Render(AState: TLocalState; x, y: integer);
  
negative.code: 
  procedure TfMain.ObjectsViewDragDrop(Sender, Source: TObject; X, Y: Integer);
  begin
    //
  end;
  
  procedure TfMain.ObjectsViewDragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
  begin
    Accept := false;
  end;
  
  procedure TfMain.pcMainChange(Sender: TObject);
  