JTextAreaに行ハイライトカーソルを表示

概要

JTextAreaのカーソルがある行をハイライト表示します。

Screenshot

Download

• Runnable JAR example.jar
• Source code src.zip
• Repository GitHub

サンプルコード

class HighlightCursorTextArea extends JTextArea {
  private static final Color linecolor = new Color(250, 250, 220);
  private final DefaultCaret caret;
  public HighlightCursorTextArea() {
    super();
    setOpaque(false);
    caret = new DefaultCaret() {
      @Override protected synchronized void damage(Rectangle r) {
        if (r != null) {
          JTextComponent c = getComponent();
          x = 0;
          y = r.y;
          width  = c.getSize().width;
          height = r.height;
          c.repaint();
        }
      }
    };
    caret.setBlinkRate(getCaret().getBlinkRate());
    setCaret(caret);
  }

  @Override protected void paintComponent(Graphics g) {
    Caret c = getCaret();
    if (c instanceof DefaultCaret) {
      Graphics2D g2 = (Graphics2D) g.create();
      DefaultCaret caret = (DefaultCaret) c;
      Rectangle r = SwingUtilities.calculateInnerArea(this, rect);
      r.y = caret.y;
      r.height = caret.height;
      g2.setPaint(LINE_COLOR);
      g2.fill(r);
      g2.dispose();
    }
    super.paintComponent(g);
  }
}

解説

JTextAreaに行カーソルを表示と同様のコードを使用していますが、行全体を塗り潰すために以下の3点を変更しています。

• Viewportの色をscroll.getViewport().setBackground(Color.WHITE)に変更
• JTextArea#setOpaque(false)で透明に設定
• JTextArea#paintComponent(...)のオーバーライドでカーソルのある行を塗りつぶしてからsuper.paintComponent(g)を実行

• Swing - Stretching background colour across whole JTextPane for one line of textの Darryl.Burke さんのコードのようにBasicTextPaneUI#paintBackground(...)メソッドをオーバーライドする方法もある

// https://community.oracle.com/thread/1364121
// Swing - Stretching background colour across whole JTextPane for one line of text
// JTextPane textPane = new JTextPane();
// textPane.setUI(new LineHighlightTextPaneUI(textPane));
class LineHighlightTextPaneUI extends BasicTextPaneUI {
  private final JTextPane tc;
  public LineHighlightTextPaneUI(JTextPane t) {
    tc = t;
    tc.addCaretListener(new CaretListener() {
      @Override public void caretUpdate(CaretEvent e) {
        tc.repaint();
      }
    });
  }

  @Override public void paintBackground(Graphics g) {
    super.paintBackground(g);
    try {
      Rectangle rect = modelToView(tc, tc.getCaretPosition());
      int y = rect.y;
      int h = rect.height;
      g.setColor(Color.YELLOW);
      g.fillRect(0, y, tc.getWidth(), h);
    } catch (BadLocationException ex) {
      ex.printStackTrace();
    }
  }
}

• この場合、JTextEditorやJTextPaneで行の高さが異なる場合でもハイライト可能

参考リンク

• JTextAreaに行カーソルを表示
• Swing - Stretching background colour across whole JTextPane for one line of text

コメント