VPF::Изменение Custom Styles формы в Rad Studio XE3

santey

Дата 15.12.2012, 18:58 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 31.12.2005

Репутация: -1
Всего: -1

Возможно но ли программно в процессе работы изменить свойство Application, установленное
по умолчанию, например, в Project->Option->Application->Appearance=Silver на Obsidian?

santey

Дата 15.12.2012, 19:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 31.12.2005

Репутация: -1
Всего: -1

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

Код


#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");
//...

artsb

Дата 15.12.2012, 20:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Почитайте VCL Styles - скины в Delphi XE2 .
Там про Delphi, но разницы нет.

--------------------

Чем отличается умный человек от мудрого?
Умный - выпутается из любой ситуации.
Мудрый - просто в неё не попадёт.

artsb

Дата 15.12.2012, 21:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2280
Регистрация: 17.7.2007
Где: центр Вселенной

Репутация: 39
Всего: 64

Код


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TStyleManager *sm;

    ComboBox1->Items->Clear();

    try
    {
         sm = new TStyleManager();
    }
    catch(...)
    {
        sm = NULL;
    }

    if(sm)
    {
        for(int i = 0; i < sm->StyleNames.Length; i++)
        {
            ComboBox1->Items->Add(sm->StyleNames[i]);
        }

        ComboBox1->ItemIndex =
            ComboBox1->Items->IndexOf(sm->ActiveStyle->Name);

        delete sm;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
    TStyleManager *sm;

    try
    {
         sm = new TStyleManager();
    }
    catch(...)
    {
        sm = NULL;
    }

    if(sm)
    {
        sm->TrySetStyle(ComboBox1->Items->Strings[ComboBox1->ItemIndex], true);

        delete sm;
    }
}
//---------------------------------------------------------------------------

--------------------

santey

Дата 15.12.2012, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 31.12.2005

Репутация: -1
Всего: -1

Сделал я данный код во второй форме, которая называется "Параметры" и вызывается
модально, где настраиваются параметры программы, вот в данное окно я поместил выбор
свойств окон и что интересно происходит, когда изменяю стиль окон

TStyleManager::TrySetStyle("Aqua Graphite");

То сначала меняется стиль окна главной формы, потом модальной формы "Параметры", и
эта модальная форма оказывается под главной формой, что и интересно она теряет
модальность. Какая то ерунда получается.

Почему модальность формы пропадает при изменении стиля окон?
Как вернуть модальность формы?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »