topic-41123

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

ancho de un boton en una button bar
Posted: Fri Nov 26, 2021 08:30 PM

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 (fw): Select all Collapse

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: ancho de un boton en una button bar
Posted: Sat Nov 27, 2021 01:50 PM

Carlos, prueba asi

Code (fw): Select all Collapse

local oBtt

.../...

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: ancho de un boton en una button bar
Posted: Thu Dec 02, 2021 06:32 PM

Gracias Cristobal, funciono al 100%.

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion