JTextAreaの全選択で表示領域を維持する

Total: 86, Today: 1, Yesterday: 1
Posted by at
Last-modified:

Summary

JTextAreaの複数行テキストをすべて選択したとき、末尾のキャレット位置までスクロールするのではなく、全選択前の表示領域を維持する全選択アクションを作成します。

Screenshot

screenshot

Download

Source Code Examples

@Override public void selectAll() {
  Rectangle r = getVisibleRect();
  Document doc = getDocument();
  if (doc != null) {
    if (isEmacs) {
      setCaretPosition(doc.getLength());
      moveCaretPosition(0);
    } else { // Visual Studio Code
      setCaretPosition(0);
      moveCaretPosition(doc.getLength());
    }
  }
  EventQueue.invokeLater(() -> scrollRectToVisible(r));
}
View in GitHub: Java, Kotlin

Explanation

  • Default
    • デフォルトのJTextComponentのselect-allアクションは全選択でCaretは全テキスト末尾に移動し、表示領域もその末尾までスクロールする
    • Apache NetBeansやメモ帳(notepad.exe)の動作と同じ
  • Override selectAll
    • JTextComponent#selectAll()、またはDefaultEditorKit#SelectAllActionをオーバーライドし、全選択前の表示領域をJTextComponent#getVisibleRect()で保存、全選択後にその領域をJTextComponent#scrollRectToVisible(...)で復元
    • JTextComponent#selectAll()メソッドとCtrl+Aで実行されるDefaultEditorKit#SelectAllActionはどちらも同じようにsetCaretPosition(0); moveCaretPosition(doc.getLength());を実行しているが、別々に実装されているので注意が必要
    • Visual Studio Codeなどと同様で全選択後のCaretは全テキスト末尾に移動するが、表示領域は移動しない
    • 選択状態で↑、←キー入力すると選択していた文字列の先頭にCaret移動するようInputMap、ActionMapを調節
  • move Caret top
    • Override selectAllと同様の表示領域を維持する処理に加えて、全選択後のCaret位置を全テキスト先頭に変更
    • GNU Emacsやxyzzyなどの動作と同じになる
    • 選択状態で↓、→キー入力すると選択していた文字列の末尾にCaret移動するようInputMap、ActionMapを調節

Reference

Comment