Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Показывать значки элементов списка в TRichEdit

01.01.2007
uses
   
RichEdit;
 
 procedure TForm1
.Button1Click(Sender: TObject);
 
var
   fmt
: TParaformat2;
 
begin
   
FillChar(fmt, SizeOf(fmt), 0);
   fmt
.cbSize := SizeOf(fmt);
   
// The PARAFORMAT2 structure is used to set the numbering style.
 
// This is done through the following structure members:
  fmt
.dwMask := PFM_NUMBERING or PFM_NUMBERINGSTART or PFM_NUMBERINGSTYLE or
                 PFM_NUMBERINGTAB
;
       
// Set the following values (bitwise-or them together) to identify
     
// which of the remaining structure members are valid:
     
// PFM_NUMBERING, PFM_NUMBERINGSTART, PFM_NUMBERINGSTYLE, and PFM_NUMBERINGTAB
  fmt
.wNumbering := 2;
       
//0 no numbering or bullets
     
//1 (PFN_BULLET) uses bullet character
     
//2 Uses Arabic numbers (1, 2, 3, ...).
     
//3 Uses lowercase letters (a, b, c, ...).
     
//4 Uses uppercase letters (A, B, C, ...).
     
//5 Uses lowercase Roman numerals (i, ii, iii, ...).
     
//6 Uses uppercase Roman numerals (I, II, III, ...).
     
//7 Uses a sequence of characters beginning with the Unicode
     
//  character specified by the wNumberingStart member.
  fmt
.wNumberingStart := 1;
       
//  Starting value for numbering.
  fmt
.wNumberingStyle := $200;
       
// Styles for numbering:
     
// 0 : Follows the number with a right parenthesis.  1)
     
// $100 : Encloses the number in parentheses.       (1)
     
// $200 : Follows the number with a period.          1.
     
// $300 : Displays only the number.                  1
     
// $400 : Continues a numbered list without applying the next number or bullet.
     
// $8000 : Starts a new number with wNumberingStart.
  fmt
.wNumberingTab := 1440 div 4;
   
// Minimum space between a paragraph number and the paragraph text, in twips
 
  RichEdit1
.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
 
end;

Взято с сайта: https://www.swissdelphicenter.ch