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

Qt: fixed SetCapture() and GetCapture() for TQtCustomControl on qtwin32 targets

Browse Source 
git-svn-id: trunk@39878 -
This commit is contained in:
zeljko 2013-01-18 09:11:57 +00:00
parent ff9e96532a
commit 00419b8bb3
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2526,6 +2526,13 @@ begin
// Capture widget can be child of complex control. In any case we should return TQtWidget as result.
// So we will look for parent while not found apropriate LCL handle.
Widget := GetFirstQtObjectFromWidgetH(w);
{$IFDEF MSWINDOWS}
if Widget <> nil then
begin
if Widget is TQtCustomControl then
Widget := TQtCustomControl(Widget).Viewport;
end;
{$ENDIF}
Result := HWND(Widget);
end
else
@ -5530,7 +5537,11 @@ begin
if IsValidHandle(AHandle) then
begin
{$IFDEF MSWINDOWS}
Windows.SetCapture(QWidget_winID(TQtWidget(AHandle).Widget));
if TQtWidget(AHandle) is TQtCustomControl then
begin
Windows.SetCapture(QWidget_winID(TQtCustomControl(AHandle).Viewport.Widget))
end else
Windows.SetCapture(QWidget_winID(TQtWidget(AHandle).Widget));
{$ELSE}
TQtWidget(AHandle).grabMouse();
{$ENDIF}