Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lorents
Переписал немного предыдущий пример (добавил счетчик кликов):
Глобальные функции
Код: --[[
Функция проверяет находитсо ли курсор в области рисунка
Возвращает true, если ДА, и false, если НЕТ
]]
function IsImage(sObjectName, e_X, e_Y)
local tImgPos = Image.GetPos(sObjectName);
local tImgSize = Image.GetSize(sObjectName);
if (e_X >= tImgPos.X) and (e_X <= tImgPos.X + tImgSize.Width) and (e_Y >= tImgPos.Y) and (e_Y <= tImgPos.Y + tImgSize.Height) then
return true; else return false;
end
end |
On Preload
Код: -- счетчик кликов
nClick = 1; |
On Mouse Button
Код: local tImgPos = Image.GetPos("Image1");
local tImgSize = Image.GetSize("Image1");
-- индекс уменьшения/увеличения картинки (лучше давать четные значения)
local nIndex = 6;
if (e_Type == RIGHT_BUTTON_DOWN) then
if (IsImage("Image1", e_X, e_Y)) then
if (nClick > 1) then
Image.SetVisible("Image1", false);
Image.SetSize("Image1", tImgSize.Width - nIndex, tImgSize.Height - nIndex);
Image.SetPos("Image1", tImgPos.X + nIndex / 2, tImgPos.Y + nIndex / 2);
Image.SetVisible("Image1", true);
nClick = nClick - 1;
end
end
elseif (e_Type == LEFT_BUTTON_DOWN) then
if (IsImage("Image1", e_X, e_Y)) then
-- если кликов меньше 3
if (nClick <= 3) then
Image.SetVisible("Image1", false);
Image.SetSize("Image1", tImgSize.Width + nIndex, tImgSize.Height + nIndex);
Image.SetPos("Image1", tImgPos.X - nIndex / 2, tImgPos.Y - nIndex / 2);
Image.SetVisible("Image1", true);
-- наращиваем индекс
nClick = nClick + 1;
end
end
end |
Разбить етот пример на 2 кнопки не должно составлять собого труда.. |
