delphi - Firemonkey组件节省设计时间大小

Question

关于this我已经能够创建一个 FMX 组件，它是一个带有黑色边框的白色矩形，可以用鼠标光标在内部绘制(就像使用 MS Paint 一样)。

当我编译并运行该程序时，我得到:

为什么？

如果我设置 Align 属性，例如它会起作用(客户端将其与客户端对齐)。如果我将组件对齐到中心，它位于中心，但尺寸较小(如图所示)。

看起来它没有“保存”我在对象检查器上设置的宽度和高度。我的组件有以下相关代码:

type
  Test = class(TControl)
  strict private
    FLineFill: TStrokeBrush;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Align;
property Anchors;
property ClipChildren;
property ClipParent;
property Cursor;
property Enabled;
property Locked;
property Height;
property HitTest;
property Opacity;
property Margins;
property Position;
property Visible;
property Width;
property OnClick;
property OnDblClick;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnMouseWheel;
property OnMouseEnter;
property OnMouseLeave;
property OnPainting;
property OnPaint;
property OnResize;
property OnResized;
end;

这是实现:

constructor Test.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FLineFill := TStrokeBrush.Create(TBrushKind.Solid, $FF222222);
  //more...
end;

destructor Test.Destroy;
begin
  FLineFill.Free;
  inherited;
end;

procedure Test.Paint;
var
begin
  Canvas.Stroke.Assign(FLineFill);
  Canvas.ClearRect(ClipRect, TAlphaColorRec.White);

  Canvas.Stroke.Color := TAlphaColorRec.Black;
  //more code...
end;

我已经查看了 TPlotGrid 的源代码，这是一个简单的组件，它基本上完成了我正在做的事情。我需要在 Paint 事件中设置更多内容吗？

Answer 1

您需要添加 Size 属性，因为它负责处理组件的尺寸。它返回 TControlSize这正是你所需要的。来自文档:

A TControlSize object is used for managing the size of the component. This can be specified through the Size, Width, Height, and PlatformDefault attributes.

只需在已发布的部分添加此代码:

property Size;

<小时/>

如果你看看它的实现，你会发现

property Width: Single read GetWidth write SetWidth stored StoreWidthHeight;
property Height: Single read GetHeight write SetHeight stored StoreWidthHeight;