paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-25 04:48:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed computing preferred size of client height - from Marc

Browse Source 
git-svn-id: trunk@19467 -
This commit is contained in:
mattias 2009-04-17 10:39:49 +00:00
parent 443073a7a2
commit a4a1f193d8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/wincontrol.inc
View File

@ -695,7 +695,7 @@ begin
AdjustedClientBorders[akLeft]:=AdjustedClientRect.Left;
AdjustedClientBorders[akTop]:=AdjustedClientRect.Top;
AdjustedClientBorders[akRight]:=BigInteger-AdjustedClientRect.Right;
AdjustedClientBorders[akRight]:=BigInteger-AdjustedClientRect.Bottom;
AdjustedClientBorders[akBottom]:=BigInteger-AdjustedClientRect.Bottom;
end else begin
for a:=low(TAnchorKind) to high(TAnchorKind) do
AdjustedClientBorders[a]:=0;