Фон в Аксапте

[Alex_KD]

Обновил.
- Если картинка подложки не найдена - не ругается, что не может загрузить.

[sparur]

а как бы автоматом подгружать эту фичу???

а то при перезапуске Аксапты все снова возвращается на круги своя

[Alex_KD]

Посмотррите как это реализованно этом проекте:
Выкладываю утилиту для управления окнами в Axapta
Основная идея - дописать метод Application/startup

Я намеренно не включаю это в проект - стараюсь чтобы разработка была абсолютно независимой.

ЗЫ Сорри, что посылаю по ссылке....времени нет - диплом через 2 недели

[sparur]

Цитата:

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

Посмотррите как это реализованно этом проекте:
Выкладываю утилиту для управления окнами в Axapta
Основная идея - дописать метод Application/startup

Я намеренно не включаю это в проект - стараюсь чтобы разработка была абсолютно независимой.

ЗЫ Сорри, что посылаю по ссылке....времени нет - диплом через 2 недели

спасибо... no problem, разберемся

[sparur]

все подгружается автоматом, однако такой вопрос возник

окошко прямоугольное с названием продукта и версии висит сверху моего фона... (которое в принципе должно само исчезать после ввода логина/пароля)
его как нить можно снести? что-то я наверное не так сделал
вот код в кслассе Application метод startupPost:

    //изменение фона в Аксапте
    
        args.name(formstr(AxPaint));
        backgroundForm = clfct.formRunClass(args);
        backgroundForm.init();
        backgroundForm.run();
        backgroundForm.wait();

добавил этот кусок в конец метода...

подсобите плиззз что не так

[kashperuk]

backgroundForm.detach() вместо backgroundForm.wait() впишите

[sparur]

Цитата:

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

backgroundForm.detach() вместо backgroundForm.wait() впишите

во, респект, вроде спасло положение

[Alex_KD]

Эх....как же приятно, когда в твоей ветке за тебя отвечают =)
Особо, когда времени нет

ЗЫ Кстати менял фон на редакторе кода...прикольно получается код поверх картинки) хотя толку ноль =)

[Alex_KD]

Обновил (см. первый пост)
1. Добавлен режим "Как в Дельфи" (Спасибо Kashperuk Ivan за идею). Если в путь прописать картинку с десктопа и включить этот режим - будет как на скриншоте (см. ниже).
2. Изменение интерфейса окна настроек.

[Alex_KD]

Обновил для 4ки.

[Raven Melancholic]

У нас нарисовалась задача дать пользователям наглядную возможность знать, в какой компании они работают (код компании в статусной строке показался слишком мелким). После некоторых исследований решили, что разный фон в разных компаниях будет достаточным индикатором. В результате, на основе AxPaint родился проект. Если кому интересно, можно воспользоваться. Проект для DAX4 SP2.
Установка проекта:
Загрузить два раза, откомпилировать. Так как затронуты базовые классы, можно перезапустить AOS. Поместить менюитем AxPaintSetupDefault_OVK в какое-нибудь меню (у нас Основное\Настройка). При помощи данного меню открыть форму настройки раскраски рабочей области по умолчанию для разных компаний. Впоследствии каждый пользователь может открыть форму настройки (как описано в файле, идущем к AxPaint) и настроить цвета/рисунки под себя.
Необходимость использования функционала настраивается в параметрах пользователя на вкладке "Разное" флагом "Раскрашивать фон".
В проекте не используются метки, поэтому те, кому это требуется могут выполнить проверку и заменить литералы на метки.
Естественно, что для работы требуется сам COM объект AxPaint.
Та как изначально проект создавался не на чистом DAX4 SP2, то возможны неоторые атрефакты наших модификаций. Чтобы легче было разобраться, все новые объекты имеют постфикс _OVK, а изменения в коде отмечены комментариями:

// ААК: НФД40_08_02_002 08.08.2008 [Раскрашивание рабочей области]

PS: если с точки зрения автора AxPaint данный топик нарушает какие-либо права, то просьба написать в личку - удалю.

[wolfstein]

Всем добрый день!
Возникла необходимость запускать форму настроек фона из кода, т.е. необходимо было имитировать нажатие клавиш ALT+S из кода.

Попробовал сделать так.
Добавил метод в класс AxPaint:

public FormRun formRunPaint()
{
    return formRunPaint;
}

Добавил метод в на форму AxPaintRunBase:

FormActiveXControl activeX()
{
    return ActiveX;
}

Запускаю джоб на отправку сообщения о нажатии клавиш ALT+S, но ничего не происходит:

static void Job52(Args _args)
{
    #define.WM_SYSKEYDOWN(0x0104)
    #define.VK_S(0x53)

    AxPaint axPaint = AxPaint::getAxPaint();
    FormActiveXControl  activexctrl;
    Object     formRun;
    ;

    if(axPaint.formRunPaint())
    {
        formRun = axPaint.formRunPaint();
        activexctrl = formRun.activeX();
        WinAPI::sendMessageEx(activexctrl.hWnd(), #WM_SYSKEYDOWN, #VK_S, 0x20200001);
    }
}

Что я делаю не так?

[Alex_KD]

Цитата:

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

WinAPI::sendMessageEx(activexctrl.hWnd(), #WM_SYSKEYDOWN, #VK_S, 0x20200001);

Что я делаю не так?

Этот код только S отправляет.
Вам так обязательно вызывать эту форму?
Как вариант вызывать

 ActiveX.Import(path,r,g,b,license, useBrush, bitblt, stretchBlt, delphi);

обновляет параметры в активХ.....возможно его еще надо принудительно обновить, не помню, давно было

[wolfstein]

Цитата:

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

Этот код только S отправляет.

Хм.. Может что-то не понимаю, но если выполнить этот код, то отправляется ALT+F4(закрытие приложения):

    #define.VK_F4(0x73)
    WinAPI::sendMessageEx(infolog.hWnd(), #WM_SYSKEYDOWN, #VK_F4, 0x20200001);

Цитата:

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

Вам так обязательно вызывать эту форму?

Да именно. Необходимо, чтобы форма вызвалась из кода.
Пользователь настроил как ему надо и сохранил.
Например, при открытии аксапты, если фон для пользователя не установлен, то нужно автоматически запускать форму настройки.