Добавление Селектор Стиля Для Вашего Приложения

Lomanu4 · 21 Янв 2016

С RAD Studio 10 Сиэтл, мы предоставляем встроенные стили по умолчанию для IOS, Android, Windows и Mac. Дополнительные стили могут быть найдены в каталоге с установленной Стили продукта, и в стилях премиум Bonus Pack. Добавление селектор стиля для вашего приложения предоставляет возможности настройки для конечных пользователей. Некоторые клиенты предпочитают более темный интерфейс, а другие предпочитают более легкий цветовой гамме. В этом демо-приложении, вы можете выбрать один из 3 различных стилей.

Шаг 1: Создайте свой пользовательский интерфейс
Для этого демо, я поместил ряд элементов управления пользовательского интерфейса на моей форме, в том числе TSwitch, TButton, TToolBar, TTabControl и TTrackBar. Чтобы добавить выпадающее меню выбора стиля для вашей новой или существующей применения, добавить компонент TComboBox в форму и изменить ее название '' свойство 'StyleBox. Мы собираемся, чтобы программно заполнить этот список со стилями, содержащихся в наших компонентов Stylebook.

Шаг 2: Добавление нескольких компонентов TStyleBook
Из палитры инструментов в IDE, перетащите компонент TStyleBook на форму. Дважды щелкните на компоненте Stylebook на вашей форме, чтобы вызвать Style Designer. Нажмите на значок папки, чтобы перейти к папке на жестком диске, который содержит пользовательские стили, которые вы хотите использовать. В моем примере, я выбрал стиль iOSJet который находится в пакете премиум стиле (часть 10 Сиэтл Bonus Pack). Далее, нажмите "Применить и Закрыть". С TStyleBook выбран, введите StyleName в Object Inspector, то есть «Темный стиль". Повторите эти шаги для всех вариантов стиля, как вы хотите, чтобы представить своим пользователям. В этой демо-версии, я добавил еще два StyleBooks с разными стилями.

Код:

procedure TForm8.StyleBoxChange(Sender: TObject);
begin
   if StyleBox.ItemIndex >= 0 then
      StyleBook := TStyleBook(StyleBox.ListItems[StyleBox.ItemIndex].Data);
end;

Это будет сканировать ваш вид всех компонентов TStyleBook для того, чтобы заселить в раскрывающемся меню TComboBox.

Код:

procedure TForm8.FormCreate(Sender: TObject);
var
 Index: Integer;
begin
 EnumObjects(function (AObject: TFmxObject): TEnumProcResult
 begin
 if AObject is TStyleBook then
 begin
 Index := StyleBox.Items.Add(TStyleBook(AObject).StyleName);
 StyleBox.ListItems[Index].Data := AObject;
 end;
 Result := TEnumProcResult.Continue;
 end);
end;

В скриншотах ниже, вы можете увидеть мой пример приложения развернуты на устройство IOS.

Добавление Селектор Стиля Для Вашего Приложения

Lomanu4