paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-19 07:23:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt: remove unneded clearFocus from SetFocus() after focus changes in LCL.

Browse Source 
git-svn-id: trunk@25287 -
This commit is contained in:
zeljko 2010-05-10 06:50:31 +00:00
parent 5ee47f5771
commit e2a8f33ce7
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/qt/qtwinapi.inc
View File

@ -4699,23 +4699,13 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TQtWidgetSet.SetFocus(hWnd: HWND): HWND; function TQtWidgetSet.SetFocus(hWnd: HWND): HWND;
var
QtEdit: IQtEdit;
begin begin
if hwnd<>0 then if hwnd<>0 then
begin begin
{$ifdef VerboseFocus} {$ifdef VerboseFocus}
WriteLn('********* TQtWidgetSet.SetFocus INIT focusing ', TQtWidget(hwnd).lclobject.name); WriteLn('********* TQtWidgetSet.SetFocus INIT focusing ', TQtWidget(hwnd).lclobject.name);
{$endif} {$endif}
result := GetFocus; 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);
TQtWidget(hWnd).setFocus; TQtWidget(hWnd).setFocus;
{$ifdef VerboseFocus} {$ifdef VerboseFocus}
DebugLn('********* TQtWidgetSet.SetFocus END was %x now is %x',[result,hwnd]); DebugLn('********* TQtWidgetSet.SetFocus END was %x now is %x',[result,hwnd]);