paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 16:37:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: clean up

Browse Source 
git-svn-id: trunk@36863 -
This commit is contained in:
mattias 2012-04-17 07:56:41 +00:00
parent d57368b809
commit 925be78561
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/customdrawn_android.pas
View File

@ -169,13 +169,13 @@ var
Str: string;
begin
// Button shape -> This crashes in Gtk2
{ TmpB.Canvas.Brush.Color := CDButton.Color;
(* TmpB.Canvas.Brush.Color := CDButton.Color;
TmpB.Canvas.Brush.Style := bsSolid;
TmpB.Canvas.RoundRect(0, 0, TmpB.Width, TmpB.Height, 8, 8);
CDButton.SetShape(TmpB);
ADest.Draw(0, 0, TmpB);
TmpB.Free;
}
*)
ADest.Brush.Color := CDButton.Parent.Color;
ADest.Brush.Style := bsSolid;

4
lcl/customdrawn_common.pas
View File

@ -1256,7 +1256,7 @@ begin
// The outter frame
// if BevelOuter is set then draw a frame with BevelWidth
if (AStateEx.BevelOuter <> bvNone) and (AStateEx.BevelWidth > 0) then
if (AStateEx.BevelOuter <> bvNone) then
begin
NextRectFactor := AStateEx.BevelWidth;
DrawFrame3d(ADest, Point(0, 0), ASize, AStateEx.BevelWidth, AStateEx.BevelOuter); // Note: Frame3D inflates ARect
@ -1266,7 +1266,7 @@ begin
ASize.cy := ASize.cy - NextRectFactor*2;
// if BevelInner is set then skip the BorderWidth and draw a frame with BevelWidth
if (AStateEx.BevelInner <> bvNone) and (AStateEx.BevelWidth > 0) then
if (AStateEx.BevelInner <> bvNone) then
DrawFrame3d(ADest, Point(NextRectFactor, NextRectFactor), ASize, AStateEx.BevelWidth, AStateEx.BevelInner); // Note: Frame3D inflates ARect
{if Caption <> '' then

4
lcl/include/custompanel.inc
View File

@ -100,13 +100,13 @@ begin
ARect := GetClientRect;
// if BevelOuter is set then draw a frame with BevelWidth
if (BevelOuter <> bvNone) and (BevelWidth > 0) then
if (BevelOuter <> bvNone) 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
if (BevelInner <> bvNone) then
Canvas.Frame3d(ARect, BevelWidth, BevelInner); // Note: Frame3D inflates ARect
if Caption <> '' then