paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:57:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Gtk2: Fixed WindowFromPoint to return correct result if pointer is over drag-image or other "transparent" window. Patch by Artem Izmaylov, issue #41542.

Browse Source
This commit is contained in:
Maxim Ganetsky 2025-03-23 23:04:04 +03:00
parent c6be70c8f6
commit 1a56b9580d
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -9819,10 +9819,12 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function TGtk2WidgetSet.WindowFromPoint(APoint: TPoint): HWND; function TGtk2WidgetSet.WindowFromPoint(APoint: TPoint): HWND;
var var
Ctrl: TWinControl;
CtrlFakeRoot: THintWindow;
ev: TgdkEvent; ev: TgdkEvent;
p: TPoint;
Window: PgdkWindow; Window: PgdkWindow;
Widget: PgtkWidget; Widget: PgtkWidget;
p: TPoint;
WidgetInfo: PWidgetInfo; WidgetInfo: PWidgetInfo;
begin begin
// return cached value to prevent heavy gdk_display_get_window_at_pointer call // return cached value to prevent heavy gdk_display_get_window_at_pointer call
@ -9843,7 +9845,21 @@ begin
begin begin
// ignore temporary windows Hint/DragImageList/etc... // ignore temporary windows Hint/DragImageList/etc...
if gdk_window_get_type(Window) = GDK_WINDOW_TEMP then if gdk_window_get_type(Window) = GDK_WINDOW_TEMP then
Exit(LastWFPResult); begin
// FakeRoot must be a temporary window that returns HTTRANSPARENT on WM_NCHitTest.
// It is used as an entry point for CheckTransparentWindow method to start searching thgrough all forms.
CtrlFakeRoot := THintWindow.Create(nil);
try
Ctrl := CtrlFakeRoot;
CheckTransparentWindow(Result, Ctrl);
finally
CtrlFakeRoot.Free;
end;
if Result = 0 then
Result := LastWFPResult;
Exit;
end;
FillChar(ev{%H-}, SizeOf(ev), 0); FillChar(ev{%H-}, SizeOf(ev), 0);
ev.any.window := Window; ev.any.window := Window;
Widget := gtk_get_event_widget(@ev); Widget := gtk_get_event_widget(@ev);
@ -9868,9 +9884,13 @@ begin
end; end;
// see issue #17389 // see issue #17389
if (WidgetInfo <> nil) and (WidgetInfo^.LCLObject <> nil) if (WidgetInfo <> nil) and (WidgetInfo^.LCLObject <> nil) and
and (WidgetInfo^.LCLObject is TWinControl) then (WidgetInfo^.LCLObject is TWinControl) then
Result := TWinControl(WidgetInfo^.LCLObject).Handle; begin
Ctrl := TWinControl(WidgetInfo^.LCLObject);
Result := Ctrl.Handle;
CheckTransparentWindow(Result, Ctrl);
end;
// now we must check if we are visible and enabled // now we must check if we are visible and enabled
if Result <> 0 then if Result <> 0 then