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

[Poleax]

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

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

Как из


сделать

[ice321i]

А чем не устраивает крыж "Отображать имя AOS" в параметрах пользователя?

[egorych]

Цитата:

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

А чем не устраивает крыж "Отображать имя AOS" в параметрах пользователя?

Тем, что ненаглядно! Когда удалишь пару раз в рабочей чего не следует, тогда это очевидно становится.

PS А метод из Ax3 (WinAPI::setClassLong) не работает?

[ice321i]

Цитата:

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

Тем, что ненаглядно! Когда удалишь пару раз в рабочей чего не следует, тогда это очевидно становится.

PS А метод из Ax3 (WinAPI::setClassLong) не работает?

Ну тогда можно размер шрифта сменить, очень наглядно

[egorych]

Цитата:

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

Ну тогда можно размер шрифта сменить, очень наглядно

Угу! У нас как-то один человек пол дня работал в тестовой системе, назановсил кучу данных, а потом
Так что 5 очков, поставленные mazzy - ИМХО не в кассу! Когда на 1 АОСе крутится и тестовая и рабочая и еще какая-то, то каждый раз думать какой именно сейчас активен - когда работу работать?

[Ivanhoe]

Цитата:

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

Угу! У нас как-то один человек пол дня работал в тестовой системе, назановсил кучу данных, а потом
Так что 5 очков, поставленные mazzy - ИМХО не в кассу! Когда на 1 АОСе крутится и тестовая и рабочая и еще какая-то, то каждый раз думать какой именно сейчас активен - когда работу работать?

Могу предположить, что такой человек может и цвет "перепутать" =)
В таких запущенных случаях (или в случае таких сильных запарок), может, стоит ограничить права на рабочей БД? А уж при совсем реальной необходимости что-то там поправить - заходить под отдельным Админом.

P.S. Скажу по тем проектам и внедрениям (счет за десяток), которые я видел: ни разу не использовалось цветовое кодирование рабочей / тестовой установки.

[Poleax]

Цитата:

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

Ну тогда можно размер шрифта сменить, очень наглядно

Для тех кто в танке, нужна смена цвета фона.

Цитата:

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

Тем, что ненаглядно! Когда удалишь пару раз в рабочей чего не следует, тогда это очевидно становится.

PS А метод из Ax3 (WinAPI::setClassLong) не работает?

Спасибо, сейчас изучу WinAPI::setClassLong

[mazzy]

Цитата:

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

Так что 5 очков, поставленные mazzy - ИМХО не в кассу!

В кассу, в кассу. Я то не знал про эту галочку.

Цитата:

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

Для тех кто в танке, нужна смена цвета фона.

А чем не устраивают уже существующие способы?
фон

[Poleax]

Цитата:

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

А чем не устраивает крыж "Отображать имя AOS" в параметрах пользователя?

Все включено, но не достаточно.
Требуется визуальная раскраска фона
Самому уже надоело смотреть на название АОС, хочу цвет

[Poleax]

Кто подскажет код для реализации "хотелки" из 1 поста, гарантирую отблагодарить всеми 10 балами плюсов, что имею!

[Ivanhoe]

Коллеги, поменяете вы цвет основного окошка системы, а что делать с открытыми формами? Или они тоже должны быть другого цвета?

[BOAL]

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

[BOAL]

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

[sukhanchik]

Цитата:

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

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

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


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

[player]

Цитата:

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

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

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

[Ivanhoe]

Цитата:

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

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

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

[blokva]

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

[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());
    }
}