paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 14:39:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix range error. Issue #0032067 Patch by Pascal R.

Browse Source 
git-svn-id: trunk@55606 -
This commit is contained in:
martin 2017-07-30 16:57:48 +00:00
parent bea0a870ff
commit c02c9089b0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syneditmarks.pp
View File

@ -594,7 +594,12 @@ begin
if Result <> 0 then
exit;
Result := PtrInt(m2) - PtrInt(m1);
if Mark2 > Mark1 then
Result := 1
else if Mark1 > Mark2 then
Result := -1
else
Result := 0;
end;
procedure TSynEditMarkLine.Sort(PrimaryOrder: TSynEditMarkSortOrder;