ancho de un boton en una button bar

[carlos vargas]

Estimados, tengo una button bar, en la cual, uno de los botones debe tener un ancho mayor a los demas, los botones, tiene un ancho de 60 px, pero este necesito que sea el doble, si bien con
oToolbar:aControls[ 7 ]:nWidth := 120, el tamaño se incrementa, el siguiente boton, continua en su posicion, por lo cual se solapan,

Code: Select all  Expand view

STATIC PROCEDURE Pago_Toolbar()
   LOCAL oCursor := CrearCursorBarraBotones()

   DEFINE BUTTONBAR oToolBar OF oDlg SIZE 60, 60 2015 CURSOR oCursor

   DEFINE BUTTON NAME "TB2_EXIT"       OF oToolBar ACTION oDlg:End()           PROMPT "&Salir"
   DEFINE BUTTON NAME "TB2_ADD"        OF oToolBar ACTION Pago_Editar( TRUE  ) PROMPT "&Nuevo" GROUP
   DEFINE BUTTON NAME "TB2_EDIT"       OF oToolBar ACTION Pago_Editar( FALSE ) PROMPT "&Editar"
   DEFINE BUTTON NAME "TB2_DELETE"     OF oToolBar ACTION Pago_Borrar()        PROMPT "&Borrar"
   DEFINE BUTTON NAME "TB2_CALENDAR"   OF oToolBar ACTION Pago_SelFecha()      PROMPT "&Fecha" GROUP
   DEFINE BUTTON NAME "TB2_FILTERADD"  OF oToolBar ACTION Pago_SelRuta()       PROMPT "&Ruta" GROUP
   DEFINE BUTTON NAME "TB2_PAYPHONE"   OF oToolBar ACTION Pago_Recuperar()     PROMPT "&Cobro" GROUP
   DEFINE BUTTON NAME "TB2_MONEYTRAN"  OF oToolBar ACTION Pago_Aplicar()       PROMPT "&Aplicar"
   DEFINE BUTTON NAME "TB2_PRINTER"    OF oToolBar ACTION Pago_Print()         PROMPT "&Listar" GROUP

   DEFINE MSGBAR oMsgBar OF oDlg PROMPT "INS=Nuevo, DEL=Borrar, ENTER=Editar, F4=Fecha, F5=Ruta, F6=Recuperar, F7=Aplicar, F9=Refrescar" 2015 FONT oFontS
   DEFINE MSGITEM oItem OF oMsgBar PROMPT "TODOS" SIZE (80*nScale) COLOR CLR_RED ACTION Pago_LimpiaFiltro( oItem )

   oDlg:SetControl( oBrw )

   oBrw:nTop    += 1
   oBrw:nHeight -= 1

   WITH OBJECT oToolBar
      :bRClicked := {|| NIL }
      :bLClicked := {|| NIL }
      :aControls[ 1 ]:cToolTip := "Cierra modulo."
      :aControls[ 2 ]:cToolTip := "Agrega un nuevo registro."
      :aControls[ 3 ]:cToolTip := "Edita datos del registro actual."
      :aControls[ 4 ]:cToolTip := "Elimina datos del registro actual."
      :aControls[ 5 ]:cToolTip := "Filtra pagos segun fecha."
      :aControls[ 6 ]:cToolTip := "Filtra pagos del dia segun ruta de cobro."
      :aControls[ 7 ]:cToolTip := "Recuperar cobro del dia."
      :aControls[ 8 ]:cToolTip := "Aplicar abonos a saldo de prestamos."
      oBtnEditar := :aControls[ 03 ]
      oBtnFilter := :aControls[ 06 ]

      //:aControls[ 02 ]:bWhen := {|| Date() == dFecha }
      //:aControls[ 03 ]:bWhen := {|| lVer := ( dFecha < Date() ) , TRUE }
      //:aControls[ 04 ]:bWhen := {|| Date() == dFecha }
      //:aControls[ 07 ]:bWhen := {|| Date() == dFecha }
      //:aControls[ 08 ]:bWhen := {|| Date() == dFecha }
      :aControls[ 7 ]:nWidth := 120
   END

RETURN
 

[cnavarro]

Carlos, prueba asi

Code: Select all  Expand view

local oBtt

.../...

DEFINE BUTTON oBtt NAME "TB2_EXIT"       OF oToolBar ACTION oDlg:End()           PROMPT "&Salir"
oBtt:nWidth := 120
 

[carlos vargas]

Gracias Cristobal, funciono al 100%.