paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 21:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: a trial to get a correct pixmap for the small close button

Browse Source 
git-svn-id: trunk@41848 -
This commit is contained in:
paul 2013-06-23 18:36:49 +00:00
parent c692aea81a
commit 729679cdfd
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtthemes.pas
View File

@ -350,9 +350,17 @@ begin
end;
qdvStandardPixmap:
begin
opt := QStyleOption_create(QStyleOptionVersion, QStyleOptionSO_Default);
AIcon := QIcon_create();
QStyle_standardIcon(Style, AIcon, Element.StandardPixmap, opt);
if Element.StandardPixmap = QStyleSP_TitleBarCloseButton then
begin
opt := QStyleOptionDockWidget_create();
QStyle_standardIcon(Style, AIcon, Element.StandardPixmap, opt, Context.Parent);
end
else
begin
opt := QStyleOption_create(QStyleOptionVersion, QStyleOptionSO_Default);
QStyle_standardIcon(Style, AIcon, Element.StandardPixmap, opt);
end;
QIcon_paint(AIcon, Context.Widget, ARect.Left, ARect.Top,
ARect.Right - ARect.Left, ARect.Bottom - ARect.Top);
QIcon_destroy(AIcon);