Delphi Firemonkey - 在运行时加载样式

Question

我已将 ......\RAD Studio\9.0\Styles 中的几个示例样式作为资源加载到我的项目中，并且“简单地”尝试在运行时加载其中一个。

我正在使用以下代码来尝试执行此操作:

var
  vResourceStream : TResourceStream;
begin

  vResourceStream := TResourceStream.Create( HInstance, 'DARKSTYLE', RT_RCDATA );

  try
    StyleBook1.LoadFromStream( vResourceStream );
  finally
    vResourceStream.Free;
  end;

它编译正常，但是当我运行它时，我收到一堆错误，第一个是“属性对齐不存在”，然后是“读取 TStyleBook.Align 时出错:属性对齐不存在”，并且似乎这样做是为了更多属性，高度等。

有人可以告诉我如何解决这个问题吗？

Answer 1

并不是说我对 FMX 了解一点，但 AFAIU .style 文件是资源定义文件。您应该读取其资源，而不是从流中读取样式书对象:

StyleBook1.Resource.LoadFromStream( vResourceStream );