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

Gtk3: check if GetCapture works ok.

Browse Source
This commit is contained in:
zeljan1 2025-01-21 13:37:23 +01:00
parent 86bba40f39
commit c52971d599
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/gtk3/gtk3winapi.inc
View File

@ -1831,8 +1831,14 @@ begin
end; end;
function TGtk3WidgetSet.GetCapture: HWND; function TGtk3WidgetSet.GetCapture: HWND;
var
W:PGtkWidget;
begin begin
Result := HwndFromGtkWidget(gtk_grab_get_current); W := gtk_grab_get_current;
Result := HwndFromGtkWidget(W);
//debug
if (Result = 0) and (W <> nil) and Gtk3IsWidget(W) then
DebugLn('WARNING: TGtk3WidgetSet.GetCapture returned wrong result grabber is: ',g_type_name(W^.g_type_instance.g_class^.g_type),' please report a bug.');
{$IFDEF VerboseGtk3WinApi} {$IFDEF VerboseGtk3WinApi}
DebugLn('TGtk3WidgetSet.GetCapture ',dbgHex(Result)); DebugLn('TGtk3WidgetSet.GetCapture ',dbgHex(Result));
{$ENDIF} {$ENDIF}