From e8dd57fb62ceef1d77246d3e7641f9efb26b21c9 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 16 Jul 2013 03:43:04 +0000
Subject: [PATCH] qt: fix DesktopLeft and DesktopTop requests

git-svn-id: trunk@42099 -
---
 lcl/interfaces/qt/qtwinapi.inc | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 11311d8bd4..56d1968a97 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4011,6 +4011,14 @@ begin
       begin
         //DebugLn('Trace:TODO: [TQtWidgetSet.GetSystemMetrics] --> SM_CYSMSIZE         ');
       end;
+    SM_XVIRTUALSCREEN:
+      begin
+        Result := QWidget_x(QApplication_desktop);
+      end;
+    SM_YVIRTUALSCREEN:
+      begin
+        Result := QWidget_y(QApplication_desktop);
+      end;
     SM_CXVIRTUALSCREEN:
       begin
         Result := QWidget_width(QApplication_desktop);