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

LCL-Gtk2: Ignore temporary windows (like dragging image) when selecting a target during Drag'n'Drop action. Patch by Alexander (Rouse_) Bagel, issue #40637.

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-12-08 01:42:54 +03:00
parent 656d6ffc5d
commit e2c8faccd9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9828,6 +9828,9 @@ begin
@p.x, @p.y);
if window <> nil then
begin
// ignore temporary windows Hint/DragImageList/etc...
if gdk_window_get_type(Window) = GDK_WINDOW_TEMP then
Exit(LastWFPResult);
FillChar(ev{%H-}, SizeOf(ev), 0);
ev.any.window := Window;
Widget := gtk_get_event_widget(@ev);