paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 13:38:08 +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;
var
Ctrl: TWinControl;
CtrlFakeRoot: THintWindow;
ev: TgdkEvent;
p: TPoint;
Window: PgdkWindow;
Widget: PgtkWidget;
p: TPoint;
WidgetInfo: PWidgetInfo;
begin
// return cached value to prevent heavy gdk_display_get_window_at_pointer call
@ -9843,7 +9845,21 @@ begin
begin
// ignore temporary windows Hint/DragImageList/etc...
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);
ev.any.window := Window;
Widget := gtk_get_event_widget(@ev);
@ -9868,9 +9884,13 @@ begin
end;
// see issue #17389
if (WidgetInfo <> nil) and (WidgetInfo^.LCLObject <> nil)
and (WidgetInfo^.LCLObject is TWinControl) then
Result := TWinControl(WidgetInfo^.LCLObject).Handle;
if (WidgetInfo <> nil) and (WidgetInfo^.LCLObject <> nil) and
(WidgetInfo^.LCLObject is TWinControl) then
begin
Ctrl := TWinControl(WidgetInfo^.LCLObject);
Result := Ctrl.Handle;
CheckTransparentWindow(Result, Ctrl);
end;
// now we must check if we are visible and enabled
if Result <> 0 then