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

SynEdit: Fix scrollbars, if new handle is created (SynEdit shown a 2nd time). Issue #33784

Browse Source 
git-svn-id: trunk@58022 -
This commit is contained in:
martin 2018-05-24 18:38:53 +00:00
parent d816f49f82
commit ca253bd7c9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synedit.pp
View File

@ -4562,6 +4562,7 @@ begin
inherited CreateHandle; //SizeOrFontChanged will be called inherited CreateHandle; //SizeOrFontChanged will be called
FLeftGutter.RecalcBounds; FLeftGutter.RecalcBounds;
FRightGutter.RecalcBounds; FRightGutter.RecalcBounds;
fStateFlags := fStateFlags - [sfHorizScrollbarVisible, sfVertScrollbarVisible];
UpdateScrollBars; UpdateScrollBars;
finally finally
DoDecPaintLock(nil); DoDecPaintLock(nil);