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

Pazan
Если у тебя одностраничный проект (на многостраничном могут возникнуть осложнения=)), то можешь попробывать использовать следующее:
В Глобальные функции:

Код:

tblObjectType = {} ;
tblObjectType[OBJECT_IMAGE] = [[Image]];
tblObjectType[OBJECT_BUTTON] =[[Button]];
tblObjectType[OBJECT_LABEL]=[[Label]];
tblObjectType[OBJECT_PARAGRAPH]=[[Paragraph]];
tblObjectType[OBJECT_FLASH]=[[Flash]];
tblObjectType[OBJECT_VIDEO]=[[Video]];
tblObjectType[OBJECT_WEB]=[[Web]];
tblObjectType[OBJECT_INPUT]=[[Input]];
tblObjectType[OBJECT_HOTSPOT]=[[Hotspot]];
tblObjectType[OBJECT_LISTBOX]=[[ListBox]];
tblObjectType[OBJECT_COMBOBOX]=[[ComboBox]];
tblObjectType[OBJECT_PROGRESS]=[[Progress]];
tblObjectType[OBJECT_TREE]=[[Tree]];
tblObjectType[OBJECT_RADIOBUTTON]=[[RadioButton]];
tblObjectType[OBJECT_PLUGIN]=[[Plugin]];
tblObjectType[OBJECT_RICHTEXT]=[[RichText]];
tblObjectType[OBJECT_CHECKBOX]=[[CheckBox]];
tblObjectType[OBJECT_SLIDESHOW]=[[SlideShow]];

function Resize()
m_tObjectData = {};
local sScript = "";
local tObjects = Page.EnumerateObjects();
if (tObjects) then
for n, sObject in tObjects do
local Object = tblObjectType[Page.GetObjectType(sObject)];
s1Script = "m_PosXR = "..Object..".GetPos(\""..sObject.."\").X / Page.GetSize().Width;\r\nm_PosYR = "..Object..".GetPos(\""..sObject.."\").Y / Page.GetSize().Height;\r\nm_SizeWR = "..Object..".GetSize(\""..sObject.."\").Width / Page.GetSize().Width;\r\nm_SizeHR = "..Object..".GetSize(\""..sObject.."\").Height / Page.GetSize().Height;\r\n";
assert(loadstring(s1Script))();
m_tObjectData[Table.Count(m_tObjectData) + 1] = {Name=sObject, PosXR=m_PosXR , PosYR=m_PosYR, SizeWR= m_SizeWR, SizeHR=m_SizeHR};
end
end
if (m_tObjectData) then
Application.SetRedraw(false);
for z=1, Table.Count(m_tObjectData) do
m_Object = tblObjectType[Page.GetObjectType(m_tObjectData[z].Name)];
sScript = sScript..m_Object..".SetSize(\""..m_tObjectData[z].Name.."\", e_PageWidth * "..m_tObjectData[z].SizeWR..", e_PageHeight * "..m_tObjectData[z].SizeHR..");\r\n"..m_Object..".SetPos(\""..m_tObjectData[z].Name.."\", e_PageWidth * "..m_tObjectData[z].PosXR..", e_PageHeight * "..m_tObjectData[z].PosYR..");\r\n";
end
Application.SetRedraw(true);
end
tPages = Application.GetPages();
for n, cNamePage in tPages do
Application.SetPageScript(cNamePage, "On Size", sScript);
end
end

На On Show страницы скопируй ето:

Код:

Resize();

Модерирует : gyra, Maz
Widok (30-01-2009 12:11): Лимит страниц. Продолжаем здесь.	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 100 101 102