1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure ReadRichPos1;
{ermitteln Pixel-Koordinaten von Zeile, Spalte der linken oberen Ecke im Richeditfeld.
 damit wird das Lineal in FiFormat synchronisiert}
const EM_GetScrollPos = WM_User + 221;
      EM_SetScrollPos = WM_User + 222;
var
  Koordinaten : TPoint;  { Pixel x=Spalte, y=Zeile}
begin with Form1 do begin
  SendMessage(Richedit1.Handle, EM_GetScrollPos, 0, lParam(@Koordinaten));
  Koordinaten.Y:=0;  //da Lineal einzeilig, Y auf Null halten
  SendMessage(Richedit2.Handle, EM_SetScrollPos, 0, lParam(@Koordinaten));
end; end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

// uses RichEdit;
procedure TForm1.FormCreate(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 := 500; //1440 div 4;
// Minimum space between a paragraph number and the paragraph text, in twips

RichEdit1.Perform(EM_SETPARAFORMAT, 0, lParam(@fmt));
end;