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

LCL-GTK3: Allow maximizing main form during OnCreate. Issue #38669, patch from Anton Kavalenka.

Browse Source 
git-svn-id: trunk@64879 -
This commit is contained in:
juha 2021-03-28 09:02:41 +00:00
parent b13c6706db
commit 4c1f609650
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7200,6 +7200,15 @@ begin
PGtkContainer(Result)^.add(FBox);
g_signal_connect_data(Result,'window-state-event', TGCallback(@Gtk3WindowState), Self, nil, 0);
if not (csDesigning in AForm.ComponentState) then
case AForm.WindowState of
wsMaximized: PgtkWindow(Result)^.maximize;
wsMinimized: PgtkWindow(Result)^.iconify;
else
end;
//REMOVE THIS, USED TO TRACK MOUSE MOVE OVER WIDGET TO SEE SIZE OF FIXED !
//g_object_set_data(PGObject(FScrollWin), 'lcldebugscrollwin', Self);
//g_object_set_data(PGObject(FCentralWidget), 'lcldebugfixed', Self);