paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fixed wrong results from WindowFromPoint(). fixes #11298.

Browse Source 
git-svn-id: trunk@23416 -
This commit is contained in:
zeljko 2010-01-10 11:46:24 +00:00
parent 4a0a000909
commit a6d1c188e0
1 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5362,18 +5362,45 @@ end;
{------------------------------------------------------------------------------
Method: WindowFromPoint
Params: Point -
Returns:
Params: TPoint
Returns: The return value is a handle to the window that contains the param
point.
If no window exists at the given point, the return value is 0.
If the point is over a static text control,
the return value is a handle to the window under the static text control.
------------------------------------------------------------------------------}
function TQtWidgetSet.WindowFromPoint(Point: TPoint): HWND;
var
Widget: QWidgetH;
AForm: TCustomForm;
begin
Widget := QApplication_topLevelAt(Point.x, Point.y);
Widget := QApplication_widgetAt(Point.x, Point.y);
if Widget <> nil then
Result := HWND(QtObjectFromWidgetH(Widget))
else
Result := 0;
begin
Result := HWND(QtObjectFromWidgetH(Widget));
if (Result <> 0) and not
(TQtWidget(Result) is TQtMainWindow) and
(TQtWidget(Result).LCLObject <> nil) then
begin
AForm := GetParentForm(TQtWidget(Result).LCLObject);
if AForm <> nil then
Result := AForm.Handle;
end else
begin
Widget := QApplication_topLevelAt(Point.x, Point.y);
if Widget <> nil then
Result := HWND(QtObjectFromWidgetH(Widget))
else
Result := 0;
end;
end else
begin
Widget := QApplication_topLevelAt(Point.x, Point.y);
if Widget <> nil then
Result := HWND(QtObjectFromWidgetH(Widget))
else
Result := 0;
end;
end;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line