AMSSpecialist

function AddToolTip(sObject, sTip)
if not tblToolTips then
--create the table if it doesn't exist
tblToolTips={}
end
--add the object and tip to the table
tblToolTips[Table.Count(tblToolTips)+1]={Object=sObject, Tip=sTip}
end
 
 
function ShowTips()
	local mi = nil
	local mObject = nil
	local mtblObj = nil
	local mtblPos = nil
	local mtblDimension = nil
	local mType

	--get the page objects
	mtblObj = Page.EnumerateObjects()

	--loop through the objects
	for mi, mObject in pairs(mtblObj) do
		--get the object type
		mObjType = Page.GetObjectType(mObject)
		--series of If/Then/Else to get the position
		--and dimension of the object
		if mObjType == OBJECT_BUTTON then
			mType = "Button"
			mtblPos = Button.GetPos(mObject)
			mtblDimension = Button.GetSize(mObject)
		elseif mObjType == OBJECT_FLASH then
			mType = "Flash"
			mtblPos = Flash.GetPos(mObject)
			mtblDimension = Flash.GetSize(mObject)
		elseif mObjType == OBJECT_HOTSPOT then
			mType = "HotSpot"
			mtblPos = Hotspot.GetPos(mObject)
			mtblDimension = Hotspot.GetSize(mObject)
		elseif mObjType == OBJECT_IMAGE then
			mType = "Image"
			mtblPos = Image.GetPos(mObject)
			mtblDimension = Image.GetSize(mObject)
		elseif mObjType == OBJECT_INPUT then
			mType = "Input"
			mtblPos = Input.GetPos(mObject)
			mtblDimension = Input.GetSize(mObject)
		elseif mObjType == OBJECT_LABEL then
			mType = "Label"
			mtblPos = Label.GetPos(mObject)
			mtblDimension = Label.GetSize(mObject)
		elseif mObjType == OBJECT_LISTBOX then
			mType = "ListBox"
			mtblPos = ListBox.GetPos(mObject)
			mtblDimension = ListBox.GetSize(mObject)
		elseif mObjType == OBJECT_PARAGRAPH then
			mType = "Paragraph"
			mtblPos = Paragraph.GetPos(mObject)
			mtblDimension = Paragraph.GetSize(mObject)
		elseif mObjType == OBJECT_PLUGIN then
			mType = "Plugin"
			mtblPos = Plugin.GetPos(mObject)
			mtblDimension = Plugin.GetSize(mObject)
		elseif mObjType == OBJECT_VIDEO then
			mType = "Video"
			mtblPos = Video.GetPos(mObject)
			mtblDimension = Video.GetSize(mObject)
		elseif mObjType == OBJECT_WEB then
			mType = "Web"
			mtblPos = Web.GetPos(mObject)
			mtblDimension = Web.GetSize(mObject)
		end

		--if our last object isn't set, set it to ""
		if sLastObject == nil then
			sLastObject = ""  
		end

		--if the handle to the tooltip window is nil, set it to -1
		if hwndTooltip == nil then
			hwndTooltip = -1
		end

		if mtblPos then
			--get the mouse pointers X and Y position
			mX=String.ToNumber(DLL.CallFunction(_SourceFolder.."\\AutoPlay\\Docs\\mouse.dll", "GetMouseX", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
			mY=String.ToNumber(DLL.CallFunction(_SourceFolder.."\\AutoPlay\\Docs\\mouse.dll", "GetMouseY", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
			if (mtblPos.X <= mX) and (mX <= (mtblPos.X + mtblDimension.Width)) and (mY >= mtblPos.Y) and (mY <= (mtblPos.Y + mtblDimension.Height)) then
				if mObject ~= sLastObject then
					--if we have moused over a new object
					sLastObject = mObject
					for n=1, Table.Count(tblToolTips) do
						if (mObject == tblToolTips[n].Object) then
							--if were over the object, show the tooltip
							--Dialog.Message(tostring(mObjType), Application.GetWndHandle()..","..mtblPos.X..","..mtblPos.Y..",\""..tblToolTips[n].Tip.."\","..hwndTooltip)
							hwndTooltip = DLL.CallFunction(_SourceFolder.."\\AutoPlay\\Docs\\SetTip.DLL", "SetTip", Application.GetWndHandle()..","..mtblPos.X..","..mtblPos.Y..",\""..tblToolTips[n].Tip.."\","..hwndTooltip, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
						end
					end
				end
			end
		end
	end
end
 

-- Previamente he creado tres botones "Button1, Button2 y Button3"
AddToolTip("Button1", "Black Button 1\r\nWhite Letters\r\nClick it, and nothing happens")
AddToolTip("Button2", "Black Button 2\r\nWhite Letters\r\nClick it, and nothing happens")
AddToolTip("Button3", "Black Button 3\r\nWhite Letters\r\nClick it, and nothing happens")

Page.StartTimer(50);

ShowTips()
 
err = Application.GetLastError()
if err ~=0 then
Page.StopTimer()
Dialog.Message("", _tblErrorMessages[err])
end