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

SynEdit: fixed InvalidateLines. Keep adjusting the lines until ScrollAfterTopLineChanged was called.

Browse Source 
Issue was introduced in c33eb7418e "Improve order of event in DecPaintLock...£
This commit is contained in:
Martin 2025-06-27 13:54:55 +02:00
parent c33eb7418e
commit bb49b8d5f9
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedit.pp
View File

@ -2715,6 +2715,11 @@ begin
if (not WaitingForInitialSize) then
ScrollAfterTopLineChanged;
(* After this InvalidateLines now longer must adjust for
"pretend not to have scrolled".
If ScrollAfterTopLineChanged did not scroll, then it did InvalidateAll
*)
FIsInDecPaintLock := iplFalse;
end;
finally
FScreenCaret.UnLock;
@ -3108,7 +3113,7 @@ begin
SwapInt(FirstLine, LastLine);
offs := 0;
if FPaintLock > 0 then begin
if (FPaintLock > 0) or (FIsInDecPaintLock <> iplFalse) then begin
// pretend we haven't scrolled
offs := - (FOldTopView - TopView);
end;
@ -3137,7 +3142,7 @@ begin
SwapInt(FirstLine, LastLine);
offs := 0;
if FPaintLock > 0 then begin
if (FPaintLock > 0) or (FIsInDecPaintLock <> iplFalse) then begin
// pretend we haven't scrolled
offs := - (FOldTopView - TopView);
end;