如何使 TFont 属性在 Object Inspector 中显示为默认值？

Question

概述

在编写组件时，我喜欢给我发布的属性一个默认值，通过这样做，对象检查器会以粗体显示任何新更改的属性，这对于使用该组件的任何人来说都非常有用，因为他们可以轻松识别默认值和修改后的属性价值观。

示例

下面是一个包含两个 Color 和两个 Font 属性的组件示例：

我正在类结构中创建已发布的属性default：

type
  TMyComponent = class(TComponent)
  private
    FColor: TColor;
    FColorTo: TColor;
    FFont: TFont;
    FFontHot: TFont;
    procedure SetColor(const Value: TColor);
    procedure SetColorTo(const Value: TColor);
    procedure SetFont(const Value: TFont);
    procedure SetFontHot(const Value: TFont);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Color: TColor read FColor write SetColor default clGreen;
    property ColorTo: TColor read FColorTo write SetColorTo default clBlue;
    property Font: TFont read FFont write SetFont; //< set default?
    property FontHot: TFont read FFontHot write SetFontHot; //< set default?
  end;

和构造函数：

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FColor := clGreen;
  FColorTo := clBlue;

  FFont := TFont.Create;
  FFont.Color := clRed;
  FFont.Name := 'Segoe UI';
  FFont.Size := 10;
  FFont.Style := [];

  FFontHot:= TFont.Create;
  FFontHot.Color := clNavy;
  FFontHot.Name := 'Verdana';
  FFontHot.Size := 8;
  FFontHot.Style := [fsItalic];
end;

destructor TMyComponent.Destroy;
begin
  FFont.Free;
  FFontHot.Free;

  inherited Destroy;
end;

问题

我遇到的问题是如何将已发布的字体属性“标记”为默认值？

当我将组件添加到表单时，对象检查器中的两个 TFont 属性都是粗体（非默认）。如果我单击每个已发布字体旁边的椭圆，我可以看到我从构造函数中设置的值显示出来——但它们再次以粗体显示。奇怪的是，每种字体的 Size 值从未以粗体显示（即看起来没有变化）。

标准发布的属性可以很容易地变成default，但是你怎么能用像TFont这样有子属性的类来做到这一点呢？

我看不到从类结构中设置默认值的方法，只能在构造函数中。即使我可以从类结构中定义默认值（这似乎是不可能的），我也怀疑它是否会起作用，因为尚未创建字体。例如（显然不起作用）：

published
  property FontHot: TFont read FFontHot write SetFontHot default FFontHot.Color := clRed; //< set default?

那么，在将新组件添加到 Object Inspector 时，如何使已发布的 TFont 属性显示为默认值并保持不变？

我想这同样适用于其他类似于 TFont 作为子属性的类。

Answer 1

对于对象属性，默认的storage specifier 是stored。存储后是 False（从不保存到 DFM）、True（始终保存）或返回的无参数函数。你需要最后一个：

private
  function IsFontStored: Boolean;
published
  property Font: TFont read FFont write SetFont stored IsFontStored;

在IsFontStored 函数中，您可以决定当前设置的字体是否为默认字体。如果是，请返回False。