FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour RIBBON NATIVA AVANCES
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: RIBBON NATIVA AVANCES
Posted: Sun Jan 03, 2010 08:25 PM
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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: RIBBON NATIVA AVANCES
Posted: Mon Jan 04, 2010 01:34 AM
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 (fw): Select all Collapse
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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 6983
Joined: Fri Oct 07, 2005 07:07 PM
Re: RIBBON NATIVA AVANCES
Posted: Mon Jan 04, 2010 07:35 AM

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

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: RIBBON NATIVA AVANCES
Posted: Mon Jan 04, 2010 08:24 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 401
Joined: Tue Jan 05, 2010 02:33 PM
Re: RIBBON NATIVA AVANCES
Posted: Tue Jan 05, 2010 05:08 PM

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

FWH .. BC582.. xharbour

Continue the discussion