pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

richmemo: curly bracers escape

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7308 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-01-21 01:31:11 +00:00
parent 3b1972ff82
commit 123cc9e59f
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/richmemo/richmemortf.pas
View File

@ -750,6 +750,8 @@ begin
isNewPara:=false;
while i<=length(u) do begin
if u[i]='\' then Result:=Result+'\\'
else if u[i]='{' then Result:=Result+'\{'
else if u[i]='}' then Result:=Result+'\}'
else if u[i]=#10 then begin
Result:=Result+'\par ';
isNewPara:=true;