Какой лучший способ структурировать этот код перетаскивания Linq-to-events?

Question

Я пытаюсь справиться с взаимодействием перетаскивания, которое включает мышь, двигаться мыши и мышь вверх.

Вот упрощенная репромисс моего решения, которое:

• на мышью, создает эллипс и добавляет его в холст
• На движении мыши повторяют эллипс, чтобы следовать мышью

• На мышке вверх изменяет цвет холста, чтобы это было очевидно, что вы тянете.

  var mouseDown = Observable.FromEvent<MouseButtonEventArgs>(canvas, "MouseLeftButtonDown");
  var mouseUp = Observable.FromEvent<MouseButtonEventArgs>(canvas, "MouseLeftButtonUp");
  var mouseMove = Observable.FromEvent<MouseEventArgs>(canvas, "MouseMove");
  
  Ellipse ellipse = null;
  
  var q = from start in mouseDown.Do(x =>
              {
                  // handle mousedown by creating a red ellipse, 
                  // adding it to the canvas at the right position
                  ellipse = new Ellipse() { Width = 10, Height = 10, Fill = Brushes.Red };
                  Point position = x.EventArgs.GetPosition(canvas);
                  Canvas.SetLeft(ellipse, position.X);
                  Canvas.SetTop(ellipse, position.Y);
                  canvas.Children.Add(ellipse);
              })
          from delta in mouseMove.Until(mouseUp.Do(x =>
              {
                  // handle mouse up by making the ellipse green
                  ellipse.Fill = Brushes.Green;
              }))
          select delta;
  
  q.Subscribe(x =>
  {
      // handle mouse move by repositioning ellipse
      Point position = x.EventArgs.GetPosition(canvas);
      Canvas.SetLeft(ellipse, position.X);
      Canvas.SetTop(ellipse, position.Y);
  });
  

XAML просто

    <Canvas x:Name="canvas"/>

Есть несколько вещей, которые мне не нравятся в этом коде, и мне нужна помощь рефакторингу :)

Прежде всего: обратные вызовы Mousedown и Touseup указываются как побочные эффекты. Если две подписки сделаны для q, они произойдут дважды.

Во-вторых, указывается обратный вызов мыши до Обратный вызов MouseMove. Это делает его немного сложно читать.

В-третьих, ссылка на эллипс, кажется, находится в глупое место. Если есть две подписки, эта переменная ссылка будет перезаписана довольно быстро. Я уверен, что должен быть какой-то способ, которым мы можем использовать let Ключевое слово, чтобы представить переменную к выражению LINQ, которое будет означать правильную ссылку на эллипсе доступна как для обработчиков перемещения мыши, так и для мыши.

Как бы вы написали этот код?

Answer 1

Чтобы избежать подписки побочных эффектов, вы должны опубликовать ваш наблюдаемый. Я думаю, что что-то вроде этого будет хорошо:

        public MainWindow()
    {
        InitializeComponent();
        var mouseDown = Observable
            .FromEvent<MouseButtonEventArgs>(this, "MouseLeftButtonDown");
        var mouseUp = Observable
            .FromEvent<MouseButtonEventArgs>(this, "MouseLeftButtonUp");
        var mouseMove = Observable
            .FromEvent<MouseEventArgs>(this, "MouseMove");

        var ellipses = mouseDown
            .Select(args => new { 
                a = args, 
                el = new Ellipse
                {
                    Width = 10, Height = 10, Fill = Brushes.Red
                }})
            .Publish();

        ellipses
            .Subscribe(elargs =>
            {
                var position = elargs.a.EventArgs.GetPosition(canvas);
                Canvas.SetLeft(elargs.el, position.X);
                Canvas.SetTop(elargs.el, position.Y);
                canvas.Children.Add(elargs.el);
            });

        var elmove = from elargs in ellipses
                     from mm in mouseMove.TakeUntil(mouseUp)
                     select new { a = mm, el = elargs.el };

        elmove.
            Subscribe(elargs =>
            {
                var position = elargs.a.EventArgs.GetPosition(canvas);
                Canvas.SetLeft(elargs.el, position.X);
                Canvas.SetTop(elargs.el, position.Y);
            });

        var elmup = from elargs in ellipses
                    from mup in mouseUp
                    select elargs.el;

        elmup.Subscribe(el => el.Fill = Brushes.Green);

        ellipses.Connect();
    }