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;
それはうまくいきます:
ただし、インデントされた各段落は同じ箇条書きを使用します。段落のインデント量に応じて自動的に異なる箇条書きにする方法を教えてください。