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

fixed WMSize flags for TCustomForm.OnWindowStateChange for gtk2

Browse Source 
git-svn-id: trunk@8068 -
This commit is contained in:
mattias 2005-11-05 17:07:48 +00:00
parent 7382c71808
commit 2e474b10bb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -953,10 +953,10 @@ begin
GtkHeight:=Widget^.Allocation.Height; GtkHeight:=Widget^.Allocation.Height;
if GtkHeight<0 then GtkHeight:=0; if GtkHeight<0 then GtkHeight:=0;
//debugln('GTKWindowStateEventCB ',DbgSName(TObject(Data)),' ',dbgs(state^.new_window_state)); //debugln('GTKWindowStateEventCB ',DbgSName(TObject(Data)),' ',dbgs(state^.new_window_state));
if (GDK_WINDOW_STATE_MAXIMIZED and state^.new_window_state)>0 then if (GDK_WINDOW_STATE_ICONIFIED and state^.new_window_state)>0 then
SizeMsg.SizeType:=SIZEFULLSCREEN
else if (GDK_WINDOW_STATE_ICONIFIED and state^.new_window_state)>0 then
SizeMsg.SizeType:=SIZEICONIC SizeMsg.SizeType:=SIZEICONIC
else if (GDK_WINDOW_STATE_MAXIMIZED and state^.new_window_state)>0 then
SizeMsg.SizeType:=SIZEFULLSCREEN
else else
SizeMsg.SizeType:=SIZENORMAL; SizeMsg.SizeType:=SIZENORMAL;
with SizeMsg do with SizeMsg do