Покрасить фон Аксапты - Страница 2 - DAX: База знаний и проекты

Maximin · 13.09.2005, 18:28

Короче, раз никто толком 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?

AndyD · 13.09.2005, 18:47

Только лицензия стала прямоугольная

Maximin · 13.09.2005, 18:52

Как это?
У меня она как была квадратная, так и осталась.
Хмм... разве что если включены разнообразные XP-извращения вроде полукруглых окошек, такое может быть... А в таком случае - ССЗБ.

А вообще - спасибо за идею насчет значков Ruff.
Идея до конца дня лежала где-то на периферии сознания, когда вечером для разминки решил таки попробовать её реализовать.

AndyD · 13.09.2005, 18:55

Душа тянется к прекрасному

Maximin · 13.09.2005, 19:04

А вообще - если лицензия стала прямоугольной - закажите у Columbus'а новую.
Или подклейте скотчем пару полосок 10x2 см к уже существующей.

AndyD · 13.09.2005, 19:18

Нет, надо в Microsoft устроить новый тестовый забег на предмет страшного бага.

AndyD · 13.09.2005, 19:21

Она зараза еще и крупнее. Вот к чему ведет тяга к прекрасному

**mazzy** · 13.09.2005, 23:40

Цитата:

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

Спасибо, записал в ТЗ на доработку форума.

blokva · 14.09.2005, 16:50

Цитата:

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

Спасибо, записал в ТЗ на доработку форума.

Ага и раскраску сообщения в синий фон после вставки фрагмента кода тоже.

**mazzy** · 14.09.2005, 20:02

да уже давно.

blokva · 14.09.2005, 20:15

Цитата:

Изначально опубликовано mazzy
да уже давно.

а у меня прямо в этой ветке синее сообщение и более мелкие буквы, после кода

blokva · 14.09.2005, 20:19

Вот в файле картинка
не вставляется почему-то

blokva · 08.07.2006, 14:21

Возвращаясь к теме по причине того, что периодически возникают проблеммы с "перепутыванием" открытых экземпляров...а это раздражает...оно меня раздражает (с) Жванецкий
Идея и подсказка Maximin, за что большой респект (к сожалению только 1)
дополнительно к методу WinAPI::setClassLong() добавляем метод в WinGDI

PHP код:


			
#DEFINE.LR_LOADFROMFILE(0x00000010)

#DEFINE.IMAGE_BITMAP (0)

#DEFINE.IMAGE_ICON   (1)

#DEFINE.IMAGE_CURSOR (2)



static int liadImage(str _file)

{

    DLL             dll;

    DLLFunction     dllFunction;

    int             result;

    ;



    dll = new DLL('user32.dll');

    dllFunction = new DLLFunction(dll,'LoadImageA');

    dllFunction.arg(ExtTypes::DWord, ExtTypes::String, ExtTypes::DWord, ExtTypes::DWord, ExtTypes::DWord, ExtTypes::DWord);

    dllFunction.returns(ExtTypes::DWord);



    result = dllFunction.call(null, _file, #IMAGE_ICON, 16, 16, #LR_LOADFROMFILE);



    return result;

}

оффтоп:немного хардкода правда, но мне простительно

ну и собсно меняем:

PHP код:


			
static void AxIconChange(Args _args)

{

    #define.GCL_HICON          (-14)

    #WinAPI



    int                     ico, mainwin;

    ;

    mainwin = infolog.hWnd();

    // например для тестового экземпляра стандартная иконка с большой синей буквой "Т" в центре

    ico =  WinGDI::liadImage("D:\\222\\AxApplT.ico");

    

    WinAPI::setClassLong(mainwin, #GCL_HICON, ico);

}

зы: на всякий случай, прикладываю архивчик с измененными стандартными иконками.
ззы: у себя я меняю автоматически при входе в опре деленный экземпляр аксапты путем указания и последующей обработки необходимой команды в поле "Startap Command" в конфигурационной утилиты. Если интересует могу рассказать как.

Добавил скриншотик, как это выглядит в таскбаре, по порядку: тестовая, рабочая, локальная

Antant · 10.07.2006, 07:42

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

blokva · 10.07.2006, 10:46

Цитата:

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

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

С этим надо дополнительно разбираться, лезть в МСДН, а пока нету времени, может кто-то с ходу знает что и как надо вызывать?

belugin · 10.07.2006, 11:03

\Classes\Info\onEventGoingIdle

X++:

//Event fired by kernel when the client goes idle.
//It is not fired during CTRL-Break dialog.
void onEventGoingIdle()
{
    this.operationProgressClear();
    this.endLengthyOperation(true);
    ///
    if(strLwr(curUserID())!='admin')
        TitleChanger::changeTitle();
}

X++:

static void changeTitle()
{
    #define.WM_SETTEXT(0x000C)
    str         caption;
    str prefix=new Session().AOSName()+": ";
    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());
    if(!StrUtils::startsWith(caption, prefix))
        defWindowProc(infolog.hWnd(), #WM_SETTEXT, 0, prefix + caption);
}

X++:

// строка _s начинается на _suffix
static boolean startsWith(str _s, str _prefix)
{
    return
        strLen(_s)>=strLen(_prefix)
        &&
        subStr(_s, 1, strLen(_prefix))==_prefix;
}

EVGL · 19.01.2007, 16:44

Цитата:

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

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

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

blokva · 01.08.2007, 08:56

Цитата:

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

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

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

blokva · 15.10.2007, 16:25

Цитата:

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

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

Неужели никто не разобрался?!

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

Antant · 30.12.2009, 13:19

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

Похожие темы
Тема	Автор	Раздел	Ответов	Посл. сообщение
Как сильно модифицировано ваше приложение Аксапты?	mazzy	DAX: Прочие вопросы	30	14.04.2011 17:26
Вставка строк в таблицы Аксапты сторонними средствами	Андре	DAX: База знаний и проекты	1	07.05.2009 16:49
миграция - в Аксапте и с Аксапты	somebody	DAX: Программирование	5	18.10.2005 11:06
Как быстро освоить библиотеку классов Аксапты?	spartan	DAX: Программирование	9	11.05.2005 12:07
Экспорт / импорт Help topics и запуск второй сессии Аксапты из-под себя	DmitrySt	DAX: Программирование	0	25.11.2004 00:22