Page Break in Rich Memo

[Badger]

Is there any way to insert a page break in rich memo so that when the Rich memo contents are pasted to the clipboard and then the clipboard pasted into a word processor such as LibreOffice, the page break shows up on the word processor?

[paweld]

chr(12), eg.

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

1. procedure TForm1.AddPageBreakClick(Sender: TObject);
2. begin
3.   RichMemo1.Lines.Insert(RichMemo1.Lines.Count div 2, #12);  //add a pagebreak in the middle of text
4.   RichMemo1.CopyToClipboard;  
5. end;  
6.  

[Badger]

Thanks - works perfectly.
Just for completeness, how would you remove the page break?

[paweld]

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

1. RichMemo1.Lines.Text := StringReplace(RichMemo1.Lines.Text, #12, LineEnding, [rfReplaceAll]);  //remove all pagebreaks
2.  

[Nicole]

2 more code snippets go into my library...