AniIndicator при смене стиля

[x11]

Список живет в TCombobox.

Смена стиля происходит так:

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

 const
   ToStr: Array[TOSVersion.TPlatform] of string = ('Windows', 'MacOS', 'iOS', 'Android', 'WinRT', 'Linux');
begin
   aStyle := nil;

   //если выбираем из ресурсов
   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);
       exit;
     end;
   end;// if comboStyles.ItemIndex > 0 then

   AniIndicator1.Visible := true;
   AniIndicator1.Enabled := True;

   TStyleManager.SetStyle(aStyle);

//   AniIndicator1.Visible := false;
//   AniIndicator1.Enabled := false;

   lbActiveStyle.Text := TStyleManager.ActiveStyle(self).StyleName;
end;

 

Нужно отобразить анимацию пока идёт изменение стиля. А получается так, что AniIndicator1  начинает работать только после применения стиля. Ну а если раскоментировать  AniIndicator1.Visible := false; то аниматор вообще не появляется.

 

Изменено 12 июля, 2018 пользователем x11

[krapotkin]

так аниматор тоже из стиля картинки берет )

всё рисование должно происходить в главном потоке. и стили применяются тоже в главном потоке, так что думаю, конфликт тут неизбежен 

[Равиль Зарипов (ZuBy)]

используйте ActivityDialog из пакета fgx, если используете берлин

[x11]

FGX? Это что-то доустановить нужно?

Спасибо, попробую.

[Равиль Зарипов (ZuBy)]

В 04.07.2017 в 14:19, x11 сказал:

FGX? Это что-то доустановить нужно?

Спасибо, попробую.

http://fire-monkey.ru/forum/188-версии-download-versions/

[x11]

Ну честно говоря, ради одной этой фишки устанавливать целый пакет компонент пока не вижу смысла.

может что-то ещё понадобится, тогда посмотрим.