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

lcl: fix TPanel AdjustClientRect and Paint

Browse Source 
git-svn-id: trunk@23919 -
This commit is contained in:
paul 2010-03-10 13:13:51 +00:00
parent 114742d185
commit 2b7d5c5b63
1 changed files with 10 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lcl/include/custompanel.inc
View File

@ -94,17 +94,16 @@ var
TS : TTextStyle;
begin
ARect := GetClientRect;
// if BevelOuter is set then draw a frame with BevelWidth
if (BevelOuter <> bvNone) and (BevelWidth>0) then
if (BevelOuter <> bvNone) and (BevelWidth > 0) then
Canvas.Frame3d(ARect, BevelWidth, BevelOuter); // Note: Frame3D inflates ARect
InflateRect(ARect, -BorderWidth, -BorderWidth);
// if BevelInner is set then skip the BorderWidth and draw a frame with BevelWidth
if (BevelInner <> bvNone) and (BevelWidth>0) then
begin
if BorderWidth > 0 then
InflateRect(ARect, -BorderWidth, -BorderWidth);
if (BevelInner <> bvNone) and (BevelWidth > 0) then
Canvas.Frame3d(ARect, BevelWidth, BevelInner); // Note: Frame3D inflates ARect
end;
if Caption <> '' then
begin
@ -136,18 +135,13 @@ var
BevelSize: Integer;
begin
inherited AdjustClientRect(aRect);
BevelSize:=0;
// if BevelOuter is set then draw a frame with BevelWidth
if (BevelOuter <> bvNone) and (BevelWidth > 0) then
BevelSize := BorderWidth;
if (BevelOuter <> bvNone) then
inc(BevelSize, BevelWidth);
if (BevelInner <> bvNone) then
inc(BevelSize, BevelWidth);
// if BevelInner is set then skip the BorderWidth and draw a frame with BevelWidth
if (BevelInner <> bvNone) and (BevelWidth > 0) then
begin
if BorderWidth > 0 then
Inc(BevelSize, BorderWidth);
Inc(BevelSize, BevelWidth);
end;
InflateRect(aRect, -BevelSize, -BevelSize);
end;