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

Player_1
Событие On Show (можно в "Global Functions" или "On Preload"):
Код:

nTopFrame = 50; -- позиция верхненго ограничения прокрутки (подставить свое значение)
nBottomFrame = 200; -- позиция нижнего ограничения прокрутки (подставить свое значение)
nIdxFirstImg = 1; -- номер первой картинки соответствует объекту "Thumbs 1"
nIdxLastImg = 100; -- номер последней картинки соответствует объекту "Thumbs 100" (подставить свое значение)
nStepScroll = 25; -- шаг прокрутки картинок

Событие Click кнопки вверх:
Код:

nPosLastImg = Image.GetPos("Thumbs "..nIdxLastImg).Y + Image.GetSize("Thumbs "..nIdxLastImg).Height; -- нижняя позиция последней картинки
nNewPosLastImg = nPosLastImg - nStepScroll; -- проверка следующей позиции

-- если следующая позиция, последней картинки, достигла или проскочила нижнюю границу прокрутки
if nNewPosLastImg <= nBottomFrame then
nStep = nPosLastImg - nBottomFrame; -- корректируем шаг прокрутки
-- если следующая позиция последней картинки не достигла нижней границы прокрутки
else
nStep = nStepScroll; -- шаг прокрутки без изменения
end

if nStep ~= 0 then -- если шаг прокрутки отличен от нуля
for n = nIdxFirstImg, nIdxLastImg do -- в цикле проходим по всем картинкам
X = Image.GetPos("Thumbs "..n).X; -- горизонтальная позиция картинки
Y = Image.GetPos("Thumbs "..n).Y; -- вертикальная позиция картинки
Image.SetPos("Thumbs "..n, X, Y - nStep); -- устанавливаем новую позицию картинки
end
end

Событие Click кнопки вниз:
Код:

nPosFirstImg = Image.GetPos("Thumbs "..nIdxFirstImg).Y; -- верхняя позиция 1-й картинки
nNewPosFirstImg = nPosFirstImg + nStepScroll; -- проверка следующей позиции

-- если следующая позиция, 1-й картинки, достигла или проскочила верхнюю границу прокрутки
if nNewPosFirstImg >= nTopFrame then
nStep = nTopFrame - nPosFirstImg; -- корректируем шаг прокрутки
-- если следующая позиция 1-й картинки не достигла верхней границы прокрутки
else
nStep = nStepScroll; -- шаг прокрутки без изменения
end

if nStep ~= 0 then -- если шаг прокрутки отличен от нуля
for n = nIdxFirstImg, nIdxLastImg do -- в цикле проходим по всем картинкам
X = Image.GetPos("Thumbs "..n).X; -- горизонтальная позиция картинки
Y = Image.GetPos("Thumbs "..n).Y; -- вертикальная позиция картинки
Image.SetPos("Thumbs "..n, X, Y + nStep); -- устанавливаем новую позицию картинки
end
end

Модерирует : gyra, Maz
Widok (17-05-2010 12:17): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99