RIBBON NATIVA AVANCES

[Otto]

Hello Antonio,
I changed the navigation from buttonbar to ribbon.
The ribbon works much better (more fluent) than my old ribbon imitation.
Antonio for a production-system I would need most the navigation with keyboard.
Best regards,
Otto

[Antonio Linares]

Otto,

We are working on a Method KeybMode() that first of all may show those little buttons with the letters.

This is still a work in progress but here you can review it:

Code: Select all  Expand view  RUN

METHOD KeybMode() CLASS TRibbonBar

   local oPanel, oBtn

   oPanel = TXPanel():New( 0, 0, ::nHeight(), ::nWidth(), ::oWnd )

   SetWindowLong( oPanel:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ), WS_EX_TRANSPARENT ) )

   BringWindowToTop( oPanel:hWnd )
   
   @ 20, 20 BTNBMP oBtn SIZE 20, 20 OF oPanel 2007

return nil

CLASS TXPanel FROM TPanel

   METHOD Paint() VIRTUAL

ENDCLASS
 

The idea is to place a transparent Panel on top of the Ribbon, so we can place some BtnBmps (or standard Buttons with accelerators) and the user may select the accelerator for each little button.

[Otto]

Antonio,
wouldn't
oPanel:SayBitmap(...)
oPanel:Say(...)
be better for speed reason?
Best regards,
Otto

[Antonio Linares]

Otto,

We can't use those cause the transparency attribute of the panel that we are using

Maybe we could set transparency for just one color, but anyhow we need accelerators there.

[MdaSolution]

Mr Otto,
wich color you used for this test sample ?