paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Wrapped view, fixed assertion

Browse Source
This commit is contained in:
Martin 2025-01-21 16:03:53 +01:00
parent 9a8138a7c1
commit 7a61eec5b3
1 changed files with 3 additions and 2 deletions

5
components/synedit/syneditwrappedview.pp
View File

@ -930,13 +930,14 @@ begin
@ADestPage.FWrappedExtraSums[ALineCount + OldOffset],
ADestPage.FWrappedExtraSumsCount,
SrcO2 - SrcO1);
assert(ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount, 'TSynWordWrapLineMap.MoveLinesAtEndTo: ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount');
if MinLineCount > 0 then
if MinLineCount > 0 then begin
assert(ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount, 'TSynWordWrapLineMap.MoveLinesAtEndTo: ASourceStartLine+MinLineCount<=FWrappedExtraSumsCount');
WrapInfoCopyAndAdjustFromTo(
@FWrappedExtraSums[ASourceStartLine],
@ADestPage.FWrappedExtraSums[0],
MinLineCount,
-SrcO1);
end;
WrapInfoFillFrom(
@ADestPage.FWrappedExtraSums[MinLineCount],
ALineCount - MinLineCount + OldOffset,