Numbered list in RichMemo

[paxnet_be]

May be it's useful to know, that on my Linux Lazarus works with GTK2.

[rvk]

I've just tried it in Ubuntu and auto numbering when typing just doesn't work.
I guess this is a limitation of the widget in the OS.

What you can do is first just add all the lines you want (with #13 / new lines separated).
Then apply the numbering to your desired text.

Something like this:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button2Click(Sender: TObject);
2. var
3.   pn: TParaNumbering;
4. begin
5.   RichMemo1.Clear;
6.   RichMemo1.Lines.Add('First item');
7.   RichMemo1.Lines.Add('Second item');
8.   RichMemo1.Lines.Add('Third item');
9.  
10.   pn.Style := pnNumber;
11.   pn.Indent := 14;
12.   pn.NumberStart := 1;
13.   pn.SepChar := SepDot;
14.   RichMemo1.SetParaNumbering(0, Length(RichMemo1.Lines.Text) - 1, pn);  // -1 so the last line doesn't get a number
15.  
16. end;

BTW. There is a unit RichMemoHelpers which has some extra helper functions.
When adding the RichMemoHelpers to your uses you can directly access SelAttributes without needing to fiddle with a separate record.

Code: Pascal  [Select][+][-]

1. uses RichMemoHelpers;
2. //...
3.   RichMemo1.SelAttributes.Color:= clBlue;
4.   RichMemo1.SelAttributes.Style := RichMemo1.SelAttributes.Style + [fsBold, fsItalic];

Unfortunately there is no such helper for the ParaNumbering.
But it does for TParaMetric in Paragraph.

[paxnet_be]

This solution works for me ! 

I will use this further in my application.

Thank you very much, rvk, for your support.