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

win32: notify LCL about notebook size change in case of switching multiline property

Browse Source 
git-svn-id: trunk@25506 -
This commit is contained in:
paul 2010-05-19 08:30:36 +00:00
parent e362c99c72
commit 32ae8008b2
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsextctrls.pp
View File

@ -718,9 +718,8 @@ begin
if NewStyle <> CurrentStyle then
begin
SetWindowLong(ANotebook.Handle, GWL_STYLE, NewStyle);
ANotebook.InvalidateClientRectCache(False);
SetWindowPos(ANoteBook.Handle, 0, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOZORDER or SWP_DRAWFRAME);
InvalidateRect(ANoteBook.Handle, nil, True);
LCLControlSizeNeedsUpdate(ANotebook, True);
end;
end;