anchor.diff:    row: Integer;
     o_idx: Integer;
   begin
  -  FreeAndNil(FDragging);
     col := x div OBJ_CELL_SIZE;
     row := y div OBJ_CELL_SIZE;
   
  
positive.code:   SetMapViewMouse(x,y);
  
    FDragging.Drop;
    FreeAndNil(FDragging);
    InvalidateMapContent;
  end;
  
  
negative.code: constructor TTemplateDragProxy.Create(ADraggingTemplate: TObjTemplate);
  begin
    FDraggingTemplate := ADraggingTemplate;
    inherited AutoCreate(fMain);
  end;
  
  procedure TTemplateDragProxy.Drop;
  