anchor.diff:  
   procedure TfMain.ObjectsViewDragDrop(Sender, Source: TObject; X, Y: Integer);
   begin
  -  FDragging.DropOnPalette;
  +  //
   end;
   
   procedure TfMain.ObjectsViewDragOver(Sender, Source: TObject; X, Y: Integer;
     State: TDragState; var Accept: Boolean);
   begin
     Accept := false;
  -  if Assigned(FDragging) and (FDragging is TObjectDragProxy) then
  -  begin
  -    Accept := true;
  -  end;
   end;
   
   procedure TfMain.pcMainChange(Sender: TObject);
  
positive.code:   public
      constructor Create(AOwner: TfMain;ADraggingObject: TMapObject; CurrentX, CurrentY: integer);
      procedure DropOnMap; override;
      procedure DropOnPalette; override;
      procedure Render(AState: TLocalState; x, y: integer); override;
      procedure RenderOverlay(AState: TLocalState; x,y: integer); override;
    end;
  
negative.code:   inherited Destroy;
  end;
  
  { TObjectDragProxy }
  
  constructor TObjectDragProxy.Create(AOwner: TfMain;
  