Little change in TMsgBar
Posted: Fri Feb 22, 2008 8:29 am
The following little change is to show the cursorhand only on the items with an action defined:
EMG
Code: Select all
METHOD MouseMove( nRow, nCol, nFlags ) CLASS TMsgBar
local n, oItem
for n = 1 to Len( ::aItem )
oItem = ::aItem[ n ]
if oItem:IsOver( nRow, nCol ) .and. oItem:bAction != nil // EMG
CursorHand()
if ::nItem != n
::nItem := n
::DestroyToolTip()
endif
::CheckToolTip()
return nil
endif
next
::DestroyToolTip()
::nItem := 0
return Super:MouseMove( nRow, nCol, nFlags )