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

fixed calculating EffectiveMaxWidth and EffectiveMaxHeight

Browse Source 
git-svn-id: trunk@6641 -
This commit is contained in:
vincents 2005-01-19 22:34:30 +00:00
parent dd8c50dc28
commit c2ffe68e8d
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/sizeconstraints.inc
View File

@ -87,22 +87,32 @@ begin
Result:=MinInterfaceHeight;
end;
// EffectiveMaxWidth is the minumum of MaxWidth and MaxInterfaceWidth,
// but is at least MinInterfaceWidth.
// A value of zero is interpreted as unconstraint.
function TSizeConstraints.EffectiveMaxWidth: integer;
begin
if (MaxWidth<MaxInterfaceWidth) then begin
if (MaxInterfaceWidth>0) and
((MaxWidth=0) or (MaxInterfaceWidth<MaxWidth)) then
Result := MaxInterfaceWidth
else
Result:=MaxWidth;
if (Result<MinInterfaceWidth) then Result:=MinInterfaceWidth;
end else
Result:=MaxInterfaceWidth;
if (Result>0) and (MinInterfaceWidth>0) and (Result<MinInterfaceWidth) then
Result:=MinInterfaceWidth;
end;
// EffectiveMaxHeight is the minumum of MaxHeight and MaxInterfaceHeight,
// but is at least MinInterfaceHeight.
// A value of zero is interpreted as unconstraint.
function TSizeConstraints.EffectiveMaxHeight: integer;
begin
if (MaxHeight<MaxInterfaceHeight) then begin
if (MaxInterfaceHeight>0) and
((MaxHeight=0) or (MaxInterfaceHeight<MaxHeight)) then
Result := MaxInterfaceHeight
else
Result:=MaxHeight;
if Result<MinInterfaceHeight then Result:=MinInterfaceHeight;
end else
Result:=MaxInterfaceHeight;
if (Result>0) and (MinInterfaceHeight>0) and (Result<MinInterfaceHeight) then
Result:=MinInterfaceHeight;
end;
function TSizeConstraints.MinMaxWidth(Width: integer): integer;