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

Qt: fixed compilation when -dVerboseFocus enabled

Browse Source 
git-svn-id: trunk@33361 -
This commit is contained in:
zeljko 2011-11-06 08:04:41 +00:00
parent d0fb7f4dbf
commit 29cfa624f6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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