Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Изменение Custom Styles формы в Rad Studio XE3

Автор: santey 15.12.2012, 18:58

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

Автор: santey 15.12.2012, 19:41

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

Код


#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

Почитайте http://www.delphilab.ru/content/view/344/1/.
Там про Delphi, но разницы нет.

Автор: artsb 15.12.2012, 21:33

Код


__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

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

TStyleManager::TrySetStyle("Aqua Graphite");

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

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