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

SynEdit: Fixed missing update of Scrollbars (IDE disk-diff-dialog)

Browse Source 
git-svn-id: trunk@25862 -
This commit is contained in:
martin 2010-06-03 11:44:34 +00:00
parent 688c276e96
commit 3784648e7d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synedit.pp
View File

@ -4690,7 +4690,9 @@ begin
InvalidateGutterLines(AIndex + 1, -1);
end;
if TopLine > AIndex + 1 then
TopLine := TopLine + ACount;
TopLine := TopLine + ACount // will call UpdateScrollBars
else
UpdateScrollBars;
end;
procedure TCustomSynEdit.LineTextChanged(Sender: TSynEditStrings;
@ -4712,6 +4714,7 @@ begin
InvalidateLines(AIndex + 1, AIndex + ACount);
InvalidateGutterLines(AIndex + 1, AIndex + ACount);
end;
UpdateScrollBars;
end;
procedure TCustomSynEdit.DoHighlightChanged(Sender: TSynEditStrings; AIndex,