delphi - 如何在firemonkey中创建画笔资源

Question

我是 firemonkey 的新手，但一年以来一直在使用 dxscene。在 dxscene 中，可以毫不费力地在资源对象中添加画笔资源（firemonkey 中的样式书）。但是 firemonkey 让我大吃一惊，embaracadero 的 docwiki 建议手动将其添加到我不知道如何的样式书中。

有人可以帮我在样式书中添加画笔资源以便查找它们吗？最好是一种涉及 GUI 的方式。

Answer 1

样式书只能包含 TFMXObject 的后代，而 TBrush 直接来自 TPersistent，所以不能添加。FMX.types 单元包含一个合适的 TBrushObject，但它似乎没有在任何地方注册，因此它在工具面板中不可用。

我建议创建一个注册它的包，因此可以选择坐。您需要在包中添加一个单元，例如：

unit RegisterBrushObject;
interface
uses FMX.Types;

procedure Register;

implementation
uses Classes;

procedure Register;
begin
  RegisterComponents('Custom', [TBrushObject]);
end;

initialization
  RegisterFMXClasses([TBrushObject]);
end;

将其添加到包后，右键单击项目管理器中的包（右上角）并选择安装。