FiveTech Support Forums

Can I use a Hand cursor on RibbonBar ? to have a compatibilidad with oBar?

Up

Yes, you can use a Hand cursor on TRibbonBar, but it requires manual assignment since the DEFINE RIBBONBAR command does not have a built-in CURSOR clause like DEFINE BUTTONBAR does.

The difference

With TBar (ButtonBar): The CURSOR clause is part of the command syntax, and the cursor is automatically propagated to each button via TBtnBmp::NewBar(): 0-cite-0 0-cite-1

With TRibbonBar: The command in ribbon.ch has no CURSOR clause: 0-cite-2

How to do it

Since TRibbonBar and TRBtn both inherit from TControl -> TWindow, they all have the oCursor property. The TWindow::MouseMove method checks ::oCursor and calls SetCursor() automatically: 0-cite-3

And TRBtn::MouseMove delegates to Super:MouseMove which triggers the same cursor logic: 0-cite-4

So you can set it manually after creating the RibbonBar:

LOCAL oCursor

DEFINE CURSOR oCursor HAND

DEFINE RIBBONBAR oRBar WINDOW oWnd PROMPT "Tab 01", "Tab 02" ;
      HEIGHT 130 TOPMARGIN 25

// Set cursor on the ribbon bar itself
oRBar:oCursor := oCursor

// Set cursor on all ribbon buttons inside each group/tab
LOCAL n, m, p, oGroup, oButton
FOR n = 1 TO Len( oRBar:aDialogs )
   IF oRBar:aDialogs[ n ]:aControls != NIL
      FOR m = 1 TO Len( oRBar:aDialogs[ n ]:aControls )
         oGroup := oRBar:aDialogs[ n ]:aControls[ m ]
         oGroup:oCursor := oCursor
         IF oGroup:aControls != NIL
            FOR p = 1 TO Len( oGroup:aControls )
               oGroup:aControls[ p ]:oCursor := oCursor
            NEXT
         ENDIF
      NEXT
   ENDIF
NEXT

This is the same pattern used in ButtonBar samples where cursors are applied via AEval: 0-cite-5 0-cite-6

The approach is functionally equivalent - it just requires iterating through the RibbonBar's dialog panels, groups, and buttons to set the cursor on each control individually, since TRibbonBar doesn't automatically propagate oCursor to child controls the way TBar does.