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

LCL: TabControl; better clientarea

Browse Source 
git-svn-id: trunk@42636 -
This commit is contained in:
martin 2013-09-06 11:44:16 +00:00
parent 2b640c6174
commit b150be0281
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/tabcontrol.inc
View File

@ -373,16 +373,18 @@ end;
{ TTabControl }
procedure TTabControl.AdjustDisplayRect(var ARect: TRect);
const
TabControlInternalBorder = 2; // TTabControl paints a border, so limit the children, to be within that border
begin
AdjustDisplayRectWithBorder(ARect);
if TabPosition<>tpTop then
ARect.Top:=Min(Max(ARect.Top,ARect.Top+BorderWidth),ARect.Bottom);
ARect.Top:=Min(Max(ARect.Top,ARect.Top+BorderWidth+TabControlInternalBorder),ARect.Bottom);
if TabPosition<>tpBottom then
ARect.Bottom:=Max(Min(ARect.Bottom,ARect.Bottom-BorderWidth),ARect.Top);
ARect.Bottom:=Max(Min(ARect.Bottom,ARect.Bottom-BorderWidth-TabControlInternalBorder),ARect.Top);
if TabPosition<>tpLeft then
ARect.Left:=Min(Max(ARect.Left,ARect.Left+BorderWidth),ARect.Right);
ARect.Left:=Min(Max(ARect.Left,ARect.Left+BorderWidth+TabControlInternalBorder),ARect.Right);
if TabPosition<>tpRight then
ARect.Right:=Max(Min(ARect.Right,ARect.Right-BorderWidth),ARect.Left);
ARect.Right:=Max(Min(ARect.Right,ARect.Right-BorderWidth-TabControlInternalBorder),ARect.Left);
end;
function TTabControl.GetDisplayRect: TRect;