Artifact fce7a22872037c8f4322de598ba78a09e53f45ef:

• File choiceHelpTopic.js — part of check-in [d390d9ecbd] at 2012-09-14 06:06:05 on branch trunk — Добавлено форматирование по первой запятой (user: orefkov size: 2313)

$engine JScript
$uname choiceHelpTopic
$dname Выбрать главу справки
$addin stdlib

// (c) Александр Орефков
// Скрипт позволяет быстрее выбрать нужную главу справки, когда одному слову
// соответствует несколько разделов

try{
var api = stdlib.require("winapi.js")
var sel = new ActiveXObject('Svcsvc.Service')
events.connect(windows, "onDoModal", SelfScript.self)
}catch(e)
{
    Message("choiceHelpTopic.js: ошибка при инициализации. " + e.description)
    //addins.unloadAddin(addins.byUniqueName(SelfScript.uniqueName))
}

function onDoModal(dlgInfo)
{
    if(dlgInfo.caption == "Выбор главы")
    {
        if(dlgInfo.stage == openModalWnd)
        {
            var ds = dlgInfo.form.getControl("tblTopics").dataSource
            Message("DataSourceType=" + ds.type)
            Message("hasCellAppearance=" + ds.hasCellAppearance)
            
            for(var rowID = ds.getRow(0, grtFirstChild); rowID; rowID = ds.getRow(rowID, grtNext))
            {
                Message(ds.getCellValue(rowID, 0))
            }
            /*
            var vt = dlgInfo.form.getControl("tblTopics").value
            if(vt.Count() > 3)
            {
                var choices = []
                for(var rows = new Enumerator(vt); !rows.atEnd(); rows.moveNext())
                    choices.push(rows.item().Get(0))
                var rect = api.GetWindowRect(api.GetParentWindow(api.GetParentWindow(dlgInfo.form.getControl(-1).hwnd)))  // -1 - это сама форма
                var choice = sel.FilterValue(choices.join("\r\n"), 1 | 8 | 32, 'Выберите главу',
                    rect.left, rect.top, rect.width(), rect.height())
                if(choice.length)
                {
                    var sk = ""
                    for(var k in choices)
                    {
                        if(choices[k] == choice)
                            break
                        sk += "{DOWN}"
                    }
                    new ActiveXObject("WScript.Shell").SendKeys(sk + "~")
                }
            }
            */
        }
    }
}