FiveTech Software tech support forums

Buenas noches. necesito que al oprimir un boton de una ButtonBar este cambie su archivo bmp. esta declarado asi: DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ; ACTION Cobros() ; MESSAGE "Mantenimiento de Cobros"; PROMPT ...

...     oSayTreffer:refresh() )oBot:SetFont(oFontBold)  O si no quieres definir cada boton como variable, en el init del dialogo, puedes asignar el font a todos los que sean del tipo boton ACTIVATE DIALOG oDlg CENTERED ;    ...

si, solo que yo necesito que se oculte si no es "desarrollo" pero si funciono

Probaste con el WHEN ?

ambas formas deben funcionar correctamente

Perfecto, Ahora lo entendi, modifique mi codigo y si funciona.   ACTIVATE DIALOG ::oDlg CENTERED ON INIT ( ;                                             this:oDlg:setMenu( ...

Gustavo,

un control de un diálogo no tiene un handle válido de Windows hasta que no se activa el diálogo, por eso no te funciona

Puedes hacerlo asi:

REDEFINE BUTTON ::oBtns[ 2 ] ID 410 OF ::oDlg WHEN ! HB_ArgV( 1 ) == "desarrollo"

METHOD setBtns() CLASS TImportarXML   REDEFINE BUTTON ::oBtns[ 1 ] ID 400 OF ::oDlg   REDEFINE BUTTON ::oBtns[ 2 ] ID 410 OF ::oDlg   ::oBtns[ 1 ]:disable()   RETURN( NIL ) DLGMAIN DIALOGEX DISCARDABLE 6, 18, 799, 362STYLE DS_SHELLFONT|WS_POPUP|DS_MOD...

Gustavo,

Necesitamos ver el código de ::setBtns()

 DEFINE DIALOG ::oDlg resource "DLGMAIN" TITLE FWString( 7 ) + " Sucursal " + AllTrim( Str( 1 ) ) + " [" + IIf( HB_ArgV( 1 ) == "desarrollo", "DESARROLLO", "PRODUCCION" ) + " ]"  ...

Por favor, muestra el código en donde creas ::oBtns[2]

Antonio pasa por el lugar.
pero sigue si ocultarlo.

Intenta:

Code: Select all  Expand view

      ::oBtns[2]:Disable()
      ::oBtns[2]:hide()
      ::oBtns[2]:Refresh()
 

Hay un ejemplo completo para testes?

Regards, saludos.

Estimado Gustavo, Asegúrate de que la ejecución del código pasa por ahí:    IF ( HB_ArgV( 1 ) == "desarrollo" )      ::oBtns[2]:show()      ::oBtns[2]:baction := { || ::reset() }   ELSE      MsgInfo( "aqui" &...

Has probado añadiendo un refresh a oBtns[2]?

Hola. Estoy intentando hacer esto:  IF ( HB_ArgV( 1 ) == "desarrollo" )      ::oBtns[2]:show()      ::oBtns[2]:baction := { || ::reset() }   ELSE      ::oBtns[2]:hi...