From 29cfa624f6c47cde86aa315cc654da286100402c Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 6 Nov 2011 08:04:41 +0000
Subject: [PATCH] Qt: fixed compilation when -dVerboseFocus enabled

git-svn-id: trunk@33361 -
---
 lcl/interfaces/qt/qtwinapi.inc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 8ce7bbaf83..5816bbcb93 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -2866,6 +2866,9 @@ end;
 function TQtWidgetSet.GetFocus: HWND;
 var
   W: QWidgetH;
+ {$ifdef VerboseFocus}
+ Obj: TQtWidget;
+ {$endif}
 begin
   Result := 0;
   W := QApplication_FocusWidget();
@@ -2873,7 +2876,8 @@ begin
   begin
     Result := HwndFromWidgetH(W);
     {$ifdef VerboseFocus}
-    Write('TQtWidgetSet.GetFocus: WidgetH=',dbghex(ptrint(WidgetH)), ' QtWidget=', dbgsname(Obj));
+    Obj := TQtWidget(Result);
+    Write('TQtWidgetSet.GetFocus: WidgetH=',dbghex(ptruint(W)), ' QtWidget=', dbgsname(Obj));
     if Obj<>nil then
       WriteLn(' LclObject=', dbgsname(Obj.LCLObject))
     else