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;

function Init()
	m_tblObjectData = {};
	tblObjects = Page.EnumerateObjects();
	if tblObjects then
		for index, sObject in 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()

Do_OnSize(e_PageWidth, e_PageHeight)