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