delphi - 箇条書きのインデント

Question

私がプログラミングに慣れていないことは、それほど悪いことではありません。今週は、これまでよりも多くの Google 検索を行い、Google での発見は少なくなりました。

デルファイ v7

リッチエディット コントロールで箇条書きを作成する方法を理解しました。私が見つけられないのは、ユーザーがそれらを作成するときにそれらをインデントする方法です。

何か案は？

Answer 1

を設定しTRichEdit.Paragraph.FirstIndentます。の追加量で箇条書きがインデントされFirstIndentます。(FirstIndent箇条書き項目は新しい段落の最初の行であるため、使用します。)

RichEdit1.Paragraph.FirstIndent := RichEdit1.Paragraph.FirstIndent + 10;

Delphi に何年も同梱されている RichEdit デモに基づく簡単なデモを次に示します。2 つの新しいボタン ( Delphi で提供される GlyFx イメージからのグリフを含む、それぞれ とという名前の右端の 2 つのボタン) に 2つの新しいTToolButtonsものを追加し、次のイベント ハンドラーを既存のフォームにイベントとして追加しました。ToolBartbLessIndenttbMoreIndentToolButton.OnClick

procedure TMainForm.tbLessIndentClick(Sender: TObject);
begin
  Editor.Paragraph.FirstIndent := Editor.Paragraph.FirstIndent - 10;
  tbLessIndent.Enabled := Editor.Paragraph.FirstIndent > 9;
end;

procedure TMainForm.tbMoreIndentClick(Sender: TObject);
begin
  Editor.Paragraph.FirstIndent := Editor.Paragraph.FirstIndent + 10;
  tbLessIndent.Enabled := True;
end;

以下は、いくつかの項目が追加された新しいドキュメントのサンプルです。

詳細については、NumberingとFirstIndentに関するドキュメントを参照してください(XE2 のドキュメントですが、ほぼ同じです)。