From 729679cdfd107734505f3615703e09c7732b9011 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 23 Jun 2013 18:36:49 +0000
Subject: [PATCH] qt: a trial to get a correct pixmap for the small close
 button

git-svn-id: trunk@41848 -
---
 lcl/interfaces/qt/qtthemes.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtthemes.pas b/lcl/interfaces/qt/qtthemes.pas
index 2a655883e0..ee7a7f0f15 100644
--- a/lcl/interfaces/qt/qtthemes.pas
+++ b/lcl/interfaces/qt/qtthemes.pas
@@ -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);