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

Qt: fixed tabwidget icon size. issue #23362

Browse Source 
git-svn-id: trunk@39325 -
This commit is contained in:
zeljko 2012-11-21 07:43:41 +00:00
parent 398f6e2e34
commit 2316eaf3f4
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/qt/qtpagecontrol.inc
View File

@ -87,6 +87,7 @@ var
Bmp: TBitmap; Bmp: TBitmap;
Icon: QIconH; Icon: QIconH;
B: Boolean; B: Boolean;
Size: TSize;
begin begin
ImageList := TCustomTabControl(ACustomPage.Parent).Images; ImageList := TCustomTabControl(ACustomPage.Parent).Images;
@ -100,6 +101,13 @@ begin
Bmp := TBitmap.Create; Bmp := TBitmap.Create;
try try
ImageList.GetBitmap(ACustomPage.ImageIndex, Bmp); ImageList.GetBitmap(ACustomPage.ImageIndex, Bmp);
if (TQtPage(ACustomPage.Handle).ChildOfComplexWidget = ccwTabWidget) and
(TQtPage(ACustomPage.Handle).getTabWidget <> nil) then
begin
Size.cx := ImageList.Width;
Size.cy := ImageList.Height;
QTabWidget_setIconSize(TQtPage(ACustomPage.Handle).getTabWidget, @Size);
end;
TQtPage(ACustomPage.Handle).setIcon(TQtImage(Bmp.Handle).AsIcon); TQtPage(ACustomPage.Handle).setIcon(TQtImage(Bmp.Handle).AsIcon);
B := True; B := True;
finally finally