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

win32: adjust size of pages after assigning an imagelist to a pagecontrol (bug #0015516)

Browse Source 
git-svn-id: trunk@23602 -
This commit is contained in:
paul 2010-01-30 16:16:05 +00:00
parent 3dd19fc92b
commit 19471a58d8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -662,6 +662,9 @@ begin
SendMessage(ANoteBook.Handle, TCM_SETIMAGELIST, 0, AImageList.Reference._Handle)
else
SendMessage(ANoteBook.Handle, TCM_SETIMAGELIST, 0, 0);
// if you set big images like 32x32 then tabs will be big too => you need to
// readjust the size of pages
AdjustSizeNotebookPages(ANotebook);
end;
class procedure TWin32WSCustomNotebook.SetPageIndex(const ANotebook: TCustomNotebook; const AIndex: integer);