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

win32: don't add tab is Notebook.ShowTabs = False (bug #0012775)

Browse Source 
git-svn-id: trunk@18183 -
This commit is contained in:
paul 2009-01-07 09:27:42 +00:00
parent e65435e6ab
commit 75f25dfbab
1 changed files with 22 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -423,6 +423,8 @@ var
TCI: TC_ITEM;
begin
with ANotebook do
begin
if ShowTabs then
begin
TCI.Mask := TCIF_TEXT or TCIF_PARAM or TCIF_IMAGE;
// store object as extra, so we can verify we got the right page later
@ -446,6 +448,7 @@ begin
// clientrect possible changed, adding first tab, or deleting last
// windows should send a WM_SIZE message because of this, but it doesn't
// send it ourselves
end;
LCLControlSizeNeedsUpdate(ANotebook, true);
end;
end;