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

LCL: constraints min size is 0

Browse Source 
git-svn-id: trunk@12640 -
This commit is contained in:
mattias 2007-10-30 02:48:47 +00:00
parent 10a44b7cd4
commit 9436edc31c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/sizeconstraints.inc
View File

@ -137,7 +137,7 @@ var
begin
Result:=Width;
MinW:=EffectiveMinWidth;
if (MinW>0) and (Result<MinW) then Result:=MinW;
if (Result<MinW) then Result:=MinW;
MaxW:=EffectiveMaxWidth;
if (MaxW>0) and (Result>MaxW) then Result:=MaxW;
end;
@ -149,7 +149,7 @@ var
begin
Result:=Height;
MinH:=EffectiveMinHeight;
if (MinH>0) and (Result<MinH) then Result:=MinH;
if (Result<MinH) then Result:=MinH;
MaxH:=EffectiveMaxHeight;
if (MaxH>0) and (Result>MaxH) then Result:=MaxH;
end;