Как применить пользовательский стиль к пользовательскому компоненту Firemonkey с помощью Delphi Seattle

Question

У меня есть собственный компонент Delphi, созданный для Firemonkey (fmx). Теперь мне нужно применить свой собственный стиль к компоненту. Стиль сохраняется в ресурсе. Ранее это делалось в методе GetStyleObject, вызывая TStyleManager.LoadFromResource.

Этот метод (LoadFromResource) больше не существует в Delphi 10 Seattle для рамки Firemonkey.

Мой код в XE7 работает через LoadFromResource:

function TFMXPic.GetStyleObject: TFmxObject; 
var 
style : string; 
begin 
    if (StyleLookup = '') then 
    begin 
    style := GetClassStyleName; 
    Result := TControl(TStyleManager.LoadFromResource(HInstance, 
    style, RT_RCDATA)); 
    Exit; 
    end; 
    Result := inherited GetStyleObject; 
end; 

Как добиться этого в Delphi 10 Сиэтл?

Answer 1

Во-первых, я не думаю, что это правильно, чтобы проверить StyleLookup. Это свойство указывает компоненту искать это конкретное имя стиля в книге стилей.

Затем вы пытаетесь загрузить файл стиля на уровне компонента. FMX работает так. У вас есть книга стиля, которая загружает файл стиля, а затем каждый компонент в форме использует эту книгу для определения имени стиля, определенного значением stylelookup.

Из моей головы, этот курс действий должен делать эту работу:

1. Добавить файл стилей в ресурсах вашего проекта, как вы уже сделали. Скажем, у вас есть свой стиль под названием «MyComponent» для компонента

2. Добавить Stylebook в виде

3. в OnCreate даже формы, загрузите файл ресурса в TResourceStream, а затем загрузить последнюю к Stylebook использования TStyleBook.LoadFromStream

4. Теперь вы можете получить доступ к стилю, установив = свойство StyleLookup «» MyComponent вашего компонента

Надеется, что это помогает.

Answer 2

Я нашел решение. Спасибо, ребята, в программном обеспечении TMS. Класс TStyleStreaming следует использовать вместо класса TStyleManager. Я изменил свой код следующим образом (все теперь работает)

function TMyComponent.GetStyleObject: TFmxObject; 
var 
style : string; 
begin 
    if (StyleLookup = '') then 
    begin 
    style := GetClassStyleName; 
    Result := TControl(TStyleStreaming.LoadFromResource(HInstance, 
    style, RT_RCDATA)); 
    Exit; 
    end; 
    Result := inherited GetStyleObject; 
end;