Hello Antonio,
can you please show how to make a hover effect like in Windows 8.
Thanks in advance
Otto
if ::lMOver .and. nTypeButton != 3
do case
case nTypeButton == TYPE_NORMAL
if ::lSelected
GradientFill( ::hDC, 1, 1, ::nHeight, ::nWidth - If(::lRound,2,0), eval( ::bClrGradSelectPress, ::lPressed ) )
else
GradientFill( ::hDC, 1, 1, ::nHeight, ::nWidth - If(::lRound,2,0), eval( ::bClrGradNormal, ::lPressed ) )
endif
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 78 guests