VCL Styles - скіни в Delphi XE2 - Програмні продукти

У Delphi XE2 з'явився вбудований механізм скінів під назвою "VCL Styles".

Якщо зайти у властивості проекту та вибрати Application -> Appearance, ми побачимо поле 'Custom Styles', у якому ми можемо додати стандартні стилі, і навіть подивитися, як вони виглядають, з допомогою кнопки 'Preview'.

delphi

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

За роботу зі стилями відповідає клас TStyleManager, розташований у модулі Themes. Цей менеджер стилів надає такі можливості:

  • Встановити стиль
  • Завантажити стиль із файлу
  • Завантажити стиль із ресурсу

delphi

Всі ці дії можна проводити як з об'єктом класу TStyleManager, так і безпосередньо через методи класу.

Для зміни стилю призначені команди SetStyle та TrySetStyle.

Другий параметр у TrySetStyle – чи показувати повідомлення про помилку, якщо не вдалося вибрати стиль.

Список зареєстрованих стилів міститься у масиві StyleNames.

Організувати зміну стилів можна, наприклад, за допомогою ComboBox:

Завантажити стиль із файлу допоможе метод LoadFromFile.

Аналогічно можна завантажити стиль із ресурсу, за допомогою TryLoadFromResource, у параметрах якого вказати тип ресурсу та ім'я. Але мені здається зручнішим наступний варіант:

  • Відкриваємо меню Project -> Resources and Images.
  • Натискаємо кнопку Add.
  • У комбобоксі праворуч вибираємо тип файлу 'Any File'
  • Вибираємо файл зі стилем
  • У полі Resource Identifer пишемо ім'я скіна
  • У комбобоксі Resource Type пишемо ручками: 'VCLSTYLE'
  • Повторюємо дані дії кожного файла-стиля.
  • Тиснемо Ок. Компілюємопроект.

продукти

Після компіляції всі стилі автоматично потраплять до списку за замовчуванням.

Я собі для тестів нашвидкуруч сліпив ось такий зелененький.

Якщо ви створили свій стиль, або завантажили десь, і хочете, щоб він з'явився в налаштуваннях проекту, файл слід зберегти в папку C:\Documents and Settings\Public\Documents\RAD Studio\9.0\Styles