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

SourceSynEdit: fix scrolling with top-info hint. Issue #0024505

Browse Source 
git-svn-id: trunk@41717 -
This commit is contained in:
martin 2013-06-14 19:54:26 +00:00
parent 81bcce809a
commit 362f050d90
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourcesyneditor.pas
View File

@ -211,6 +211,7 @@ type
FOnIfdefNodeStateRequest: TSynMarkupIfdefStateRequest; FOnIfdefNodeStateRequest: TSynMarkupIfdefStateRequest;
FMarkupIfDef: TSynEditMarkupIfDef; FMarkupIfDef: TSynEditMarkupIfDef;
FTopInfoDisplay: TSourceLazSynTopInfoView; FTopInfoDisplay: TSourceLazSynTopInfoView;
FTopInfoLastTopLine: Integer;
FSrcSynCaretChangedLock: boolean; FSrcSynCaretChangedLock: boolean;
FExtraMarkupLine: TSynEditMarkupSpecialLine; FExtraMarkupLine: TSynEditMarkupSpecialLine;
FExtraMarkupMgr: TSynEditMarkupManager; FExtraMarkupMgr: TSynEditMarkupManager;
@ -1393,6 +1394,9 @@ begin
end; end;
end; end;
if TopLine <> FTopInfoLastTopLine then
ListCnt := Min(ListCnt, Max(0, CaretY - TopLine));
t := TopLine + ListCnt - TSourceLazSynSurfaceManager(FPaintArea).TopLineCount; t := TopLine + ListCnt - TSourceLazSynSurfaceManager(FPaintArea).TopLineCount;
if (CaretY >= TopLine) and (CaretY < t) then if (CaretY >= TopLine) and (CaretY < t) then
t := CaretY; t := CaretY;
@ -1426,6 +1430,7 @@ begin
finally finally
FSrcSynCaretChangedLock := False; FSrcSynCaretChangedLock := False;
FTopInfoLastTopLine := TopLine;
end; end;
end; end;