From c7a30dac48dcec201e28ba72d8aee3a307e5b4a4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 21 Nov 2014 12:05:10 +0000
Subject: [PATCH] LCL: qt: fixed compilation

git-svn-id: trunk@46932 -
---
 lcl/interfaces/qt/qtint.pp        | 2 +-
 lcl/interfaces/qt/qtwsfactory.pas | 9 +++++++++
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index c83519f690..2b3ac68dd4 100644
--- a/lcl/interfaces/qt/qtint.pp
+++ b/lcl/interfaces/qt/qtint.pp
@@ -318,7 +318,7 @@ uses
 ////////////////////////////////////////////////////
   Graphics, buttons, Menus,
   // Bindings
-  qtwidgets, qtobjects, qtsystemtrayicon;
+  QtWSFactory, qtwidgets, qtobjects, qtsystemtrayicon;
 
 function DTFlagsToQtFlags(const Flags: Cardinal): Integer;
 begin
diff --git a/lcl/interfaces/qt/qtwsfactory.pas b/lcl/interfaces/qt/qtwsfactory.pas
index e98f0ff192..6d7594ed16 100644
--- a/lcl/interfaces/qt/qtwsfactory.pas
+++ b/lcl/interfaces/qt/qtwsfactory.pas
@@ -556,5 +556,14 @@ begin
   Result := False;
 end;
 
+procedure Init;
+begin
+  // Keep a dummy Init to hide compiler messages "unit not used".
+  // The unit is used by the "alias" functions.
+end;
+
+initialization
+  Init;
+
 end.