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; то аниматор вообще не появляется.
Вопрос
x11
Список живет в TCombobox.
Смена стиля происходит так:
Нужно отобразить анимацию пока идёт изменение стиля. А получается так, что AniIndicator1 начинает работать только после применения стиля. Ну а если раскоментировать AniIndicator1.Visible := false; то аниматор вообще не появляется.
Ссылка на комментарий
5 ответов на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.