COMBOBOX en BUTTONBAR?

[Armando]

Hola Amigos:

Es posible poner un COMBOBOX en una BUTTONBAR?, algún ejemplo?

Saludos

[armando.lagunas]

algo viejito pero funcional

Code: Select all

DEFINE FONT oFont NAME "Arial Narrow" SIZE 6, 18 BOLD
DEFINE BRUSH  oBrs COLOR VAL(cColor)
DEFINE ICON   oIco RESOURCE 101
DEFINE CURSOR oMan RESOURCE "MANO"
DEFINE WINDOW oWnd TITLE " "+ALLTRIM(_Sig)+" //"+cTitle MENU MenPri() ICON oIco BRUSH oBrs
DEFINE BUTTONBAR oBar SIZE 48,52 3DLOOK TOP  OF oWnd CURSOR oMan
 DEFINE BUTTON RESOURCE "SALIR3"  OF oBar       ACTION oWnd:End()    NOBORDER TOOLTIP OEMTOANSI(" Finalizar la ejecusi¢n "+CRLF+"       del Sistema... ")
 DEFINE BUTTON RESOURCE "IPC"     OF oBar GROUP ACTION TablIPC()     NOBORDER TOOLTIP OEMTOANSI(" Tabla principal del I.P.C. "  +CRLF+"  Acumulado por los A¤os ")
 DEFINE BUTTON RESOURCE "ACTIVO"  OF oBar       ACTION Activos()     NOBORDER TOOLTIP OEMTOANSI(" Crear, Modificar, Eliminar "  +CRLF+"  C¢digos de Activo fijo ")
 DEFINE BUTTON RESOURCE "TABLA"   OF oBar       ACTION TablFac()     NOBORDER TOOLTIP OEMTOANSI(" Muestra la Tabla de Factores "+CRLF+" para la Correcci¢n Monetaria ")
 DEFINE BUTTON RESOURCE "TRASPA"  OF oBar       ACTION Calcula()     NOBORDER TOOLTIP OEMTOANSI(" Calcular el periodo de Depreciaci¢n ")
   MENU oPopup POPUP
      MENUITEM OEMTOANSI(" &Informe Ejercicio del Activo Fijo ")     ACTION Corrije()
      SEPARATOR
      MENUITEM OEMTOANSI(" &Correcci¢n Monetaria meses anteriores ") ACTION Monetar()
   ENDMENU
   MENU yPopup POPUP
      MENUITEM OEMTOANSI(" &Cierre Anual ")     ACTION CAnual1()
   ENDMENU
 DEFINE BUTTON RESOURCE "LISTA"   OF oBar       ACTION PrinterSetup() MENU oPopup NOBORDER MESSAGE OEMTOANSI("Configuraci¢n de Impresoras ")
 DEFINE BUTTON RESOURCE "CIERRE"  OF oBar GROUP ACTION Mensual()      MENU yPopup NOBORDER TOOLTIP OEMTOANSI("Cierre mensual de activos ")
 DEFINE BUTTON RESOURCE "AYUDA"   OF oBar GROUP ACTION MsgBeep()     NOBORDER

 @ 12, 500 COMBOBOX oCbx VAR cMes   ITEMS aMes SIZE 140, 100 PIXEL OF oBar COLOR "N/W*"  FONT oFont ON CHANGE TablaCALC()
 @ 12, 650 COMBOBOX oMox VAR cAno   ITEMS aAno SIZE 80,  100 PIXEL OF oBar COLOR "N/W*"  FONT oFont ON CHANGE TablaCALC()

 oWnd:oBar:bRClicked = { || MsgInfo( "Accion Cancelada..."," Propiedades " ) }

SET MESSAGE OF oWnd TO _Ver+" "+CURDRIVE()+":\."+_Bas KEYBOARD DATE TIME
ACTIVATE WINDOW oWnd MAXIMIZED ON INIT SysRefresh() VALID    MsgYesNo(OEMTOANSI("Terminar la Ejecuci¢n del Sistema ?"),_Ver)

 

resultado



saludos

[Armando]

Tocayo:

Muchas gracias, le voy a usar.

Saludos