Покрасить фон Аксапты

[Maximin]

Короче - для удобства юзверей есть задачка.
Грубо говоря - нужно установить фон окна Аксапты в определенный цвет.
Есть два требования:
1. Должно позволять покрасить две разных одновременно запущенных Акспт в разные цвета.
2. Не должно быть в виде внешней .dll, .ocx и т.д.

P.S. SetSysColors по понятным причинам не катит. Или катит, но как тогда ловить фокус окна?

[AndyD]

Какое окно имеется в виду?

[Maximin]

Все подряд.
Имеется в виду фон, который видно сразу после запуска и появления главного меню (тот, который за самим меню, ну блин, не знаю, как еще объяснить).
Короче - MDIChild, если что-то кому-то это говорит. То место, на фоне которого появляются все формы, главное меню и прочая лабуда под названием MS Axapta v xx.xx SP yy CU zz.

[George Nordic]

Ну, хотя бы главное меню перекрасить

Типа hWnd = WinAPI::findWindow(0, "Главное меню").
Потом получить дс... и перекрасить.
Короче, кто-нибудь делал?

С Уважением,
Георгий

[Zabr]

Было давно, год или два назад, несколько обсуждений... цель-то ясна - не запутаться в нескольких одновременно запущенных у одного юзера базах, так ?

[EVGL]

Цитата:

Изначально опубликовано Zabr
Было давно, год или два назад, несколько обсуждений... цель-то ясна - не запутаться в нескольких одновременно запущенных у одного юзера базах, так ?

Да, в такой постановке задача регулярно возникает. Проще всего решается так: в CompanyInfo заводится поле для цвета, а в классе SysSetupFormRun это поле считывается и устанавливается фон формы (цвет рабочей области окна остается прежним).

Плюсы: модификация всего на пол-экрана кода, простая, работает предельно быстро. Минусы: цвет control'ов остается прежним, т.е. поля, скажем, как бы остаются серыми "островками" посреди цветного "моря". Можно исправить, работая с каждым элементом в дизайне отдельно, но есть подозрение, что тогда упадет производительность. Чисто эстетически выглядит отвратно, но пользователи хавают. Если хотите, могу поискать и предоставить код.

[Bars]

Было бы интересно посмотреть

[AndyD]

Извините, но задачу идентификации окна Axapta можно реализовать намного проще и элегантнее. IMHO

PHP код:

#define.WM_SETTEXT(0x000C)
static void Job18(Args _args)
{
    str         caption;
    int  defWindowProc(
                               int              _handle,
                               int              _msg,
                               int              _wParam,
                               str              _lParam )
    {
        int         ret;
        DLL         _DLL             = new DLL('USER32');
        DLLFunction _defwproc        = new DLLFunction(_DLL, 'DefWindowProcA');
        ;

        _defwproc.returns(ExtTypes:: DWord); // LRESULT
        _defwproc.arg(ExtTypes:: DWord);     // handle window
        _defwproc.arg(ExtTypes:: DWord);     // message
        _defwproc.arg(ExtTypes:: DWord);     // wparm
        _defwproc.arg(ExtTypes::String);     // lparm

        return  _defwproc.call(_handle, _msg, _wParam, _lParam);
    }
    ;
    caption = winapi::getWindowText(infolog.hWnd());
    defWindowProc(infolog.hWnd(), #WM_SETTEXT, 0, "База данных 1 : " + caption);
} 


Двоеточие и D местный парсер превращает в смайлики, так что уберите пробел, если будете использовать

[Ace of Database]

Огромное, AndyD, Вам спасибо!!!

[Maximin]

Нууу, эт не совсем то, что требовалось. так я и сам могу.
Надо, чтобы даже самый тупой юзверь при всем желании не смог перепутать. Опять же - кто-то может включить автоскрытие панель задач, и возвращаемся к исходному варианту.

P.S. Кстати, а прямо SetWindowText там что, не прокатил бы?
Аааа, там наверное, стандартная обработка WM_SETTEXT откручена, чтоб никакой злобный хацкер не поменял заголовок... Хм, забавно, но защита от хацкеров-дураков, конечно...

[AndyD]

Вообще-то infolog.hWnd() - это хэндл главного окна Axapta, а элегантность решения - необходимое вам название будет видно и на панели задач и при переключении м-ду процессами ч/з ALT+TAB

[Maximin]

Я знаю, что это хэндл главного окна.
Я хочу сказать, что если напрямую послать ему SETTEXT или сказать ему SetWindowText, то фокус не пройдёт. А вот если вызвать DefWindowProc, то прокатит.

Причем здесь элегантность при переключении, я не понял.
Ну, будет видно, и ладно.

Исходная цель была - чтобы различие бросалось в глаза. А с изменением названия окна - не то, чтобы очень...

[belugin]

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

и чтоб мигало и переливалось по таймеру.

тогда точно бросится

[AndyD]

Я имел в виду, что если у пользователя запущено несколько окон Axapta, то чтобы выяснить в каком ему надо работать придется их перебирь (ну или помнить), а так список будет у него перед глазами

[macklakov]

Прошу прощения, что не по существу. Задачка, конечно, интересная, но я никак не могу понять, зачем различать запущенные аксапты? Для различия между компаниями или серверовами? Не слишком ли это накладно, покупать по нескольку лицензий на одного пользователя?

[Ruff]

Цитата:

Изначально опубликовано Maximin

Исходная цель была - чтобы различие бросалось в глаза. А с изменением названия окна - не то, чтобы очень...

Не знаю, как бы отнеслись к этому пользователи (такой задачи не возникало - они у нас в одной базе работают), но чисто для себя сделал смену иконки главного окна. Значки уж точно бросаются в глаза и в панели задач и по Alt-Tab-у. Красный круг с белым крестом от желтого треугольника с воскл. знаком вроде легко отличаю
Хотя... можно было, наверное, развить идею - нарисовать свои значки... И про цвет рабочей области тоже думал... Но потом забил - и так вполне устраивает

[Maximin]

2 macklakov:
Есть 2 базы - рабочая и тестовая. Соответственно, чел по запарке может сесть не на ту базу и давай заказы фигачить.

2 Ruff:
Я тоже уже подумал насчет значков. Наверное, так и сделаем.

[YaHooka]

А как значок поменять для окна Axapta?

[AndyD]

Извинения автору, но если кому-нибудь пойдет раскраска с использованием dll напишите, выложу

[macklakov]

2 AndyD: Как мнимум, мне интересно Выложите, пожалуйста.
P.S. Хотя идея с закрашиванием фона и не так красива, как идея, с раскрашиванием курсора