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

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

Browse Source 
git-svn-id: trunk@51115 -
This commit is contained in:
ondrej 2016-01-02 11:51:35 +00:00
parent b538c367a2
commit 86ee218ac2
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;
//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);
if (Message.SizeType and not SIZE_SourceIsInterface) = SIZE_RESTORED then