Hola Amigos:
Es posible poner un COMBOBOX en una BUTTONBAR?, algún ejemplo?
Saludos
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)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 85 guests