RibbonBar

[Otto]

Is it possible to navigate within the Ribbonbar with the keyboard.
Thank in advance
Otto

[Antonio Linares]

Otto,

Please add these changes to Class TRibbonBar:

Code: Select all  Expand view

   METHOD GoLeft() INLINE If( ::nOption > 1, ::SetOption( ::nOption - 1 ),)
   
   METHOD GoRight() INLINE If( ::nOption < Len( ::aDialogs ), ::SetOption( ::nOption + 1 ),)

   ...

   METHOD KeyDown( nKey, nFlags )

   ...

METHOD KeyDown( nKey, nFlags ) CLASS TRibbonBar

   do case
      case nKey == VK_LEFT
           ::GoLeft()
   
      case nKey == VK_RIGHT
           ::GoRight()
   endcase
   
return Super:KeyDown( nKey, nFlags )
 

[Otto]

Hello Antonio,
to navigate between the groups is working.
How to enter the group and navigate inside the groups?
Thanks in advance
Otto

[Otto]

Hello Antonio,
if I insert to get the changeRibbonEvent

Code: Select all  Expand view

oRBar:aDialogs[1]:bGotFocus := {||msginfo(1)}
  oRBar:aDialogs[2]:bGotFocus := {||msginfo(2)}
  oRBar:aDialogs[3]:bGotFocus := {||msginfo(3)}
  oRBar:aDialogs[4]:bGotFocus := {||msginfo(4)}

the keyboard navigation does no longer work.

Thanks in advance
Otto

Code: Select all  Expand view

  METHOD GoLeft() INLINE If( ::nOption > 1,(msginfo("left") ,::SetOption( ::nOption - 1 )),)


METHOD GoLeft() INLINE If( ::nOption > 1, ::SetOption( ::nOption - 1 ),)
   
   METHOD GoRight() INLINE If( ::nOption < Len( ::aDialogs ), ::SetOption( ::nOption + 1 ),)

[Antonio Linares]

Otto,

Please use LogFile() and don't use MsgInfo(), as MsgInfo() changes the focus sequence

[Otto]

Hello Antonio,

if I use

oRBar:aDialogs[1]:bGotFocus := {||logfile("log.txt", { " 1" } ) }
oRBar:aDialogs[2]:bGotFocus := {||logfile("log.txt", { " 2" } ) }
oRBar:aDialogs[3]:bGotFocus := {||logfile("log.txt", { " 3" } ) }
oRBar:aDialogs[4]:bGotFocus := {||logfile("log.txt", { " 4" } ) }

the new method don’t work.

Code: Select all  Expand view

METHOD GoLeft() INLINE If( ::nOption > 1, (  logfile("log.txt", { " left" } )   ,::SetOption( ::nOption - 1 ))  ,)
   METHOD GoRight() INLINE If( ::nOption < Len( ::aDialogs ), (  logfile("log.txt", { " right" } )   ,::SetOption( ::nOption + 1 )),  )

If I don’t use

Code: Select all  Expand view

oRBar:aDialogs[1]:bGotFocus := {||logfile("log.txt", { " 1" } ) }

goleft/goright work but the first time you must click on the Ribbonbar first.

Godown does not work.

Best regards,
Otto

[Otto]

Hello Antonio,

goLeft/goRight is working. I don’t know why it is working now.
But the problem still exits is how to start navigation with the keyboard.
Here it only works if I click first on a Tab of the ribbonbar.
Best regards,
Otto

[Antonio Linares]

Otto,

What other controls do you have in your main window besides the RibbonBar ?

[Otto]

Hello Antonio,

thank you for your help.
I had declared a panel before the RIBBONBAR.
Now I changed and declare it after the Ribbonbar and goLeft/goRight is working.
Best regards,
Otto

[Otto]

Do the up- and down-keys for navigation work with ribbonbar.
Best regards,
Otto