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

designer: improve look of non-visual components

Browse Source 
git-svn-id: trunk@18805 -
This commit is contained in:
paul 2009-02-23 08:34:04 +00:00
parent dfc003e02b
commit 1fdf7aac12
2 changed files with 10 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
designer/designer.pp
View File

@ -2466,7 +2466,7 @@ end;
procedure TDesigner.DrawNonVisualComponents(aDDC: TDesignerDeviceContext);
var
i, j, ItemLeft, ItemTop, ItemRight, ItemBottom: integer;
i, ItemLeft, ItemTop, ItemRight, ItemBottom: integer;
Diff, ItemLeftTop: TPoint;
IconRect: TRect;
Icon: TBitmap;
@ -2482,36 +2482,22 @@ begin
// non-visual component
ItemLeftTop := NonVisualComponentLeftTop(AComponent);
ItemLeft := ItemLeftTop.X - Diff.X;
ItemTop := ItemLeftTop.Y-Diff.Y;
ItemRight := ItemLeft+NonVisualCompWidth;
ItemBottom := ItemTop+NonVisualCompWidth;
ItemTop := ItemLeftTop.Y - Diff.Y;
ItemRight := ItemLeft + NonVisualCompWidth;
ItemBottom := ItemTop + NonVisualCompWidth;
if not aDDC.RectVisible(ItemLeft, ItemTop, ItemRight, ItemBottom) then
Continue;
aDDC.Save;
with aDDC.Canvas do
begin
Pen.Width := 1;
Pen.Color := clWhite;
for j := 0 to NonVisualCompBorder - 1 do
begin
MoveTo(ItemLeft + j, ItemBottom - j);
LineTo(ItemLeft + j, ItemTop + j);
LineTo(ItemRight - j, ItemTop + j);
end;
Pen.Color := clBlack;
for j := 0 to NonVisualCompBorder - 1 do
begin
MoveTo(ItemLeft + j, ItemBottom - j);
LineTo(ItemRight - j, ItemBottom - j);
MoveTo(ItemRight - j, ItemTop + j);
LineTo(ItemRight - j, ItemBottom - j + 1);
end;
IconRect := Rect(ItemLeft + NonVisualCompBorder, ItemTop + NonVisualCompBorder,
ItemRight - NonVisualCompBorder, ItemBottom - NonVisualCompBorder);
IconRect := Rect(ItemLeft, ItemTop, ItemRight, ItemBottom);
Frame3D(IconRect, 1, bvRaised);
Brush.Color := clBtnFace;
//writeln('TDesigner.DrawNonVisualComponents A ',IconRect.Left,',',IconRect.Top,',',IconRect.Right,',',IconRect.Bottom);
FillRect(Rect(IconRect.Left, IconRect.Top,
IconRect.Right + 1, IconRect.Bottom + 1));
IconRect.Right, IconRect.Bottom));
if NonVisualCompBorder > 1 then
InflateRect(IconRect, -NonVisualCompBorder + 1, - NonVisualCompBorder + 1);
end;
if Assigned(FOnGetNonVisualCompIcon) then
begin

2
designer/designerprocs.pas
View File

@ -82,7 +82,7 @@ type
const
NonVisualCompIconWidth = ComponentPaletteImageWidth;
NonVisualCompBorder = 2;
NonVisualCompWidth = NonVisualCompIconWidth+2*NonVisualCompBorder;
NonVisualCompWidth = NonVisualCompIconWidth + 2 * NonVisualCompBorder;
type