SetMask = {MaskObject = function(m_sObject, m_sMask, m_bKiosk, m_nWidth, m_nHeight, m_nOffsetX, m_nOffsetY, m_sDeveloper, m_sSerial)
local m_tblPos, m_ObjectType = nil, nil
if m_sObject == nil or m_sMask == nil or m_bKiosk == nil then
return 1
end
if m_nWidth == nil then
m_nWidth = ""
end
if m_nHeight == nil then
m_nHeight = ""
end
if m_nOffsetX == nil then
m_nOffsetX = 0
end
if m_nOffsetY == nil then
m_nOffsetY = 0
end
m_nHeight = String.ToNumber(m_nHeight)
m_nWidth = String.ToNumber(m_nWidth)
if m_sDeveloper == nil or m_sSerial == nil then
m_sDeveloper = ""
m_sSerial = ""
end
m_tblObjects = Page.EnumerateObjects()
for m_i, m_Object in pairs(m_tblObjects) do
if m_Object == m_sObject then
m_ObjectType = Page.GetObjectType(m_sObject)
m_ObjectName = m_sObject
end
end
if m_ObjectType == OBJECT_BUTTON then
return 1
elseif m_ObjectType == OBJECT_FLASH then
return 1
elseif m_ObjectType == OBJECT_HOTSPOT then
return 1
elseif m_ObjectType == OBJECT_IMAGE then
return 1
elseif m_ObjectType == OBJECT_INPUT then
m_tblPos = Input.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_LABEL then
return 1
elseif m_ObjectType == OBJECT_LISTBOX then
m_tblPos = ListBox.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_PARAGRAPH then
return 1
elseif m_ObjectType == OBJECT_PLUGIN then
m_tblPos = Plugin.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_VIDEO then
m_tblPos = Video.GetPos(m_ObjectName)
elseif m_ObjectType == OBJECT_WEB then
m_tblPos = Web.GetPos(m_ObjectName)
else
return 1
end
if m_tblPos then
if m_bKiosk then
m_tblDisplayInfo = System.GetDisplayInfo()
m_X = (m_tblDisplayInfo.Width - m_nWidth) / 2 + m_tblPos.X
m_Y = (m_tblDisplayInfo.Height - m_nHeight) / 2 + m_tblPos.Y
else
m_X = m_tblPos.X
m_Y = m_tblPos.Y
end
m_hWnd = String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "GetChildWnd", Application.GetWndHandle() .. "," .. m_X + m_nOffsetX .. "," .. m_Y + m_nOffsetY, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
Window.SetText(Application.GetWndHandle(), m_hWnd .. " " .. m_X + m_nOffsetX .. " " .. m_Y + m_nOffsetY)
m_Result = DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "SetMask", m_hWnd .. ",\"" .. m_sMask .. "\",\"" .. m_sDeveloper .. "\",\"" .. m_sSerial .. "\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
return m_Result
end
end
, MaskWindow = function(m_hWnd, m_sMask, m_sDeveloper, m_sSerial)
m_Result = DLL.CallFunction("AutoPlay\\Docs\\SetMask.DLL", "SetMask", m_hWnd .. ",\"" .. m_sMask .. "\",\"" .. m_sDeveloper .. "\",\"" .. m_sSerial .. "\"", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
} |
