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

lcl: win32: fixed change WindowState from wsMaximized to wsNormal when changing Constraints, issue #41325

Browse Source
This commit is contained in:
mattias 2025-01-08 17:21:57 +01:00
parent 832b61143a
commit fad6cd5192
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/win32/win32proc.pp
View File

@ -659,7 +659,18 @@ begin
with LMessage do
begin
Msg := LM_SIZE;
SizeType := SIZE_RESTORED or Size_SourceIsInterface;
SizeType := SIZE_RESTORED;
if Sender is TCustomForm then
begin
case TCustomForm(Sender).WindowState of
wsNormal: SizeType:=SIZE_RESTORED;
wsMinimized: SizeType:=SIZE_MINIMIZED;
wsMaximized: SizeType:=SIZE_MAXIMIZED;
wsFullScreen: SizeType:=SIZE_FULLSCREEN;
end;
end;
SizeType:=SizeType or Size_SourceIsInterface;
Width := IntfWidth;
Height := IntfHeight;
end;