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

LCL: TSizeConstraints: not resetting MinWidth when setting MaxWidth to 0

Browse Source 
git-svn-id: trunk@14476 -
This commit is contained in:
mattias 2008-03-08 21:16:11 +00:00
parent 83363044f3
commit 19f1b85c1f
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/sizeconstraints.inc
View File

@ -165,7 +165,8 @@ procedure TSizeConstraints.SetMaxWidth(Value: TConstraintSize);
begin
if Value <> FMaxWidth then begin
FMaxWidth:= Value;
if (FMinWidth > 0) and (FMaxWidth < FMinWidth) then FMinWidth:= FMaxWidth;
if (FMinWidth > 0) and (FMaxWidth>0) and (FMaxWidth < FMinWidth) then
FMinWidth:= FMaxWidth;
Change;
end;
end;
@ -181,7 +182,8 @@ procedure TSizeConstraints.SetMaxHeight(Value: TConstraintSize);
begin
if Value <> FMaxHeight then begin
FMaxHeight:= Value;
if (FMinHeight > 0) and (FMaxHeight < FMinHeight) then FMinHeight:= FMaxHeight;
if (FMinHeight > 0) and (FMaxHeight>0) and (FMaxHeight < FMinHeight) then
FMinHeight:= FMaxHeight;
Change;
end;
end;