FiveTech Software tech support forums

... TRADEY := 0 PUBLIC CUT800 := 230 PUBLIC CUT1024 := 230 PUBLIC HFONT := GETSTOCKOBJECT(OEM_FIXED_FONT) PUBLIC PRINTPORT := "1" PUBLIC ABUTTONS := {} PUBLIC TOTBUTTON := 0 PUBLIC BUTTNBLOCK PUBLIC TEMPTOTCOMM PUBLIC TEMPTOTNET PUBLIC CALCMAN PUBLIC CALCMANFILTER PUBLIC REALGANFILE PUBLIC ...

Prueba con oTb:aControls[2]:disable(), saludos... :shock: bien bien! habia probado con abuttons.... gracias! gracias! Es lo primero que tambien se me habia ocurrido, pero asumiendo que ya lo habias intentado asi, revise la clase y vi que no era eso si no el aControls, ...

joseluisysturiz wrote:Prueba con oTb:aControls[2]:disable(), saludos...

bien bien! habia probado con abuttons....

gracias! gracias!

Hi George, Please Change like this function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd ) do case case cEvent == "Execute" .and. Len( aButtons ) > 0 do case case aButtons[ 1 ]:hObj == aParams[ 1 ] :hObj MsgInfo( "Button 1" ) case ...

... presionado. Local nSeleccion:=1 . . . DEFINE DIALOG oDlg FROM 15, 30 TO 17+len(tG)+4, 82 FONT oFnt_Texto for nI:=1 to len(tG) @ len(tG), nC BUTTON aButtons[nI] OF oDlg SIZE nLB*5,14 Font oFnt_Button ; ACTION ( nSeleccion:=eval( makeBlock(nI) ), lExit := .T., oDlg:End() ) nC+=nLB next nI ACTIVATE ...

@ len(tG), nC BUTTON aButtons[nI] OF oDlg SIZE nLB*5,14 Font oFnt_Button ;
ACTION ( nSelccion:= eval( makeBlock(nI) ), lExit := .T.,oDlg:End() )

...

function makeBlock( i )
return {| u | i }

... DIALOG oDlg FROM 15, 30 TO 17+len(tG)+4, 82 FONT oFnt_Texto for nI:=1 to len(tG) @nI-1,2 say tG[nI] Font oFnt_Texto next nI for nI:=1 to len(aButtons) @ len(tG), nC BUTTON aButtons[nI] OF oDlg SIZE nLB*5,14 Font oFnt_Button ; ACTION ( lExit := .T., oDlg:End() ) nC+=nLB next nIB ACTIVATE DIALOG ...

Rossine,

Prueba asi:

case aButtons[ 1 ]:__hObj == aParams[ 1 ]:__hObj

... Sí, porque ahora la DATA hObj se llama __hObj en Harbour OK Eu mudei o código para isto: function RibbonBarEvent( cEvent, aParams, pParams, aButtons, oWnd )   do case      case cEvent == "Execute" .and. Len( aButtons ) > 0           do case              case aButtons[ ...

... a button was clicked by the user, the variable <cEvent> has 'normally' the value "Execute". All buttons resides in the array <aButtons>, if 'aButtons[ 1 ]:hObj == aParams[ 1 ]' you know which button was pressed! I really want to know, how Lailton, Richard, or who else has ...

... { || oWinh:End() } , "Salir", " Salir ") oToolBar : AddSeparator() oToolBar : AddButton( { || .t. } , "Excel", "Excel") AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd,; nBtn, nOr( 0x0010 ) ) } ) oReBar : InsertBand( oToolBar ) oWinH : Hide() Define ...

Aqui te mando la función que hace lo que necesitas. En tu código lo manejas así. AEval( oToolBar : aButtons, { | aBtn, nBtn| CAMBIA_EL_SIZE_DEL_BOTON( oToolBar : hWnd, nBtn, nOr( 0x0010 ) ) } ) #pragma BEGINDUMP #include <windows.h> #include <commctrl.h> #include ...

Silvio,

You can't because the ToolBar object does not manage buttons as objects.

You can access its properties from its index into oToolBar:aButtons

... Armando Sintax no this not wandered See the esmplo in fwh\samples\dbf01.prg REDEFINE BUTTON oBtnNew ID ID_NEW OF oDlg; ACTION New (@ lNew, oDbf, aButtons, oDlg); MESSAGE "Add the new customer"

... -------------------------------------------------------------------------------- In the norton guides it says that the class TBAR has Data called aButtons but when I try to access this array I keep getting "No exp.method:TBAR:aButtons". Also, if I check the source code for the TBAR object I see ...