Swing/AutoScroll のバックアップの現在との差分(No.9)

#spanend
#spanadd
class ViewportDragScrollListener extends MouseAdapter
#spanend
                                 implements HierarchyListener {
  private static final int SPEED = 4;
  private static final int DELAY = 10;
  private final Cursor dc;
  private final Cursor hc = Cursor.getPredefinedCursor(Cursor.HAND_CURSOR);
  private final Timer scroller;
  private final JComponent label;
  private Point startPt = new Point();
  private Point move    = new Point();

#spandel
**サンプルコード [#nf7c2bf6]
#spanend
 final JViewport vport = scroll.getViewport();
 scroller = new javax.swing.Timer(5, new ActionListener() {
   public void actionPerformed(ActionEvent e) {
     Rectangle vr = vport.getViewRect();
     int w = vr.width;
     int h = vr.height;
     Point pt = SwingUtilities.convertPoint(vport,0,0,label);
     rect.setRect(pt.x+point.x, pt.y+point.y, w, h);
     label.scrollRectToVisible(rect);
   }
 });
 vport.addMouseMotionListener(new MouseMotionAdapter() {
   public void mouseMoved(MouseEvent e) {
     scroller.stop();
     Point pt = e.getPoint();
     point.setLocation(SCROLL*(pt.x-startPoint.x), SCROLL*(pt.y-startPoint.y));
     scroller.start();
     startPoint.setLocation(pt);
   }
 });
  public ViewportDragScrollListener(JComponent comp) {
    this.label = comp;
    this.dc = comp.getCursor();
    this.scroller = new Timer(DELAY, new ActionListener() {
      @Override public void actionPerformed(ActionEvent e) {
        Container c = SwingUtilities.getAncestorOfClass(
            JViewport.class, label);
        if (c instanceof JViewport.class) {
          JViewport vport = (JViewport) c;
          Point vp = vport.getViewPosition();
          vp.translate(move.x, move.y);
          label.scrollRectToVisible(
              new Rectangle(vp, vport.getSize()));
        }
      }
    });
  }

-[[サンプルを起動>http://terai.xrea.jp/swing/autoscroll/sample.jnlp]]
-[[jarファイル>http://terai.xrea.jp/swing/autoscroll/sample.jar]]
-[[ソース>http://terai.xrea.jp/swing/autoscroll/src.zip]]
  @Override public void hierarchyChanged(HierarchyEvent e) {
    JComponent c = (JComponent) e.getSource();
    if ((e.getChangeFlags() & HierarchyEvent.DISPLAYABILITY_CHANGED) != 0
        && !c.isDisplayable()) {
      scroller.stop();
    }
  }

#spandel
**解説 [#i40d83e6]
#spanend
#spandel
上記のサンプルでは、JViewport内の画像ラベルがマウスポインタの移動方向と距離に応じて自動的にスクロールします。マウスをクリックすると一時停止します。
#spanend
  @Override public void mouseDragged(MouseEvent e) {
    JViewport vport = (JViewport) e.getSource();
    Point pt = e.getPoint();
    int dx = startPt.x - pt.x;
    int dy = startPt.y - pt.y;
    Point vp = vport.getViewPosition();
    vp.translate(dx, dy);
    label.scrollRectToVisible(new Rectangle(vp, vport.getSize()));
    move.setLocation(SPEED * dx, SPEED * dy);
    startPt.setLocation(pt);
  }

#spandel
javax.swing.Timerを使うことでスクロールの開始、継続、停止を行っています。
#spanend
  @Override public void mousePressed(MouseEvent e) {
    e.getComponent().setCursor(hc); // label.setCursor(hc);
    startPt.setLocation(e.getPoint());
    move.setLocation(0, 0);
    scroller.stop();
  }

#spandel
JTextPaneで文字列を挿入したときに、最後まで自動スクロールしたい場合は、[[JTextPaneで最終行に移動>Swing/CaretPosition]]を参考にしてください。
#spanend
  @Override public void mouseReleased(MouseEvent e) {
    e.getComponent().setCursor(dc); // label.setCursor(dc);
    scroller.start();
  }

#spandel
**参考リンク [#j6c969ff]
#spanend
-[[JTextPaneで最終行に移動>Swing/CaretPosition]]
-[[2000ピクセル以上のフリー写真素材集>http://sozai-free.com/]]
  @Override public void mouseExited(MouseEvent e) {
    e.getComponent().setCursor(dc); // label.setCursor(dc);
    move.setLocation(0, 0);
    scroller.stop();
  }
#spanadd
}
#spanend
#spanadd