ButtomBar scroll

[shark]

Greetings colleagues noble. it is possible to roll a BUTTOMBAR case a small screen does not fit all the buttons?

below is an illustration of the control I need:

[Silvio.Falconi]

I ask the same for the tabof ribbonbar because I wish set all buttons on first tab

[James Bott]

I don't know how to make a buttonbar wrap, but as an alternative you could make the text description tooltips instead. And/or make the images smaller.

The text is only for novices and expert users will remember the icons. So, tooltips are available for the novice, but not cluttering up the screen for the expert. I would never use both on the screen at all times.

Note that images are easier to remember because you don't have to read and process them each time like you do with text.

You could also use a ribbonbar with tabs so you don't have to put all the icons on the same space.

Personally, I don't like wrapped toolbars. My editor does this when you change the size of the window, then I have to remember, is the icon on the top-right or the wrapped middle?

[Silvio.Falconi]

Dear James, I have a schedule where the user sees the whole structure of the beach
1 Having all the buttons in a single buttonbar or on a single tab of the ribbon is essential and unfortunately we have many buttons: I'll give you an example list
1 button to change the date
2. date box
3 date box
4 button for booking journal
5 button for periodic booking
6. button for automatic booking
7 button for multiple booking
8 group for the selected element display
9 booking gesione button
10 customer management
11 booking management
12 management Notes
13 Planner
14 advanced planner
15 beach print
16 individual services
17 services available
18 shows desktop
19 Bar
20 restaurant
21 full screen
22 exit

2 We can not shrink the images of the buttons that must be at least 32X32 or even larger

[James Bott]

I assume they have to be 32x32 because it is a touch-screen?

If so, maybe you need to adopt some of the design features for the metro style.

Maybe you could do a drop down menu with the large icons. I have seen touch-screen cash registers to do it like that.

Or you could do it Explorer bar style with several expanding menus.

[Silvio.Falconi]

YES
it is touch screen
I'm rebuilding my old application for use on Tablet Lenovo Mx with Windows 10

[James Bott]

I suggest searching this forum for "metro" and "tablet."

[Otto]

Hello Silvio,
you can Change btndyn.prg.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oBar, oBtn, oBtn2, oBtn3,oBtn4, oBrw
    local nRechts := 0
   
   USE CUSTOMER

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
   DEFINE BUTTONBAR oBar OF oDlg SIZE 64,48 2007 GDIP

   DEFINE BUTTON oBtn OF oBar ;
      FILE "\fwh\bitmaps\hcsmall.bmp", "\fwh\bitmaps\users.bmp" ;
      PROMPT { || If( nRechts = 0, "first", "fourth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )

    DEFINE BUTTON oBtn2 OF oBar ;
      FILE "\fwh\bitmaps\pdf.bmp", "\fwh\bitmaps\magenta.bmp" ;
      PROMPT { || If( nRechts = 0, "second", "fifth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )
     
    DEFINE BUTTON oBtn3 OF oBar ;
      FILE "\fwh\bitmaps\user.bmp", "\fwh\bitmaps\cyan.bmp" ;
      PROMPT { || If( nRechts = 0 , "third", "sixth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )      

    DEFINE BUTTON oBtn4 OF oBar ;
      FILE "\fwh\bitmaps\next.bmp", "\fwh\bitmaps\prev.bmp" ;
      PROMPT { || If( nRechts = 1, "links", "rechts" ) } ;
      ACTION ( iif( nRechts = 0, nRechts := 1 , nRechts := 0 ), oBar:Refresh() )    


   if Val( HB_ATokens( FWVERSION )[ 2 ] ) > 17.06
            oBtn:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn2:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn3:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn4:bBmpNo := { || If( nRechts = 1, 2, 1 ) }
     
     
   endif

   @ 50,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST","CITY","MARRIED","AGE" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :Married:SetCheck( nil, .t. )
      :bChange       := { || oBar:Refresh() }
      //
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

Best regards
Otto
 

[Silvio.Falconi]

I suggest searching this forum for "metro" and "tablet."

please the problem is only on Tablet Module when the final user must use the application on Vertical display while on Horizontal Display we can have much space

[Silvio.Falconi]

Hello Silvio,
you can Change btndyn.prg.

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oBar, oBtn, oBtn2, oBtn3,oBtn4, oBrw
    local nRechts := 0
   
   USE CUSTOMER

   DEFINE DIALOG oDlg SIZE 600,400 PIXEL TRUEPIXEL
   DEFINE BUTTONBAR oBar OF oDlg SIZE 64,48 2007 GDIP

   DEFINE BUTTON oBtn OF oBar ;
      FILE "\fwh\bitmaps\hcsmall.bmp", "\fwh\bitmaps\users.bmp" ;
      PROMPT { || If( nRechts = 0, "first", "fourth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )

    DEFINE BUTTON oBtn2 OF oBar ;
      FILE "\fwh\bitmaps\pdf.bmp", "\fwh\bitmaps\magenta.bmp" ;
      PROMPT { || If( nRechts = 0, "second", "fifth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )
     
    DEFINE BUTTON oBtn3 OF oBar ;
      FILE "\fwh\bitmaps\user.bmp", "\fwh\bitmaps\cyan.bmp" ;
      PROMPT { || If( nRechts = 0 , "third", "sixth" ) } ;
      ACTION If( CUSTOMER->MARRIED, MsgInfo( "MARRIED" ), MsgInfo( "SINGLE" ) )      

    DEFINE BUTTON oBtn4 OF oBar ;
      FILE "\fwh\bitmaps\next.bmp", "\fwh\bitmaps\prev.bmp" ;
      PROMPT { || If( nRechts = 1, "links", "rechts" ) } ;
      ACTION ( iif( nRechts = 0, nRechts := 1 , nRechts := 0 ), oBar:Refresh() )    


   if Val( HB_ATokens( FWVERSION )[ 2 ] ) > 17.06
            oBtn:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn2:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn3:bBmpNo := { || If( nRechts = 0, 2, 1 ) }
            oBtn4:bBmpNo := { || If( nRechts = 1, 2, 1 ) }
     
     
   endif

   @ 50,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
      DATASOURCE "CUSTOMER" ;
      COLUMNS "FIRST","CITY","MARRIED","AGE" ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :Married:SetCheck( nil, .t. )
      :bChange       := { || oBar:Refresh() }
      //
      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return nil

Best regards
Otto
 

Nice Otto perhaps this feature can be insert on a ribbon tab?
I must try

[Silvio.Falconi]

Otto,
I try , it run but I think Fwteam can found a good solution also for the Left type
sse your mail thanks

[Silvio.Falconi]

Otto,
On ribbonbar it is cannot possible



because ribbon when have a big tab create a tab under

perhaps can be changed this feature and insert a button "Next" at the end of window to show the other buttons




perhaps can be changed the METHOD PopupGroup() CLASS TRBGroup but I not found a solution

[shark]

This immediatly solution is buttonbar with control manualy of left and right (horizontal scroll) on place of first and last buttons.

Maybe in the new fivewin version this scroll be incresead.

Thanks.

[Silvio.Falconi]

+1 but I need also on ribbonbar now