[ANN] Tabax 0.1 -- панель задач для Axapta

[miklenew]

Очень понравился Tabax. Не знаю как я без него обходился.
Правда для себя я контрол tab сделал не видимым и код не много изменил в методе autoHeight

        //WINAPI::setWindowPos(this.Hwnd(),0,0, w - x, ht - y, true,false,
        WINAPI::setWindowPos(this.Hwnd(),0,0, w - x, 25, true,false,

Как то не очень удобно когда вкладки попадаются на пути мышки. Лучше если они снизу.
Плюс некоторые кнопки тоже сделал невидимыми, которыми тоже особенно не буду пользоваться.
Если кто-то хочет добавить дополнительные кнопки для работы с функциями EditorScripts, то можно
1) В класс Info добавить описание Editor curEditor;
2) Создать метод в классе Info

Editor editor(Editor _e = curEditor)
{
;
    curEditor = _e;
    return curEditor;
}

3) В классе EditorScripts метод showScripts закоментировал потому что не особенно он мне нужен. Оставил только.

infolog.editor(e);

4) В формe Tabax перекрыть метод activate().

public void activate(boolean _active)
{
    DLL winApiDLL = new DLL('User32');
    DLLFunction keybd_event = new DLLFunction(winApiDLL, 'keybd_event');
    ;

    keybd_event.arg(ExtTypes::Byte, ExtTypes::Byte, ExtTypes::DWord, ExtTypes::DWord);

    keybd_event.call('18', 0, 0, 0);
    keybd_event.call('77', 0, 0, 0);
    keybd_event.call('77', 0, 2, 0);
    keybd_event.call('18', 0, 2, 0);
    super(_active);
}

5) В методе clicked вашей кнопки написать код

void clicked()
{
    EditorScripts es;
    Editor        e;
;
    super();
    e = infolog.editor();
    es = new EditorScripts();
    es.NewWindow(e);//ваш script
}

[sukhanchik]

Цитата:

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

Если кто-то хочет добавить дополнительные кнопки для работы с функциями EditorScripts, то можно
1) В класс Info добавить описание Editor curEditor;
2) Создать метод в классе Info

Можно (по идее) попробовать обойтись и без правки класса Info.
Основная задача - послать окну Editora сообщение (окно найти через WinAPI) Alt+M (ну или какое другое) для того, чтобы ядро запустило метод showScripts.
Далее - задача передать из Tabax информацию о том, какой метод запускать и задача определить в showScripts что его вызвали из Tabax.
Передать можно через Infolog.globalcache, а определить - опять-таки - по наличию команды в globalcache.
По крайней мере такой способ не затронет системные классы.

[miklenew]

Цитата:

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

Можно (по идее) попробовать обойтись и без правки класса Info.
Основная задача - послать окну Editora сообщение (окно найти через WinAPI) Alt+M (ну или какое другое) для того, чтобы ядро запустило метод showScripts.
Далее - задача передать из Tabax информацию о том, какой метод запускать и задача определить в showScripts что его вызвали из Tabax.
Передать можно через Infolog.globalcache, а определить - опять-таки - по наличию команды в globalcache.
По крайней мере такой способ не затронет системные классы.

На днях поковыряю. Посмотрю.
Есть новая кнопочка которую можно при желании повесить в tabax.
Стоим в коде на каком-нибудь поле таблицы, жмём кнопку "Справка по полю".
Открывается форма с help-ом по полю и с путями в каких формах используется это поле для ввода данных или для просмотра.
Если жмём на этот путь открывается в новом окне эта форма.
В классе SysHelpBook изменить construct
Добавить

        case 'a':
            return new SysHelpBookField(sysHelp, url);

Метод кнопки

void clicked()
{
    EditorScripts es;
    Editor        e;
;
    super();
    e = infolog.editor();
    es = new EditorScripts();
    es.helpField(e);
}

Как editor получить писал выше.
Метод в класс Editor

void helpField(Editor e)
{
    TreeNode            treeNode = TreeNode::findNode(e.path());
    TmpxRefReferences   tmpxRefReferences;
    Column              nCol = e.columnNo() + 1;
    Line                nLine = e.currentLineNo() + 1;
    ;

    treeNode.AOTmakeXref(1);
    tmpxRefReferences = xRefCreate::makeTmp(infolog.lastxRef());

    select firstonly tmpxRefReferences
        order by Column desc
        where tmpxRefReferences.line == nLine &&
              tmpxRefReferences.Column <= nCol;

    if (!tmpxRefReferences)
        return;

    treeNode = TreeNode::findNode(tmpxRefReferences.path());

    if (treeNode && tmpxRefReferences.Kind == xRefKind::TableField)
    {
        HelpField::checkPost(tmpxRefReferences.parentName, tmpxRefReferences.name);
    }
}

[miklenew]

Цитата:

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

Есть новая кнопочка которую можно при желании повесить в tabax.
Стоим в коде на каком-нибудь поле таблицы, жмём кнопку "Справка по полю".
Открывается форма с help-ом по полю и с путями в каких формах используется это поле для ввода данных или для просмотра.
Если жмём на этот путь открывается в новом окне эта форма.

Ошибочку нашёл в класс HelpField метод label()
добавить ещё и CheckBox.(забыл про галку)
В исходном хро исправил.

[Denicce]

Цитата:

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

Можно (по идее) попробовать обойтись и без правки класса Info.
Основная задача - послать окну Editora сообщение (окно найти через WinAPI) Alt+M (ну или какое другое) для того, чтобы ядро запустило метод showScripts.
Далее - задача передать из Tabax информацию о том, какой метод запускать и задача определить в showScripts что его вызвали из Tabax.
Передать можно через Infolog.globalcache, а определить - опять-таки - по наличию команды в globalcache.
По крайней мере такой способ не затронет системные классы.

что-нибудь получилось написать, чтобы в табакс передать editor на 4.0? Кстати, в 4.0 вроде основной метод скриптов не ShowScripts, а getApplicableScripts, как я понял. Попытался использовать [ANN] Tabax 0.1 -- панель задач для Axapta, не получилось. Глюки какие-то лезут.

[DSPIC]

Цитата:

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

что-нибудь получилось написать, чтобы в табакс передать editor на 4.0? Кстати, в 4.0 вроде основной метод скриптов не ShowScripts, а getApplicableScripts, как я понял. Попытался использовать [ANN] Tabax 0.1 -- панель задач для Axapta, не получилось. Глюки какие-то лезут.

Здесь HK Framework реализован совершенно иной путь отлова Editor'a, и ещё куча разных вкусностей

А здесь Получение экземпляра текущего Editor описан принцип.