paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 11:19:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk3: fixed Gtk3WinApi.GetActiveWindow(). Patch by Anton Kavalenka. issue #36954

Browse Source 
git-svn-id: trunk@63046 -
This commit is contained in:
zeljko 2020-04-22 16:59:42 +00:00
parent b089104119
commit 0098727a3e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1725,9 +1725,10 @@ begin
AWindow := gdk_screen_get_active_window(gdk_screen_get_default);
if AWindow <> nil then
begin
AData := g_object_get_data(AWindow, 'lclwidget');
if AData <> nil then
gdk_window_get_user_data(AWindow,@AWidget);
if AWidget <> nil then
begin
AData := g_object_get_data(AWidget, 'lclwidget');
// DebugLn('TGtk3WidgetSet.GetActiveWindow found window from data ...',dbgsName(TGtk3Widget(AData).LCLObject));
exit(HWND(AData));
end;