From 86ee218ac223a84ec4c9602d0e3bd3a381f02da8 Mon Sep 17 00:00:00 2001 From: ondrej Date: Sat, 2 Jan 2016 11:51:35 +0000 Subject: [PATCH] lcl: TCustomForm: prevent sending Resizing twice. Issue #29310 and #29308 git-svn-id: trunk@51115 - --- lcl/include/customform.inc | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 784de8b2d2..5c78118487 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -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