Office 10 backstage TM button

[Otto]

Hello Antonio,

To simulate the new Office 10 backstage TM button it would be nice to have a new type “TAB” in
TRBtn (rounded on top angled on button)

static aType := { "NORMAL", "POPUP", "SPLITPOPUP", "SAYBUTTON" , “TAB” }

Thanks in advance
Otto

[Antonio Linares]

Otto,

We plan to keep improving FWH RibbonBar more and more

many thanks for your great feedback

[Otto]

Code: Select all  Expand view

static aType := { "NORMAL", "POPUP", "SPLITPOPUP", "SAYBUTTON","TAB" }



 if ::hWnd != 0
      if ::nTypeButton = 4
         ::hRgn := CreateRoundRectRgn( aRect, 6, 6 )
         hRgn2 := CreateRectRgn( 5, aRect[ 2 ], aRect[ 3 ],aRect[ 4 ] )
         CombineRgn( ::hRgn, ::hRgn, hRgn2, 2 )
         DeleteObject( hRgn2 )
       elseif ::lRound .and. !::lGrouping
         ::hRgn := CreateRoundRectRgn( aRect, 6, 6 )
       SetWindowRgn(::hWnd, ::hRgn)

 

[Antonio Linares]

Otto,

Would you mind to post a screenshot to see how it looks ? thanks

[Otto]

Hello Antonio,
I made the following changes in trbtn.prg
Best regards,
Otto

Code: Select all  Expand view

add  “TAB”
static aType := { "NORMAL", "POPUP", "SPLITPOPUP", "SAYBUTTON","TAB" }

Inserted:
DATA   aClrGradBtnTAB    
-------------------------------------------------------------------
In the new-Method
changed
if ::lRound .and. !::lGrouping
to

if ::hWnd != 0
       if ::nTypeButton = 4
         ::hRgn := CreateRoundRectRgn( aRect, 6, 6 )
         hRgn2 := CreateRectRgn( 5, aRect[ 2 ], aRect[ 3 ],aRect[ 4 ] )
         CombineRgn( ::hRgn, ::hRgn, hRgn2, 2 )
         DeleteObject( hRgn2 )
       
       elseif ::lRound .and. !::lGrouping
-------------------------------------------------------------------
In the paint-method I changed
if lBorder
to:
if ::nTypeButton == 4
                 RoundBox( ::hDC, 1, 1, ::nWidth, ::nHeight/2, 6, 6, ::nClrBoxIn )      
                 RoundBox( ::hDC, 0, 0, ::nWidth, ::nHeight/2, 6, 6, ::nClrBoxOut )  
                 
                 
                  RoundBox( ::hDC,  1, 5,::nWidth, ::nHeight, 0, 0, ::nClrBoxIn )      
                  RoundBox( ::hDC,  0, 5,::nWidth, ::nHeight, 0, 0, ::nClrBoxOut )          
             
                  GradientFill( ::hDC, 3, 1, ::nHeight-1, ::nWidth-1, eval( ::aClrGradBtnTAB ) )
             
           elseif lBorder
              if ::lRound
-------------------------------------------------------------------

 

Here is the screenshot:

[Antonio Linares]

Otto,

We are reviewing your changes,

Thanks!

[Otto]

To switch between backstage and the ribbonbar I use:

oWnd:bLClicked := { |y,x, nFlags | EnableWindow( oRBar:hWnd, .t. ),;
oRbar:LButtonDown( y,x , nFlags )}

and from inside on the closebutton:
oWnd:LButtonDown( 1,1 )

Best regards,
Otto