FiveTech Support Forums

Silvio,

Please review fwh\samples\fivedbu.prg buttonbars

Antonio,




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

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 ....

With this code, I am getting the menu correctly.




Can you post your code creating two buttonbars?

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

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

AEval( ::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








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

AEval( ::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




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

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

RETURN NIL

nageswaragunupudi wrote:Fixed in FWH 16.04. Will be available in a few days

????????

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

Line 834 : Existing

Change As:


Line 866: Existing

Change As:


Line 874: Existing

Change As: