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

LCL: TSplitter: fixed considering constraints for anchored splitter, patch #24911, from Vojtech Cihak

Browse Source 
git-svn-id: trunk@42499 -
This commit is contained in:
mattias 2013-08-26 10:58:49 +00:00
parent 20a053c161
commit 4dd21f6724
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/customsplitter.inc
View File

@ -438,16 +438,18 @@ begin
if (CurResizeControl.AnchorSide[akLeft].Control = Self) or
(CurResizeControl.AnchorSide[akTop].Control = Self) then
begin
if CurMaxShrink > 0 then
OffsetMaxLower := Min(OffsetMaxLower, CurMaxShrink);
if CurMaxEnlarge > 0 then
OffsetMaxUpper := Min(OffsetMaxUpper, CurMaxEnlarge);
end else
begin
// splitter is left or top of CurResizeControl
if CurMaxEnlarge > 0 then
OffsetMaxLower := Min(OffsetMaxLower, CurMaxEnlarge);
if CurMaxShrink > 0 then
OffsetMaxUpper := Min(OffsetMaxUpper, CurMaxShrink);
end else
begin
// splitter is right or bottom of CurResizeControl
if CurMaxShrink > 0 then
OffsetMaxLower := Min(OffsetMaxLower, CurMaxShrink);
if CurMaxEnlarge > 0 then
OffsetMaxUpper := Min(OffsetMaxUpper, CurMaxEnlarge);
end;
end;
end;