Как в Ax 2009 перекрасить цвет фона?

[BOAL]

Есть же модик (не помню где в темах), заставляющий АХ2009 окна открывать, как было до того внутри АХ, а не на панельку Пуск, и менюху фоновую в режиме ДЕВ вообще убрать - то есть полная совместимость с АХ4 для плавного перехода мозгов разработчиков.
На деве это все тоже можно врубить, что б окнами не мусорила (Табах есть (был) для этого).
Как минимум этот режим точно не замеченным не будет.

[blokva]

В свое время пытался в 4-ке менять иконку на главном окне (в 3-ке было без проблем "Покрасить фон...") немного исследовал эту проблему и заткнулся на том, что используя дескриптор главного окна и WinAPI сменить иконку не получалось, про это еще сказал EVGL там же. Оказалось, что все манипуляции надо проводить с объектом Windows Forms главного окна, а из дескриптора я его получить не сумел. Нескольких программеров тряс по этому поводу, даже на нескольких программерских форумах просил помочь, так никто и не сумел подсказать как это сделать.

[BOAL]

Еще как идея. Если перекрашивать не фон, как тут требовалось, а сам цвет форм, как предложено в одном из постов.
То это по идее можно сделать в \Classes\SysSetupFormRun, сделав там врезочку с проверками на настройки пользователя или названия АОС (кому что нравится) и перекрыть там цвет (подходящее свойство по вкусу) всех открываемых форм.

[sukhanchik]

Цитата:

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

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

Поглумился с виндовыми темами


Но тоже способ покрасить...

[player]

Цитата:

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

Но тоже способ покрасить...

Но все окна всех программ сразу

[Ivanhoe]

Цитата:

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

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

Кстати, сегодня наблюдал похожий вариант раскраски AX 2009 - фоновая область покрашена в разных установках AX по-разному - как на скриншоте красным цветом. Завтра попробую разузнать как это реализовано.

[Alex_KD]

Цитата:

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

Кстати, сегодня наблюдал похожий вариант раскраски AX 2009 - фоновая область покрашена в разных установках AX по-разному - как на скриншоте красным цветом. Завтра попробую разузнать как это реализовано.

AxPaint это делает на любой версии от 3.0 до 2009 включительно (первый скрин). Можно и картинку показывать.

Качается отсюда:
AxPaint

Ваня писал описание тут (на английском):
Описание

НО! Это все сделано с использованием ActiveX, так что надо будет делать дополнительные теледвижения (регистрация ActiveX etc.).

Если ActiveX не пугает, могу посмотреть что можно сделать с иконками-фоном Content Pane. Впринципе редактор DAX раскрасить удается (второй скрин), должно и тут получится...

ЗЫ А чем не устраивает вариант выдавать MessageBox с "Вас приветствует DEV. Тут можно дров наломать." и "Вас приветсвует Production. Программисты мимо." на входе?

[BOAL]

Сообщение на входе не спасает от кучи запущенных окон и навигации между ними. Оно один раз на запуске

[Alex_KD]

Цитата:

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

Сообщение на входе не спасает от кучи запущенных окон и навигации между ними. Оно один раз на запуске

Да, согласен. Если одновременно в разных приложениях работать то не спасет.

[Ivanhoe]

Мой вариант без внешних компонентов. Ограничение - нет цветового выделения в АОТе, редакторе кода и ролевых центрах.

Для задания цвета - открываем данные о компании и по кнопке задаем цвет. Предлагаю проект без каких-либо ограничений, просьба только не пинать за стиль кодирования

DAX 2009 SP1 RU5.

[Link]

Рабочий пример для АХ 2012 (Протестировано на R2)

public static void handleSysSetupFormRunRunPost(XppPrePostArgs _args)
{
    #define.DEV('DEV')
    #define.UAT('UAT')
    #define.PRD('PRD')

    int                     colorDEV        = WinAPI::RGBCon2int([230, 240, 255]);
    int                     colorUAT        = WinAPI::RGBCon2int([240, 255, 235]);
    int                     colorPRD        = WinAPI::RGBCon2int([255, 240, 240]);
    int                     r, g, b;

    xSession                xSession        = new xSession();
    SysSQLSystemInfo        systemInfo      = SysSQLSystemInfo::construct();
    //TempStr                 id              = xSession.AOSName(); systemInfo.getLoginServer(); systemInfo.getloginDatabase();

    FormDesign              design          = _args.getThis().design();
    FormRun                 formRun         = _args.getThis();

    boolean                 paintBackground = false;
    boolean                 paintStatusBar  = true;
    TempStr                 curEnv          = #DEV;
    int                     curColor        = colorDEV;

    //curEnv = (id == '') ? #DEV : (id == '') ? #UAT : #PRD;

    if (paintBackground)
    {
        design.colorScheme(FormColorScheme::RGB);
        design.backgroundColor(curColor);
    }

    if (paintStatusBar)
    {
        [r,g , b] = WinAPI::RGBint2Con(curColor);
        formRun.setStatusBarBackgroundColor(254, r, g, b);
    }

    if (design.caption())
    {
        design.caption(curEnv + ' - ' + design.caption());
    }
}