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

LCL-GTK3: Implement ApplicationProperties.OnActivate/OnDeactivate. Issue #37867, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@63957 -
This commit is contained in:
juha 2020-10-04 19:12:11 +00:00
parent ab4eeb5ffc
commit 935b33a771
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk3/gtk3widgets.pas
View File

@ -1055,6 +1055,8 @@ begin
end;
end;
const act_count:integer=0;
function Gtk3WidgetEvent(widget: PGtkWidget; event: PGdkEvent; data: GPointer): gboolean; cdecl;
begin
{$IFDEF GTK3DEBUGCOMBOBOX}
@ -1230,6 +1232,19 @@ begin
end;
GDK_FOCUS_CHANGE:
begin
if event^.focus_change.in_=1 then
begin
if act_count=0 then
Application.IntfAppActivate();
inc(act_count);
end
else
begin
if act_count>0 then
Application.IntfAppDeactivate();
dec(act_count);
end;
if wtComboBox in TGtk3Widget(Data).WidgetType then
begin
TGtk3ComboBox(Data).DumpPrivateStructValues('GDK_FOCUS_CHANGE='+IntToStr(Event^.focus_change.in_));