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

Merged revision(s) 51115 #86ee218ac2 from trunk:

Browse Source 
lcl: TCustomForm: prevent sending Resizing twice. Issue #29310 and #29308
........

git-svn-id: branches/fixes_1_6@51152 -
This commit is contained in:
maxim 2016-01-03 12:42:35 +00:00
parent 23f6da9120
commit 5fb41b86ea
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/include/customform.inc
View File

@ -712,23 +712,6 @@ begin
end; end;
end; end;
//DebugLn('Trace:WMSIZE in TCustomForm');
if (Message.SizeType and SIZE_SourceIsInterface) <> 0 then
begin
NewState := FWindowState;
case (Message.SizeType xor SIZE_SourceIsInterface) of
SIZE_RESTORED:
NewState := wsNormal;
SIZE_MINIMIZED:
NewState := wsMinimized;
SIZE_MAXIMIZED:
NewState := wsMaximized;
SIZE_FULLSCREEN:
NewState := wsFullScreen;
end;
Resizing(NewState);
end;
inherited WMSize(Message); inherited WMSize(Message);
if (Message.SizeType and not SIZE_SourceIsInterface) = SIZE_RESTORED then if (Message.SizeType and not SIZE_SourceIsInterface) = SIZE_RESTORED then