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

Спасибо.
Но не помогло:

ThumbList.Clear("ThumbList1")
-- Получение выделенного элемента
tIndex = ThumbList.GetSelectedItems("ThumbList1");

-- Проверяем, что у нас есть выделенный элемент.
if tIndex then

-- Удаляем все слайды из объекта слайдшоу.
SlideShow.DeleteSlide("SlideShow1", -1);

-- Зацикливаем выбранные эскизы
for nTableIndex, nItemIndex in pairs(tIndex) do
-- Добавляем изображение в объект слайдшоу.
tThumbData = ThumbList.GetItemInfo("ThumbList1", nItemIndex);
SlideShow.AddSlide("SlideShow1", tThumbData['filepath'], -1);
end

-- Открываем первое изображение в объекте слайдшоу.
SlideShow.GoToSlide("SlideShow1", 1);

-- Запускаем воспроизведение слайдшоу.
SlideShow.Play("SlideShow1");
end

Добавлено:
Может проблема в глобальной функции:

Код:

-- Список разрешенных расширений файлов с изображениями.
tAllowedExtensions = {"*.jpg", "*.png", "*.gif", "*.bmp"};

-- Инициализация найденного массива с изображениями (согласно события 'On PreLoad' на странице).
tFoundPhotos = {};

-- Вызов поиска файла.
function FoundCallback(sFullPath)
-- Вставка найденного изображения в массив tFoundPhotos.
Table.Insert(tFoundPhotos, Table.Count(tFoundPhotos) + 1, sFullPath);
return true;
end

-- Выделение всех эскизов (как клавишная команда [Сtrl + A]).
function SelectAllThumbs(e_Key, e_Modifiers)
if e_Key == 65 and e_Modifiers.ctrl == true then
nItemsInList = ThumbList.GetItemCount("ThumbList1");

nCurrentIndex = 1;

while nCurrentIndex <= nItemsInList do
ThumbList.SelectItem("ThumbList1", nCurrentIndex);
nCurrentIndex = nCurrentIndex + 1;
end

end
end

Добавлено:
usamakey
Все же проблема мне кажется в глобальной функции:

если раньше фото добавлялись в три раза то после вставки вашего кода стало добавляться только по одному разу... пытаюсь разобраться дальше где ошибка

Код:

-- Список разрешенных расширений файлов с изображениями.
tAllowedExtensions = {"*.jpg", "*.png", "*.gif", "*.bmp"};

-- Инициализация найденного массива с изображениями (согласно события 'On PreLoad' на странице).
tFoundPhotos = {};

-- Вызов поиска файла.
function FoundCallback(sFullPath)
    -- попытка очистить, чтобы не дублировалось ThumbList.Clear("ThumbList1")
    ThumbList.Clear("ThumbList1")
    -- Вставка найденного изображения в массив tFoundPhotos.
    Table.Insert(tFoundPhotos, Table.Count(tFoundPhotos) + 1, sFullPath);
    -- return true false;
    return true
end

-- Выделение всех эскизов (как клавишная команда [Сtrl + A]).
function SelectAllThumbs(e_Key, e_Modifiers)
    if e_Key == 65 and e_Modifiers.ctrl == true then
        nItemsInList = ThumbList.GetItemCount("ThumbList1");

        nCurrentIndex = 1;

        while nCurrentIndex <= nItemsInList do
            ThumbList.SelectItem("ThumbList1", nCurrentIndex);
            nCurrentIndex = nCurrentIndex + 1;
        end

    end
end

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