Перейти к содержанию
  • 0
x11

Class TPopupBox not found при загрузке стиля

Вопросы

Код применения стиля:

procedure TfmOptions.ChangeStyles;
 var
  aTos: String;
  aStyle: TFMXObject;

 const
   ToStr: Array[TOSVersion.TPlatform] of string = ('Windows', 'MacOS', 'iOS', 'Android', 'WinRT', 'Linux');
begin
   aStyle := nil;
   lbActiveStyle.Text := 'применение стиля...';
   Application.ProcessMessages;

   //если выбираем из ресурсов
   if comboStyles.ItemIndex > 0 then
   begin
     aTos   := ToStr[TOSVersion.Platform] + comboStyles.Selected.Text;
     aStyle := TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA);
     aStyle.StyleName := comboStyles.Selected.Text;

     if not assigned(aStyle) then
     begin
       ShowMessage('Стиль не найден: ' + aTos);
       lbActiveStyle.Text := 'Стиль не найден: ' + aTos;

       exit;
     end;
   end;// if comboStyles.ItemIndex > 0 then

   TStyleManager.SetStyle(aStyle);

   lbActiveStyle.Text := 'Готово. ' + TStyleManager.ActiveStyle(self).StyleName;
end;

 

получаю ошибку:

Цитата

Project raised exception class EClassNotFound with message 'Class TPopupBox not found'

на строке

aStyle := TStyleStreaming.LoadFromResource(HInstance, aTos, RT_RCDATA);

Исключение вываливается 2 раза. И только на Андроиде. На Windows такой ошибки не и стили загружаются нормально.

На Андроиде хоть и ошибка, но стили применяются.

Стили хранятся в ресурсах, как вы поняли.

Раньше такой ошибки не было.

Поделиться сообщением


Ссылка на сообщение

Рекомендуемые сообщения

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...