How can I make this ?

[Marco Turco]

Hi,
is there a FWH build-in class to make this ? See

[James Bott]

Marco,

No, but you could use the new Ribbonbar to do something similar.

An Explorer bar would also work. There was a third-party one, but I think it is dead. It would be nice if Antonio would put it on his To-Do list.

James

[ukoenig]

James,

I finished testing Ribbonbar-Values.
I think, using a Ribbonbar is not the Solution, because You will always have Tabs on Top of the Bar.
In case, Marco wants to change to different Menues ( Levels ), it will work.
I tested with just one Group, but the Result looks different to Marco's Screenshot.
I don't know for the Moment, if it is possible to hide the Tabs and work with just one Group.
Using Vtitle with included Buttons, could be a Solution.

Best Regards
Uwe

[Marco Turco]

Hi,
the better solution I have found is using rbbuttons.


However I have the followin problem:
I need to change the windows color background at runtime and the buttons always keep the previous windows color,
do you know if is there a way to update the correct background for the button ?

This is a self contained code that show the problem. PRessing the button the windows background change but the button background remains white.

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"

Function main()

    local oWnd
    local oBtn1


    DEFINE WINDOW oWnd TITLE "TTitle Class Test"

   @ 20, 10 RBBTN oBtn1 OF oWnd BITMAP "24exit.bmp";
              SIZE 100, 25   PROMPT "Test " TRANSPARENT MOSTLEFT;
              ACTION ChangeWndColor(oWnd)

    activate window oWnd maximized


return nil

Function ChangeWndColor(oWnd)
    oWnd:Setcolor(nil, nrgb(199,213,239))
    oWnd:Refresh()
    return

Any ideas ?

[Daniel Garcia-Gil]

Hello Marco

try with this code

Code: Select all  Expand view

#include "fivewin.ch"
#include "ribbon.ch"

Function main()

    local oWnd
    local oBtn1


    DEFINE WINDOW oWnd TITLE "TTitle Class Test"

   @ 20, 10 RBBTN oBtn1 OF oWnd BITMAP "24exit.bmp";
              SIZE 100, 25   PROMPT "Test " TRANSPARENT MOSTLEFT;
              ACTION ( ChangeWndColor(oWnd), ChangeBTNColor( oWnd ) )

    activate window oWnd maximized


return nil

Function ChangeWndColor(oWnd)
    oWnd:Setcolor(nil, nrgb(199,213,239))
    oWnd:Refresh()
return

Function ChangeBTNColor( oWnd )
local n, oBtn

    if ! Empty( oWnd:aControls )
      for n = 1 to Len( oWnd:aControls )
         if oWnd:aControls[ n ]:Classname == "TRBTN"
            oBtn = oWnd:aControls[ n ]
            DeleteObject( oBtn:hBack )
            oBtn:hBack := CreateSolidBrush( nrgb(199,213,239) )
            oBtn:ReleaseDC()
         endif
      next
    endif      
         
return nil
 

[ukoenig]

Marco,

You can create Your own Buttonbar and display inside any Control on any Place You like.



Best Regards
Uwe

[Marco Turco]

It runs fine.

Thank you.

[Marco Turco]

You are right but with your solution - as I know - I can't display the support image and the text. Isn't it ?

Marco,

You can create Your own Buttonbar and display inside any Control on any Place You like.



Best Regards
Uwe