Delphi XE2 で開発を行っていますがテキストを表示する「TMemo」のコンポーネントがあります。
「TMemo」は絵文字の表示も可能ですが、一般的なエディタでは可能な「改行」「タブ表示」「終端記号」「全角空白」の表示には対応していません。
Web を検索して、「WMPaint」のイベントでデフォルトの表示を行った後に、上書きでキャンバスに書き込む事で可能という事が判りました。
ただ参考にしたコンポーネントは「TMemo」でなく「TRichEdit」でしたので、「TMemo」用にあらたに作成しなおしました。
今回拡張した「TMemoEx」には「EditMrks」のプロパティが追加されます。
その配下に「CrlfMark」「EpofMark」「S@paceMark」「TabMark」が追加されます。
それぞれに「Color」「Enabled」「Mark」が追加されます。
全ての「Enabled」を「FALSE」にすれば、通常の「TMemo」と同じになります。
各記号を変更したい場合は、「MemoEx.pas」の
FEofMark.Mark := '←';
FCrlfMark.Mark := '↓';
FTabMark.Mark := '･';
FSpaceMark.Mark := '□';
を変更して下さい。
ソースは以下からダウンロードして下さい。
http://bonworld-annsfm.sblo.jp/article/185739733.html
追加されたプロパティ
