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

SynEdit: Don't scroll 2nd Editor, if caret is out of View

Browse Source 
git-svn-id: trunk@24541 -
This commit is contained in:
martin 2010-04-09 18:12:26 +00:00
parent fd53c6ae63
commit f3a0eb85a3
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -5581,6 +5581,12 @@ var
PhysBlockBeginXY: TPoint;
PhysBlockEndXY: TPoint;
begin
if (TSynEditStringList(FLines).PaintLockOwner <> nil) and
(TSynEditStringList(FLines).PaintLockOwner <> Self) and
(not (eoAlwaysVisibleCaret in fOptions2))
then
exit;
if (fPaintLock > 0) or (not HandleAllocated) or
(FWinControlFlags * [wcfInitializing, wcfCreatingHandle] <> [])
then begin