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

[Maximin]

Короче, раз никто толком WinAPI не знает, будем учить.

В общем, рецепт оказался универсальный.
Можно сменить как кисть фона (как в моем примере), так и собственно, и значок (ессно, его придется загрузить перед этим).

Вкратце:

PHP код:

static void AxBackgrPaint(Args _args)
{
    #define.GCL_HBRBACKGROUND  (-10)
    #define.BS_SOLID           (0)
    #WinAPI
    WinGDI                      winGDI = new WinGDI(0);
    int     brushHdr, oldBrushHdr;
    int     mdiHdr;
    ;
    brushHdr    = winGDI.createSolidBrush(WinAPI::RGB2int(0,0,0));
    mdiHdr      = WinApi::findWindowEx(infolog.hWnd(), 0, "MDIClient","");
    oldBrushHdr = WinAPI::getClassLong(mdiHdr, #GCL_HBRBACKGROUND);

    WinAPI::setClassLong(mdiHdr, #GCL_HBRBACKGROUND, brushHdr);
    WinAPI::invalidateRect(mdiHdr);
    winGDI.deleteObject(oldBrushHdr);
} 


Да, и вписанная в класс WinAPI функция:

PHP код:

client static int setClassLong(int hWnd, int offset, int newValue)
{
    DLL         _winApiDLL = new DLL('USER32');
    DLLFunction _setClassLong = new DLLFunction(_winApiDLL, 'SetClassLongA');

    _setClassLong.returns(ExtTypes:: DWord);
    _setClassLong.arg(ExtTypes:: DWord, ExtTypes:: DWord, ExtTypes:: DWord);

    return _setClassLong.call(hWnd, offset, newValue);
} 


Чтобы заменить иконку - нужно завести константу GCL_HICON (-14), соответственно, ну и загрузить иконку. Вообще, там можно извращаться с этим классом окна, как угодно, можно, к примеру, курсор поменять на символ Q1/Q2/Q3 (кому какой нравится).
недостаток у этого способа только один - при злоупотреблении сменой фона исходные кисти, которой был он был заполнен до очередной смены, не будут автоматом удалены при завершении приложения(что к WinNT-based не относится). Впрочем, это легко исправить. Достаточно удалять старые кисти/иконки/что ещё вызовом DeleteObject. (Upd: все-таки приделал. Чтоб всё было по-правилам).

Пишу я, значит, это, а Аксапта имеет у меня такой гламурный-гламурный вид...

P.S. Ну, блин, ну нафига же смайлики разворачивать в X++ коде, а, Mazzy?

[EVGL]

Цитата:

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

В общем, рецепт оказался универсальный. Можно сменить как кисть фона (как в моем примере), так и собственно, и значок (ессно, его придется загрузить перед этим).

Для справки: в 4.0 больше не работает. Теперь окно MDIClient состоит из Navigation Pane и "серого квадрата", который, очевидно, каждый раз заливается заново в .paint(). Дочерние окна прорисовываются не на "заднем фоне" родительского окна, а поверх этого квадрата. А жаль.

[blokva]

Цитата:

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

Для справки: в 4.0 больше не работает. Теперь окно MDIClient состоит из Navigation Pane и "серого квадрата", который, очевидно, каждый раз заливается заново в .paint(). Дочерние окна прорисовываются не на "заднем фоне" родительского окна, а поверх этого квадрата. А жаль.

А как можно менять иконку в 4-ке, может кто-то сможет разобраться?
Ос-с-сина нада...

[blokva]

Цитата:

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

А как можно менять иконку в 4-ке, может кто-то сможет разобраться?
Ос-с-сина нада...

Неужели никто не разобрался?!
Небольшое уточнение в "Диспетчере задач" показывается измененная иконка!!!

[Antant]

Ни у кого не получилось решить задачку со сменой значка 4.0/5.0 ?

[DSPIC]

Цитата:

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

Ни у кого не получилось решить задачку со сменой значка 4.0/5.0 ?

А зачем иконку менять? Нужно различать приложения?
Можно не иконку, а caption главного окна поменять

\Classes\Info\workspaceWindowCreated:

void workspaceWindowCreated(int _hWnd)
{
;
    // Put workspace window specific initialization here.

    //DSPIC -->
    WinApi::setWindowText(_hWnd, strFmt("%1 - %2", WinApi::getWindowText(_hWnd), "DEV"));
    //DSPIC <--
}