paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-19 21:19:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: change assertion for paintlock

Browse Source
This commit is contained in:
Martin 2025-07-04 12:38:05 +02:00
parent 707718cd3e
commit 88a6c86892
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -5408,7 +5408,7 @@ begin
then
Include(fStateFlags, sfScrollbarChanged)
else begin
{$IFOPT C+} assert(not(dplNoNewPaintLock in FInDecPaintLockState) or not(dplNoUpdateScrollBar in FAssertInDecPaintLockDone), 'UpdateScrollBars called twice in one DecPaintLock'); Include(FAssertInDecPaintLockDone, dplNoUpdateScrollBar); {$ENDIF}
//{$IFOPT C+} assert(not(dplNoNewPaintLock in FInDecPaintLockState) or not(dplNoUpdateScrollBar in FAssertInDecPaintLockDone), 'UpdateScrollBars called twice in one DecPaintLock'); Include(FAssertInDecPaintLockDone, dplNoUpdateScrollBar); {$ENDIF}
Exclude(fStateFlags, sfScrollbarChanged);
ScrollInfo.cbSize := SizeOf(ScrollInfo);
ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL and not SIF_TRACKPOS;
@ -7078,6 +7078,7 @@ begin
include(fStateFlags, sfEnsureCursorPos);
exit;
end;
{$IFOPT C+} assert(not(dplNoEnsureCursorPos in FInDecPaintLockState) or not(dplNoEnsureCursorPos in FAssertInDecPaintLockDone), 'EnsureCursorPosVisible called twice in one DecPaintLock'); Include(FAssertInDecPaintLockDone, dplNoEnsureCursorPos); {$ENDIF}
//{BUG21996} DebugLnEnter(['TCustomSynEdit.EnsureCursorPosVisible Caret=',dbgs(CaretXY),', BlockBegin=',dbgs(BlockBegin),' BlockEnd=',dbgs(BlockEnd), ' StateFlags=',dbgs(fStateFlags), ' paintlock', FPaintLock]);
exclude(fStateFlags, sfEnsureCursorPos);