Little change in TMsgBar

[Enrico Maria Giordano]

The following little change is to show the cursorhand only on the items with an action defined:

Code: Select all  Expand view  RUN

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 )

EMG

[Antonio Linares]

Enrico,

Thanks!