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

richmemo: win32 fix compliation for the older versions of fpc

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7929 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2020-12-15 19:00:35 +00:00
parent a92f60d486
commit f7576c62e0
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/richmemo/win32/win32richmemoproc.pas
View File

@@ -1062,7 +1062,7 @@ begin
try try
l := LinkNotify.chrg.cpMax - LinkNotify.chrg.cpMin; l := LinkNotify.chrg.cpMax - LinkNotify.chrg.cpMin;
SetSelection(RichEditWnd, LinkNotify.chrg.cpMin, l); SetSelection(RichEditWnd, LinkNotify.chrg.cpMin, l);
st := TStringStream.Create; st := TStringStream.Create('');
hp := ''; hp := '';
try try
SaveRichText(RichEditWnd, st, SFF_SELECTION); SaveRichText(RichEditWnd, st, SFF_SELECTION);