Code: Select all
//---------------------------------------------------------------------
//Definicion completa de toda la barra de botones superior estilo folder
oPanel := TPanel():New( 0, 0, 55, 800, oReBar ) //Define el tamaño total de la barra completa
//-----------------------------------------------------------
// Primero construimos la barra de botones principal superior
//-----------------------------------------------------------
// Definimos los iconos de la barra
oimagelist = timagelist():new(32,32) // width and height of bitmaps primer listado de botones
oimagelist:addmasked( tbitmap():define( "B_SELEM",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_ARTIC",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_PROVE",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_COMPR",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_PEDID",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_GASTO",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_ETIQU",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_CXP",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_CLIEN",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_VENTA",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_PRESU",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_CXC",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_CALCU",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_MANTE",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( tbitmap():define( "B_PAPEL",, ownd ), nrgb( 255, 0, 255 ) )
oimagelist:addmasked( TBitmap():Define( "B_SALIR",, oWnd ), nRGB( 255, 0, 255 ) )
// _ boton, llamamos a los bitmap, y definimos su acción
DEFINE TOOLBAR oToolBar of oPanel size 50,50 IMAGELIST oImagelist BALLOON
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Empresa") PROMPT "Empresa" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Catalogo de Articulos") PROMPT "Articulo" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Catalogo de Proveedores") PROMPT "Provee." WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas de Compras") PROMPT "Compra" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Generar Pedidos / Fallas") PROMPT "Pedido" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas Gastos / Activos") PROMPT "Gasto" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Impresion de Etiquetas") PROMPT "Etiq." WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Cuentas por Pagar") PROMPT "CxP" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION DATA20() TOOLTIP ansitooem("Catalogo de Clientes") PROMPT "Clientes" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Facturas de Venta") PROMPT "Venta" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Presupuestos") PROMPT "Presup." WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Cuentas por Cobrar") PROMPT "CxC" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Calculadora") PROMPT "Calcul." WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Mantenimiento Completo de Datos y Sistema") PROMPT "Manten." WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION .T. TOOLTIP ansitooem("Eliminar Definitivamente los datos Borrados") PROMPT "Vaciar" WHEN .T.
DEFINE TBBUTTON OF oToolBar ACTION IIF(D_Salir(),Finaliza(hRec,oFont,dDate),nil) TOOLTIP ansitooem("Salir") PROMPT "Salir" WHEN .T.
// Definimos el folder, y los tamaños
oReBar = TReBar():New( oWnd )
@ 100, 2 FOLDER oFolder PROMPTS "Archivo", "Edicion", "Inventario", "Compras", "Ventas", "Bancos", "Nomina", "Administracion", "Mantenimiento", "Ayuda" SIZE 540, 62
//--------------
//Folder Archivo
oImageFolder[1] = TImageList():New( 32, 32 ) // width and height of bitmaps segundo listado de botones
oImageFolder[1]:AddMasked( TBitmap():Define( "M_USUAR",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_LLAVE",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_EMPRE",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_SELEM",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_CATGE",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_IMPUE",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_CALCU",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_AGEND",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_PARAM",, oWnd ), nRGB( 255, 0, 255 ) )
oImageFolder[1]:AddMasked( TBitmap():Define( "M_SALIR",, oWnd ), nRGB( 255, 0, 255 ) )
DEFINE TOOLBAR aToolBar[1] of oFolder:aDialogs[1] size 50,58 IMAGELIST oImageFolder[1] BALLOON
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Usuarios") WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Usuario" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Empresas" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Seleccionar / Cambiar de Empresa" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogos Generales" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Catalogo de Impuestos" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Calculadora" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Agenda" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION .T. TOOLTIP ansitooem("Parametros Generales" ) WHEN .T.
DEFINE TBBUTTON OF aToolBar[1] ACTION IIF(D_Salir(),Finaliza(hRec,oFont,dDate),nil) TOOLTIP ansitooem("Salir" ) WHEN .T.
oReBar:InsertBand( oPanel )
oReBar:InsertBand( oFolder )