Как динамически изменить скин в C++Builder XE2

@ivan.-94 · Регистрация: 02.06.2012

Author24 — интернет-сервис помощи студентам

Привет всем

В C++Builder XE2 в Project->Application->appearance можно изменить скин программы.
Как это сделать диномически, в самой проге а не лазить в Options ?

LK · 25.06.2012, 01:23

Файл проекта *.cbproj

C++

#include <Vcl.Styles.hpp>
#include <Vcl.Themes.hpp>
 
USEFORM("...DocumentsStudio.cpp", Form1);
//---------------------------------------------------------------------------
WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
  try {
    Application->Initialize();
    Application->MainFormOnTaskBar = true;
    TStyleManager::TrySetStyle("Aqua Graphite");
//...

FormCreate

C++

1	TStyleManager->SetStyle(TStyleManager->LoadFromFile('water.vsf'));

@Mr.Sandman · 25.06.2012, 05:59

А я заношу в ListBox и там выбираю)

C++

void __fastcall TForm2::ComboBox1Select(TObject *Sender) {
    TStyleManager::TrySetStyle(ComboBox1->Text, false); // так попробуй
 
}

@ivan.-94 · 25.06.2012, 23:04 **[ТС]**

Спосибо огромное парни, всё отлино работает

Добавлено через 1 час 26 минут
Я вот пытался найти темы *.vsf но так и ненашол.
Кто знает где найти помогите пожалуйсто.
Или может есть какой VsfEditor ?

Добавлено через 9 часов 38 минут
Неужеле никто не в курсе?

LK · 26.06.2012, 02:21

Все в курсе, лень ленивым рассказывать.

@T2skler · 26.06.2012, 03:11

Всем было настолько лениво, что на Embarcadero даже выложили урок http://www.youtube.com/watch?v=D2wnmm5nnjs

LK · 26.06.2012, 03:58

Vcl Styles...
Delphi XE2 и VCL Styles
VCL Styles - скины в Delphi XE2
FireMonkey Styles
Working with VCL Styles

@ivan.-94 · 26.06.2012, 11:05 **[ТС]**

Сделал свой файл темы и столкнулся с проблемой.

C++

1	TStyleManager::SetStyle(TStyleManager::LoadFromFile("Themes/"+ComboBox2->Text+".vsf"));

Так я подключаю свой файл темы но тут у меня возникла проблема.
Я проганяю все темы по Комбо боксу, потом пытаюсь проганать повторно и тема не устанавливаеться и выбрасывает ошибку

Как динамически изменить скин в C++Builder XE2

Как я понимаю он говорит что тема уже загружена и её просто нужно подключить но как мне это сделоть?
Или мне при старте программы нужно пройтись по боксу и загрузить темы а на активность в боксе просто подключать темы?

@ivan.-94 · 26.06.2012, 11:26 **[ТС]**

Так же я пытался забросить темы в папку

C++

1	C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\Redist\styles\vcl

Но компилятор их невидит.

Помогите пожалуйста

@Mr.Sandman · 26.06.2012, 11:40

Тему кидать надо в C:\Users\Public\Documents\RAD Studio\9.0\Styles , а не в корень! И она появится в Application ))) Embarcadero RAD Studio XE2 - что за зверь?

@ivan.-94 · 26.06.2012, 12:05 **[ТС]**

Спосибо но я уже сделал.
Покажу мб кому пригодиться.

C++

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    for(int i=0;i<ComboBox2->Items->Count;i++){
        TStyleManager::LoadFromFile("Themes/"+ComboBox2->Text+".vsf");
        ComboBox2->ItemIndex++;
    }
}

C++

void __fastcall TForm1::ComboBox2Select(TObject *Sender)
{
    TStyleManager::SetStyle(ComboBox2->Text);
}

Главное что бы темы с названием в 2 и более слов содержали пробелы и в Комбо боксе и само название было аналогичным.

Добавлено через 19 минут

Сообщение от Gleban38

Тему кидать надо в C:\Users\Public\Documents\RAD Studio\9.0\Styles , а не в корень! И она появится в Application ))) Embarcadero RAD Studio XE2 - что за зверь?

Отлично спосибо огромное. Всё работает

@RomanChoCho · 22.10.2015, 20:03

Я написал в FormCreate:

C++

1	TStyleManager::LoadFromFile("MyStyleYellow.vsf");

При запуске, программа выдает ошибку: Unable to load style "название скина.vsf"
Гружу из папки с exe'шником.

@Lelik-pahan · 23.10.2015, 10:32

Добавлено через 33 минуты
RomanChoCho, а ты добавил эти строки?

C++

1 2	#include <Vcl.Styles.hpp> #include <Vcl.Themes.hpp>

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

@starkiron · 26.08.2016, 13:38

А можно применить стиль только к определенной форме а не к всему проекту? Или скажем к определенному компоненту?

@Javlonek · 06.04.2020, 20:30

Скажите ребята пожалуйста, как создаётся новое темы в C++ builder XE?

@starkiron 64 / 64 / 16 Регистрация: 07.05.2016 Сообщений: 304
	26.08.2016, 13:38	14
	А можно применить стиль только к определенной форме а не к всему проекту? Или скажем к определенному компоненту? 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
		1
	Как динамически изменить скин в C++Builder XE2 25.06.2012, 00:44. Показов 6640. Ответов 14 Метки нет (Все метки) Привет всем В C++Builder XE2 в Project->Application->appearance можно изменить скин программы. Как это сделать диномически, в самой проге а не лазить в Options ? 0

@ivan.-94 Я Фоюмчанин ? дааааа) 213 / 204 / 23 Регистрация: 02.06.2012 Сообщений: 1,424 Записей в блоге: 12
	25.06.2012, 23:04 [ТС]	4
	Спосибо огромное парни, всё отлино работает Добавлено через 1 час 26 минут Я вот пытался найти темы .vsf но так и ненашол. Кто знает где найти помогите пожалуйсто. Или может есть какой VsfEditor ? Добавлено через 9 часов 38 минут* Неужеле никто не в курсе? 0

LK Заблокирован
	26.06.2012, 02:21	5
	Все в курсе, лень ленивым рассказывать. 0

@T2skler 50 / 50 / 6 Регистрация: 16.05.2012 Сообщений: 232
	26.06.2012, 03:11	6
	Всем было настолько лениво, что на Embarcadero даже выложили урок http://www.youtube.com/watch?v=D2wnmm5nnjs 2

LK Заблокирован
	26.06.2012, 03:58	7
	Vcl Styles... Delphi XE2 и VCL Styles VCL Styles - скины в Delphi XE2 FireMonkey Styles Working with VCL Styles 1

@Mr.Sandman 42 / 59 / 15 Регистрация: 19.12.2011 Сообщений: 552
	26.06.2012, 11:40	10
	Тему кидать надо в C:\Users\Public\Documents\RAD Studio\9.0\Styles , а не в корень! И она появится в Application ))) Embarcadero RAD Studio XE2 - что за зверь? 1

@Javlonek 0 / 0 / 0 Регистрация: 22.10.2019 Сообщений: 2
	06.04.2020, 20:30	15
	Скажите ребята пожалуйста, как создаётся новое темы в C++ builder XE? 0