paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

win32: update notebook when multiline flag is set

Browse Source 
git-svn-id: trunk@25505 -
This commit is contained in:
paul 2010-05-19 08:23:25 +00:00
parent 70d6216214
commit e362c99c72
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -706,16 +706,22 @@ begin
RemoveAllNBPages(ANotebook);
end;
class procedure TWin32WSCustomNotebook.UpdateProperties(
const ANotebook: TCustomNotebook);
class procedure TWin32WSCustomNotebook.UpdateProperties(const ANotebook: TCustomNotebook);
var
currentStyle: cardinal;
CurrentStyle, NewStyle: cardinal;
begin
currentStyle := GetWindowLong(ANotebook.Handle, GWL_STYLE);
if nboMultiLine in ANotebook.Options then
SetWindowLong(ANotebook.Handle, GWL_STYLE, currentStyle or TCS_MULTILINE)
CurrentStyle := GetWindowLong(ANotebook.Handle, GWL_STYLE);
if (nboMultiLine in ANotebook.Options) or (ANotebook.TabPosition in [tpLeft, tpRight]) then
NewStyle := CurrentStyle or TCS_MULTILINE
else
SetWindowLong(ANotebook.Handle, GWL_STYLE, currentStyle and not TCS_MULTILINE)
NewStyle := CurrentStyle and not TCS_MULTILINE;
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);
end;
end;
{$include win32trayicon.inc}