Swing/AutoScroll のバックアップ(No.12)

TITLE:JScrollPaneのオートスクロール

JScrollPaneのオートスクロール

編集者:Terai Atsuhiro
作成日:2004-11-22
更新日:2023-07-15 (土) 22:14:03

概要

JScrollPane上でのマウスドラッグに応じてラベルをオートスクロールします。

#screenshot

サンプルコード

class DragMoverListener extends MouseInputAdapter implements ActionListener {
  private static final int SPEED = 2;
  private final Cursor dc;
  private final Cursor hc = new Cursor(Cursor.HAND_CURSOR);
  private final Rectangle rect = new Rectangle();
  private final javax.swing.Timer scroller;
  private final JComponent label;
  private final JViewport vport;
  private Point startPt = new Point();
  private Point move = new Point();

  public DragMoverListener(JViewport vport, JComponent comp) {
    this.vport = vport;
    this.label = comp;
    this.dc = label.getCursor();
    this.scroller = new javax.swing.Timer(5, this);
    vport.addMouseMotionListener(this);
    vport.addMouseListener(this);
  }
  public void actionPerformed(ActionEvent e) {
    Rectangle vr = vport.getViewRect();
    int w = vr.width;
    int h = vr.height;
    Point ptZero = SwingUtilities.convertPoint(vport,0,0,label);
    rect.setRect(ptZero.x-move.x, ptZero.y-move.y, w, h);
    label.scrollRectToVisible(rect);
  }
  public void mouseDragged(MouseEvent e) {
    scroller.stop();
    Point pt = e.getPoint();
    move.setLocation(SPEED*(pt.x-startPt.x), SPEED*(pt.y-startPt.y));
    startPt.setLocation(pt);
    scroller.start();
  }
  public void mousePressed(MouseEvent e) {
    label.setCursor(hc);
    startPt.setLocation(e.getPoint());
    scroller.stop();
  }
  public void mouseReleased(MouseEvent e) {
    label.setCursor(dc);
  }
  public void mouseExited(MouseEvent e) {
    label.setCursor(dc);
    move.setLocation(0, 0);
    scroller.stop();
  }
}
  • &jnlp;
  • &jar;
  • &zip;

解説

上記のサンプルでは、JViewport内の画像ラベルをマウスでドラッグすると、その移動方向に応じて自動的にスクロールします。マウスをクリックすると停止します。

javax.swing.Timerを使うことでスクロールの開始、継続、停止を行っています。

JTextPaneで文字列を挿入したときに、最後まで自動スクロールしたい場合は、JTextPaneで最終行に移動を参考にしてください。

参考リンク

コメント

  • 猫の手スクロール風の動作に変更しました。 -- terai