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

Gtk2: do not blindly unmaximize and deiconify GtkWindow. issue #10698

Browse Source 
git-svn-id: trunk@34530 -
This commit is contained in:
zeljko 2012-01-01 10:47:45 +00:00
parent d6decbd088
commit 5ca2d85d66
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -4894,6 +4894,7 @@ var
AWindow: PGdkWindow;
ACustomForm: TCustomForm;
CurWindowState: TWindowState;
WidgetInfo: PWidgetInfo;
begin
if not (Sender is TWinControl) then
RaiseWrongClass;
@ -4985,8 +4986,15 @@ begin
case CurWindowState of
wsNormal:
begin
gtk_window_deiconify(PGtkWindow(SenderWidget));
gtk_window_unmaximize(PGtkWindow(SenderWidget));
WidgetInfo := GetWidgetInfo(SenderWidget);
with WidgetInfo^.FormWindowState do
begin
if new_window_state and GDK_WINDOW_STATE_ICONIFIED <> 0 then
gtk_window_deiconify(PGtkWindow(SenderWidget));
if (new_window_state and GDK_WINDOW_STATE_MAXIMIZED <> 0) or
(new_window_state and GDK_WINDOW_STATE_FULLSCREEN <> 0) then
gtk_window_unmaximize(PGtkWindow(SenderWidget));
end;
end;
wsMaximized: gtk_window_maximize(PGtkWindow(SenderWidget));
wsMinimized: gtk_window_iconify(PGtkWindow(SenderWidget));