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

SynEdit: fix space-trimmer, incorrectly sending 0-based x pos. fixes issue #0030684 (crash in ifdef lowlighter)

Browse Source 
git-svn-id: trunk@53133 -
This commit is contained in:
martin 2016-10-17 02:27:16 +00:00
parent 61eed71c13
commit 681656b08f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedittexttrimmer.pas
View File

@ -427,7 +427,7 @@ begin
SendNotification(senrLineChange, TSynEditStringTrimmingList(Caller),
FPosY - 1, 1);
SendNotification(senrEditAction, TSynEditStringTrimmingList(Caller),
FPosY, 0, length(fSynStrings[FPosY-1]) + FPosX - 1, -FLen, '');
FPosY, 0, length(fSynStrings[FPosY-1]) + FPosX, -FLen, '');
end;
end;
end;
@ -457,7 +457,7 @@ begin
SendNotification(senrLineChange, TSynEditStringTrimmingList(Caller),
FPosY - 1, 1);
SendNotification(senrEditAction, TSynEditStringTrimmingList(Caller),
FPosY, 0, length(fSynStrings[FPosY-1]) + FPosX - 1, length(FText), FText);
FPosY, 0, length(fSynStrings[FPosY-1]) + FPosX, length(FText), FText);
end;
end;
end;
@ -488,7 +488,7 @@ begin
SendNotification(senrLineChange, TSynEditStringTrimmingList(Caller),
FPosY - 1, 1);
SendNotification(senrEditAction, TSynEditStringTrimmingList(Caller),
FPosY, 0, length(fSynStrings[FPosY-1]), length(FText), FText);
FPosY, 0, 1+length(fSynStrings[FPosY-1]), length(FText), FText);
end;
end;
end;
@ -775,7 +775,7 @@ var
begin
if (not fEnabled) then exit;
FIsTrimming := True;
{$IFDEF SynTrimDebug}debugln(['--- Trimmer -- TrimAfterLock', ' fLineIndex=', fLineIndex, ' fSpaces=',length(fSpaces), ' Index=', Index, ' LockList=',fLockList.CommaText]);{$ENDIF}
{$IFDEF SynTrimDebug}debugln(['--- Trimmer -- TrimAfterLock', ' fLineIndex=', fLineIndex, ' fSpaces=',length(fSpaces), ' LockList=',fLockList.Count]);{$ENDIF}
i := fLockList.IndexOf(fLineIndex);
if i >= 0 then begin
if fSpaces <> fLockList.Entries[i].TrimmedSpaces then