تويت
جعل الاسطوانة مرنة بحجم الشاشة
tblObjectType = {}
tblObjectType[OBJECT_BUTTON] = Button;
tblObjectType[OBJECT_LABEL] = Label;
tblObjectType[OBJECT_PARAGRAPH] = Paragraph;
tblObjectType[OBJECT_IMAGE] = Image;
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_PLUGIN] = Plugin;
tblObjectType[OBJECT_SLIDESHOW] = SlideShow;
tblObjectType[OBJECT_GRID] = Grid;
tblObjectType[OBJECT_PDF] = PDF;
tblObjectType[OBJECT_QUICKTIME] = QuickTime;
tblObjectType[OBJECT_XBUTTON] = xButton;
tblObjectType[OBJECT_RICHTEXT] = RichText;
tblObjectType[OBJECT_CHECKBOX] = CheckBox;
tblObjectType[OBJECT_RADIOBUTTON] = RadioButton;
function Init()
m_tblObjectData = {};
tblObjects = Page.EnumerateObjects();
if tblObjects then
for index, sObject in pairs(tblObjects) do
local Object = tblObjectType[Page.GetObjectType(sObject)];
local m_PosXR = Object.GetPos(sObject).X / Page.GetSize().Width;
local m_PosYR = Object.GetPos(sObject).Y / Page.GetSize().Height;
local m_SizeWR = Object.GetSize(sObject).Width / Page.GetSize().Width;
local m_SizeHR = Object.GetSize(sObject).Height / Page.GetSize().Height;
m_tblObjectData[Table.Count(m_tblObjectData) + 1] = {Name=sObject, PosXR=m_PosXR , PosYR=m_PosYR, SizeWR= m_SizeWR, SizeHR=m_SizeHR};
end
end
end
function Do_OnSize(e_PageWidth, e_PageHeight)
if m_tblObjectData then
Application.SetRedraw(false)
for z=1, Table.Count(m_tblObjectData) do
m_Object = tblObjectType[Page.GetObjectType(m_tblObjectData[z].Name)];
m_Object.SetSize(m_tblObjectData[z].Name, e_PageWidth * m_tblObjectData[z].SizeWR, e_PageHeight * m_tblObjectData[z].SizeHR)
m_Object.SetPos(m_tblObjectData[z].Name, e_PageWidth * m_tblObjectData[z].PosXR, e_PageHeight * m_tblObjectData[z].PosYR)
end
Application.SetRedraw(true)
end
end
Init()
Window.Maximize(Application.GetWndHandle())
تعليق