1

Delphi 11 Alexandria の Windows 10 の 32 ビット VCL アプリケーションで、新しいTRichEditコントロールを使用します。現在の段落を INDENT する次のコードがあります。

procedure TformMain.menuitemIndentDecreaseClick(Sender: TObject);
begin
  richeditNotesEditor.Paragraph.FirstIndent := richeditNotesEditor.Paragraph.FirstIndent - 10;
  menuitemIndentDecrease.Enabled := richeditNotesEditor.Paragraph.FirstIndent > 9;
end;

procedure TformMain.menuitemIndentIncreaseClick(Sender: TObject);
begin
  richeditNotesEditor.Paragraph.FirstIndent := richeditNotesEditor.Paragraph.FirstIndent + 10;
  menuitemIndentDecrease.Enabled := True;
end;

それはうまくいきます:

ここに画像の説明を入力

ただし、インデントされた各段落は同じ箇条書きを使用します。段落のインデント量に応じて自動的に異なる箇条書きにする方法を教えてください。

4

0 に答える 0