btnbmp on buttonbar

[Silvio.Falconi]

can I insert a btnbmp with a menupopuo into a buttonbar ? ( to select different options)
or wish possibility ( classes) I must use

[Antonio Linares]

Silvio,

Please review fwh\samples\fivedbu.prg buttonbars

[Silvio.Falconi]

go

[Silvio.Falconi]

Antonio,




the menu popup is over the button... but I think it must be down the button arrow

[Silvio.Falconi]

The reason is probably because Ihave two button bars
To confirm this, I try to put the button on the top






It is still a bug of the class
because the menu be must near to the button that calls the menupop and not relative to the first bar


how I can resolve ? I need to insert the button on second bar ....

[nageswaragunupudi]

With this code, I am getting the menu correctly.

Code: Select all  Expand view  RUN

  DEFINE WINDOW oWnd

   DEFINE BUTTONBAR oBar OF oWnd SIZE 32, 32 _3d

   DEFINE BUTTON OF oBar
   DEFINE BUTTON OF oBar MENU testpop()

   @ oBar:nHeight, 0 BUTTONBAR oBar2 OF oWnd SIZE 1000,32 BUTTONSIZE 32, 32 3DLOOK

   DEFINE BUTTON OF oBar2
   DEFINE BUTTON OF oBar2 MENU testpop()
 

Can you post your code creating two buttonbars?

[Silvio.Falconi]

the problem is coordinates of menu referenced of button of second buttonbar ::oBar2
on the first ::oBar1 run ok but I need it on second buttonbar

Sorry but here I made :

the first oBar is the mother od ::oBar1,::oBar2,::oBar3
on ::oBar1 and ::oBar2 there are buttons
on ::oBar3 in future a ruler

METHOD SetBar() CLASS TFivePad

LOCAL oBar, oCursor, oClp
local oPopup


MENU oPopup POPUP
MENUITEM FWString( "1.0") ACTION NIL
MENUITEM FWString( "2.0") ACTION NIL
MENUITEM FWString( "2.5") ACTION NIL
MENUITEM FWString( "3.0") ACTION NIL
SEPARATOR
MENUITEM FWString("Get Paragraph Line Spacing") ACTION ;
MsgInfo ( "Paragraph Line Spacing : " + STR(::nLineSpacing) )
ENDMENU


DEFINE CURSOR oCursor HAND

DEFINE CLIPBOARD oClp OF ::oWndMain FORMAT TEXT

DEFINE BUTTONBAR oBar OF ::oWndMain 3D SIZE 26, 84

oBar:bLClicked := { || NIL }
oBar:bRClicked := { || NIL }

@ -1, -1 BUTTONBAR ::oBar1 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27


here the buttons of ::oBar1

::oBar1:bLClicked := { || NIL }
::oBar1:bRClicked := { || NIL }

AEval( ::oBar1:aControls, { |x| x:oCursor := oCursor } )

@ 26, -1 BUTTONBAR ::oBar2 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27


here the buttons of ::oBar2


last button


DEFINE BUTTON ::oBarLineSpacing OF ::oBar2 RESOURCE "RTFPARAGRAPH" ;
MESSAGE "Formats current or selected paragraph(s)" ;
TOOLTIP "Line Spacing" NOBORDER ;
WHEN ::WndActive() ;
MENU oPopup ACTION nil








::oBar2:bLClicked := { || NIL }
::oBar2:bRClicked := { || NIL }

AEval( ::oBar2:aControls, { |x| x:oCursor := oCursor, ;
x:nLeft += 219, x:nRight += 219 } )


//----------------------------------------------------------------------------------//
//----------------------------------------------------------------------------------//
// for ruler
//-----------------------------------------------------------------------------------//
@ 55, -1 BUTTONBAR ::oBar3 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
BUTTONSIZE 26, 27




::oBar3:bLClicked := { || NIL }
::oBar3:bRClicked := { || NIL }

AEval( ::oBar3:aControls, { |x| x:oCursor := oCursor, ;
x:nLeft += 219, x:nRight += 219 } )

RETURN NIL

[nageswaragunupudi]

Fixed in FWH 16.04. Will be available in a few days

[Silvio.Falconi]

Fixed in FWH 16.04. Will be available in a few days

????????

[Silvio.Falconi]

Maestros, can Know how correct it please ?

[nageswaragunupudi]

Please let me know the FWH version you are using

[Silvio.Falconi]

March 2016

[nageswaragunupudi]

Please make these changes in btnbmp.prg (FWH 16.03)

Line 834 : Existing

Code: Select all  Expand view  RUN

  local oWnd

Change As:

Code: Select all  Expand view  RUN

  local oWnd, nBarTop := 0

Line 866: Existing

Code: Select all  Expand view  RUN

                    oWnd := ::oWnd:oWnd

Change As:

Code: Select all  Expand view  RUN

                    oWnd := ::oWnd:oWnd; nBarTop  := ::oWnd:nTop
 

Line 874: Existing

Code: Select all  Expand view  RUN

                 oWnd:oPopup:Activate( ::nTop + ::nHeight(), Max( ::nLeft, 1 ), oWnd, .F. )

Change As:

Code: Select all  Expand view  RUN

                 oWnd:oPopup:Activate( nBarTop + ::nTop + ::nHeight(), Max( ::nLeft, 1 ), oWnd, .F. )

[Silvio.Falconi]

thanks