$PBExportHeader$uo_hyperlinkbutton.sru
forward
global type uo_hyperlinkbutton from statichyperlink
end type
type trackmouseevent from structure within uo_hyperlinkbutton
end type
end forward

type trackmouseevent from structure
	unsignedlong		cbSize
	unsignedlong		dwFlags
	unsignedlong		hwndTrack
	unsignedlong		dwHoverTime
end type

global type uo_hyperlinkbutton from statichyperlink
integer width =  503 
integer height =  88 
integer textsize = - 10 
integer weight =  400 
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string pointer = "HyperLink!"
long textcolor =  134217856 
long backcolor =  134217732 
string text = "Call Phil S. :-)"
alignment alignment = center!
long bordercolor =  16711680 
boolean focusrectangle = false
event wm_mousemove pbm_mousemove
event mousehover ( )
event mouseleave ( )
end type
global uo_hyperlinkbutton uo_hyperlinkbutton

type prototypes
Function Boolean TrackMouseEvent(ref trackmouseevent lpEventTrack) Library "USER32.DLL"
end prototypes

type variables
 /*
 * Window Messages
 */ 
constant ulong WM_MOUSEHOVER                   =  673  //0x02A1
constant ulong WM_MOUSELEAVE                   =  675  //0x02A3

 /*
 * Hover Flagss
 */ 
constant ulong TME_HOVER       =  1  // 0x00000001
constant ulong TME_LEAVE       =  2  // 0x00000002
constant ulong TME_NONCLIENT   =  16  // 0x00000010
constant ulong TME_QUERY       =  1073741824  // 0x40000000
constant ulong TME_CANCEL      =  2147483648  // 0x80000000
constant ulong HOVER_DEFAULT   =  4294967295  // 0xFFFFFFFF

//Colors
constant ulong LINK	 =  134217856 
constant ulong LINK_HOVER	 =  134217857 
private:
boolean	ib_mouseover=false

end variables

event wm_mousemove;trackmouseevent lpEventTrack

if not ib_mouseover then
	ib_mouseover = true
	
	lpEventTrack.cbSize =  16   //structure is  4  ulongs which is  16  bytes
	lpEventTrack.dwFlags = TME_HOVER + TME_LEAVE
	lpEventTrack.hwndTrack = Handle (this)
	lpEventTrack.dwHoverTime =  30 	//hover time-out (if TME_HOVER was specified in dwFlags), in milliseconds
	
	
	TrackMouseEvent(lpEventTrack)
	
end if
end event

event mousehover(); /*------------------------------------------------------------------------------

 Event   :			 uo_hyperlinkbutton.Mousehover

 Returns:         (none)

 Parameters:      

 Copyright ©2004 DTI - Philip Salgannik

 Date Created: 4/15/2004

 Description:	You can also play with border
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/ 
border = true
borderstyle = StyleBox!
underline = true
TextColor = LINK_HOVER 
backcolor =  134217752 
end event

event mouseleave(); /*------------------------------------------------------------------------------

 Event   :			 uo_hyperlinkbutton.Mouseleave

 Returns:         (none)

 Parameters:      

 Copyright ©2004 DTI - Philip Salgannik

 Date Created: 4/15/2004

 Description:	You can also play with border
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/ 
border = false
underline = FALSE
textcolor = LINK
backcolor =  134217732 


end event

on uo_hyperlinkbutton.create
end on

on uo_hyperlinkbutton.destroy
end on

event constructor; /*------------------------------------------------------------------------------

 Event   :			 uo_hyperlinkbutton.Constructor

 Returns:         Long

 Parameters:      

 Copyright ©2004 DTI - Philip Salgannik

 Date Created: 4/15/2004

 Description:	This object is based on Dmitrii Mazhar's Hover Button published
 					on now defunct SOAR project (puterworks)
					 
					Link and hover link colors are hardcoded. It probably would be nice
					to query the system for them here
 
--------------------------------------------------------------------------------
 Modifications:
 Date            Author              Comments
------------------------------------------------------------------------------*/ 

end event

event other;choose case message.Number
	case WM_MOUSEHOVER
		this.TriggerEvent("mousehover")
	case WM_MOUSELEAVE
		ib_mouseover = false
		this.TriggerEvent("mouseleave")
end choose
end event