Indigo Rose AutoPlay Media Studio (часть 5) - [2818] :: Программы

Код:

function AMSEnumObjects(nRestrictToType)
    local function IsDialog()
        return Application.GetCurrentDialog() ~= "";
    end
    local GetObjectType(sObjectName)
        if (IsDialog()) then
            return DialogEx.GetObjectType(sObjectName);
        else
            return Page.GetObjectType(sObjectName);
        end
    end

    local tObjectNamesList = {};
    if IsDialog() == true then
        tObjectNamesList = DialogEx.EnumerateObjects();
    else
        tObjectNamesList = Page.EnumerateObjects();
    end

    local tObjects = {};
    for x, sObjectName in ipairs(tObjectNamesList) do
        if (nRestrictToType ~= nil and GetObjectType(sObjectName) == nRestrictToType)
            tObjects[#tObjects+1] = sObjectName;
        else if (nRestrictToType == nil) then
            tObjects[#tObjects+1] = sObjectName;
        end
    end

    if (#tObjects ~= 0) then
        return tObjects;
    end
    return nil;
end

-- Примеры
local tObjects = AMSEnumObjects(); -- Все объекты на текущей странице или диалоге
local tObjects = AMSEnumObjects(OBJECT_INPUT); -- Все Input'ы

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению