paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 05:39:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix smMaxheight stretchmode

Browse Source 
git-svn-id: trunk@39201 -
This commit is contained in:
michael 2018-06-09 12:44:12 +00:00
parent d08f06df22
commit 9e76882ae6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-report/src/fpreport.pp
View File

@ -4043,6 +4043,7 @@ begin
Case StretchMode of Case StretchMode of
smMaxHeight: smMaxHeight:
begin begin
RTLayout.Height := aDesiredHeight;
if Assigned(Parent) and Assigned(RTLayout) then if Assigned(Parent) and Assigned(RTLayout) then
RTLayout.Height:=Parent.RTLayout.Height-RTLayout.Top; RTLayout.Height:=Parent.RTLayout.Height-RTLayout.Top;
end; end;