FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour ButtomBar scroll
Posts: 55
Joined: Thu Mar 13, 2008 02:35 AM

ButtomBar scroll

Posted: Tue Sep 04, 2018 11:40 PM
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:

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Wed Sep 05, 2018 08:54 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Re: ButtomBar scroll

Posted: Wed Sep 05, 2018 04:18 PM

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?

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Wed Sep 05, 2018 05:26 PM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Re: ButtomBar scroll

Posted: Wed Sep 05, 2018 09:21 PM

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.

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Thu Sep 06, 2018 09:16 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 4840
Joined: Fri Nov 18, 2005 04:52 PM

Re: ButtomBar scroll

Posted: Thu Sep 06, 2018 02:51 PM

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

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
Posts: 6984
Joined: Fri Oct 07, 2005 07:07 PM

Re: ButtomBar scroll

Posted: Thu Sep 06, 2018 06:38 PM
Hello Silvio,
you can Change btndyn.prg.






Code (fw): Select all Collapse
#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
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Fri Sep 07, 2018 07:34 AM
James Bott wrote: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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Fri Sep 07, 2018 07:35 AM
Otto wrote:Hello Silvio,
you can Change btndyn.prg.






Code (fw): Select all Collapse
#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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Fri Sep 07, 2018 08:12 AM

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Fri Sep 07, 2018 08:29 AM
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
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 55
Joined: Thu Mar 13, 2008 02:35 AM

Re: ButtomBar scroll

Posted: Wed Sep 12, 2018 07:31 AM

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.

Posts: 7318
Joined: Thu Oct 18, 2012 07:17 PM

Re: ButtomBar scroll

Posted: Wed Sep 12, 2018 10:17 AM

+1 but I need also on ribbonbar now

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Continue the discussion