anchor.diff:  
   procedure TfMain.MapViewDragDrop(Sender, Source: TObject; X, Y: Integer);
   begin
  +  FActiveBrush := FIdleBrush;
     SetMapViewMouse(x,y);
   
     FDragging.Drop;
  
positive.code: procedure TfMain.MapViewDragOver(Sender, Source: TObject; X, Y: Integer;
    State: TDragState; var Accept: Boolean);
  begin
    Accept := true; //TODO: handle accceptible terrain
  
    FSelectedObject := nil;
  
negative.code:     FNextDragSubject:=TDragSubject.MapTemplate;
      FSelectedTemplate := FTemplatesSelection.Objcts[o_idx];
      DragManager.DragStart(self, True,0); //after state change
      FActiveBrush := FIdleBrush;
    end;
  
  end;
  