From e2a8f33ce73e60f1edea09b9fdf98b177f271bc7 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 10 May 2010 06:50:31 +0000
Subject: [PATCH] Qt: remove unneded clearFocus from SetFocus() after focus
 changes in LCL.

git-svn-id: trunk@25287 -
---
 lcl/interfaces/qt/qtwinapi.inc | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/lcl/interfaces/qt/qtwinapi.inc b/lcl/interfaces/qt/qtwinapi.inc
index 99e672c012..5b85fab6fe 100644
--- a/lcl/interfaces/qt/qtwinapi.inc
+++ b/lcl/interfaces/qt/qtwinapi.inc
@@ -4699,23 +4699,13 @@ end;
 
  ------------------------------------------------------------------------------}
 function TQtWidgetSet.SetFocus(hWnd: HWND): HWND;
-var
-  QtEdit: IQtEdit;
 begin
   if hwnd<>0 then
   begin
     {$ifdef VerboseFocus}
     WriteLn('*********  TQtWidgetSet.SetFocus INIT focusing ', TQtWidget(hwnd).lclobject.name);
     {$endif}
-    result := GetFocus;
-
-    if (Result <> 0) and (Result <> hWnd) and not
-      ((TQtWidget(Hwnd) is TQtMainWindow) or
-      (TQtWidget(Result) is TQtMainWindow)) and
-      Supports(TQtWidget(Result), IQtEdit, QtEdit)
-    then
-      QWidget_clearFocus(TQtWidget(Result).Widget);
-
+    Result := GetFocus;
     TQtWidget(hWnd).setFocus;
     {$ifdef VerboseFocus}
     DebugLn('********* TQtWidgetSet.SetFocus END was %x now is %x',[result,hwnd]);