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

Qt5: use Qt mouse capture, fixes problems with MDI under win32.

Browse Source 
git-svn-id: trunk@53836 -
This commit is contained in:
zeljko 2017-01-02 17:45:48 +00:00
parent 99bb8c5526
commit 7f6f830071
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/qt5/qtwinapi.inc
View File

@ -2508,11 +2508,11 @@ function TQtWidgetSet.GetCapture: HWND;
var
w: QWidgetH;
Widget: TQtWidget;
{$IFDEF MSWINDOWS}
{$IFDEF MSWINDOWSQT4}
AWin: HWND;
{$ENDIF}
begin
{$IFDEF MSWINDOWS}
{$IFDEF MSWINDOWSQT4}
AWin := Windows.GetCapture;
if AWin <> 0 then
w := QWidget_find(AWin)
@ -2534,7 +2534,7 @@ 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}
{$IFDEF MSWINDOWSQT4}
if Widget <> nil then
begin
if Widget is TQtCustomControl then
@ -5376,7 +5376,7 @@ begin
Result := w <> nil;
if Result then
begin
{$IFDEF MSWINDOWS}
{$IFDEF MSWINDOWSQT4}
if (w is TQtMainWindow) then
w.releaseMouse()
else
@ -5816,7 +5816,7 @@ begin
ReleaseCapture;
if IsValidHandle(AHandle) then
begin
{$IFDEF MSWINDOWS}
{$IFDEF MSWINDOWSQT4}
if TQtWidget(AHandle) is TQtCustomControl then
begin
Windows.SetCapture(QWidget_winID(TQtCustomControl(AHandle).Viewport.Widget))