Así lo tengo espero te ayude
Saluditos
- Code: Select all Expand view
- menu oMenu 2007
endmenu
SetBalloon( .T. )
DEFINE FONT oFont1 NAME "Arial" SIZE 0,-30 // BOLD
DEFINE WINDOW oApp:oWnd from oApp:oTop,oApp:oLeft to oApp:oBottom,oApp:oRight TITLE "Polizarium Control de Polizas V 1.00 2010" COLOR CLR_WHITE, CLR_BLUE ;
MDI MENU oMenu brush oBrush1 STYLE nOr( WS_OVERLAPPED + WS_CAPTION + WS_CLIPCHILDREN )
MENU oMenu POPUP 2007
MENUITEM "Datos Clientes" FILE "ima\16x16\faces.bmp" action DoSimpleList()
MENUITEM "Polizas pagadas" FILE "ima\16x16\database.bmp" action Maind()
MENUITEM "Polizas canceladas" FILE "ima\16x16\cancelar1.bmp" action pngMainx()
MENUITEM "Renovaciones" FILE "ima\16x16\toggle.bmp" action Renueva()
MENUITEM "Comisiones" FILE "ima\16x16\Image1.bmp"
ENDMENU
MENU oMenuu POPUP 2007
MENUITEM "Solicitud" FILE "ima\16x16\new2.bmp" action DoSimpleList()
MENUITEM "Poliza" FILE "ima\16x16\inspect.bmp" action Maind()
MENUITEM "Documentos generales" FILE "ima\16x16\template.bmp" //action Mainx()
ENDMENU
DEFINE RIBBONBAR oRBar WINDOW oApp:oWnd PROMPT "Principal", "Reportes", "Fondos","Catalogos" ,"Sistema";
HEIGHT 70 TOPMARGIN 25
ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 width 500
@ 02, 05 ADD BUTTON oBtn1 GROUP oGr1 BITMAP "ima\16x16\address_book2.bmp" ;
SIZE 79,20 PROMPT "Agenda" MOSTLEFT round ;
action WinExec("agenda\EssentialPIM.exe")
@ 02, 80 ADD BUTTON oBtn2 GROUP oGr1 BITMAP "ima\16x16\calc.bmp" ;
SIZE 82,20 PROMPT "Calculadora" MOSTLEFT round ;
action WinExec("Calc.exe")
@ 02, 165 ADD BUTTON oBtn3 GROUP oGr1 BITMAP "ima\16x16\explorer.bmp" ;
SIZE 79,20 PROMPT "Internet" MOSTLEFT round ;
action VERMAPA3() //explorar()
@ 02, 245 ADD BUTTON oBtn4 GROUP oGr1 BITMAP "ima\16x16\giar.bmp" ;
SIZE 79,20 PROMPT "GiaRoji" MOSTLEFT round ;
action VERMAPA4()
@ 02, 323 ADD BUTTON oBtn5 GROUP oGr1 BITMAP "ima\16x16\Google.bmp" ;
SIZE 79,20 PROMPT "GooleMap" MOSTLEFT round ;
action VerMapa2()
@ 02, 400 ADD BUTTON oBtn6 GROUP oGr1 BITMAP "ima\16x16\scan2.bmp" MENU oMenuu;
SIZE 79,20 PROMPT "Scaner" MOSTLEFT round Popup //;
//action Maind()
//----------------------------------------------------------------------------------------- 1
ADD GROUP oGr1 RIBBON oRBar TO OPTION 1 PROMPT " " width 410
@ 02, 15 ADD BUTTON oBtn2 GROUP oGr1 BITMAP "ima\16x16\help2.bmp" ;
SIZE 75,20 PROMPT "Ayuda" MOSTLEFT round ;
action quiensoy()
@ 02, 110 ADD BUTTON oBtn3 GROUP oGr1 BITMAP "ima\16x16\exit2.bmp" ;
SIZE 90,20 PROMPT "Salir" MOSTLEFT round ;
action(oApp:oWnd:end(),oApp:lExit := .T.)
//----------------------------------------------------------------------------------------- 2
ADD GROUP oGr2 RIBBON oRBar TO OPTION 2 PROMPT "Control de Reportes" WIDTH 210
@ 02, 05 ADD BUTTON oBtn2 GROUP oGr2 BITMAP "ima\16x16\form.bmp" MENU oMenu;
SIZE 75,20 PROMPT "Autos" MOSTLEFT round Popup//;
//action DoSimpleList()//oApp:FrPrn:DesignReport() // MOSTLEFT round
@ 02, 110 ADD BUTTON oBtn3 GROUP oGr2 BITMAP "ima\16x16\addprg.bmp" ;
SIZE 75,20 PROMPT "Generador" MOSTLEFT round;
action DesignReport() //oApp:FrPrn:DesignReport()
// MOSTLEFT round ,oApp:FrPrn:LoadLangRes("SPANISH.Xml")
*----------------------------------------------
//----------------------------------------------------------------------------------------- 3
ADD GROUP oGr3 RIBBON oRBar TO OPTION 3 PROMPT "Primer Cuadro" WIDTH 308
@ 02, 05 ADD BUTTON oBtn2 GROUP oGr3 BITMAP "ima\16x16\Image2.bmp" ;
SIZE 75,20 PROMPT "Fondo" MOSTLEFT round ;
action BckFromImage1( oApp:oBrwX01 )
@ 02, 80 ADD BUTTON oBtn3 GROUP oGr3 BITMAP "ima\16x16\labels.bmp" ;
SIZE 75,20 PROMPT "Recortado" MOSTLEFT round ;
action oApp:oBrwX01:SetBackGround( nil, BCK_TILED )
@ 02, 155 ADD BUTTON oBtn4 GROUP oGr3 BITMAP "ima\16x16\size.bmp" ;
SIZE 75,20 PROMPT "Estirar" MOSTLEFT round ;
action oApp:oBrwX01:SetBackGround( nil, BCK_STRETCH )
@ 02, 230 ADD BUTTON oBtn5 GROUP oGr3 BITMAP "ima\16x16\image.bmp" ;
SIZE 75,20 PROMPT "LLenar" MOSTLEFT round ;
action oApp:oBrwX01:SetBackGround( nil, BCK_FILL )
//----------------------------------------------------------------------------------------- 3
ADD GROUP oGr3 RIBBON oRBar TO OPTION 3 PROMPT "Segundo Cuadro" WIDTH 308
@ 02, 05 ADD BUTTON oBtn2 GROUP oGr3 BITMAP "ima\16x16\Image2.bmp" ;
SIZE 75,20 PROMPT "Fondo" MOSTLEFT round ;
action BckFromImage2( oApp:oBrwX2 )
@ 02, 80 ADD BUTTON oBtn3 GROUP oGr3 BITMAP "ima\16x16\labels.bmp" ;
SIZE 75,20 PROMPT "Recortado" MOSTLEFT round ;
action oApp:oBrwX2:SetBackGround( nil, BCK_TILED )
@ 02, 155 ADD BUTTON oBtn4 GROUP oGr3 BITMAP "ima\16x16\size.bmp" ;
SIZE 75,20 PROMPT "Estirar" MOSTLEFT round ;
action oApp:oBrwX2:SetBackGround( nil, BCK_STRETCH )
@ 02, 230 ADD BUTTON oBtn5 GROUP oGr3 BITMAP "ima\16x16\image.bmp" ;
SIZE 75,20 PROMPT "LLenar" MOSTLEFT round ;
action oApp:oBrwX2:SetBackGround( nil, BCK_FILL )
//----------------------------------------------------------------------------------------4
ADD GROUP oGr4 RIBBON oRBar TO OPTION 4 PROMPT "Registro de Clientes, Agentes, Compañias, Marcas" WIDTH 350
@ 02, 05 ADD BUTTON oBtn2 GROUP oGr4 BITMAP "ima\16x16\id_card.bmp" ;
SIZE 75,20 PROMPT "Clientes" MOSTLEFT round ;
action alta_agentes()
@ 02, 80 ADD BUTTON oBtn2 GROUP oGr4 BITMAP "ima\16x16\id_card2.bmp" ;
SIZE 75,20 PROMPT "Agentes" MOSTLEFT round ;
action alta_agentes()
@ 02, 160 ADD BUTTON oBtn3 GROUP oGr4 BITMAP "ima\16x16\home-a.bmp" ;
SIZE 75,20 PROMPT "Compañias" MOSTLEFT round ;
action alta_conpania()
@ 02, 240 ADD BUTTON oBtn4 GROUP oGr4 BITMAP "ima\16x16\cars.bmp" ;
SIZE 75,20 PROMPT "Marcas" MOSTLEFT round ;
action alta_Marcas()
//----------------------------------------------------------------------------------------5
ADD GROUP oGr5 RIBBON oRBar TO OPTION 5 PROMPT "Audio" WIDTH 155
@ 02, 05 ADD BUTTON oBtn2 GROUP oGr5 BITMAP "ima\16x16\btn_Mute_H.bmp" ;
SIZE 75,20 PROMPT "Activar" MOSTLEFT round ;
action apagarvoces(eStados:="si",eStados)
@ 02, 80 ADD BUTTON oBtn3 GROUP oGr5 BITMAP "ima\16x16\btn_Mute_H_S.bmp" ;
SIZE 75,20 PROMPT "Silenciar" MOSTLEFT round ;
action apagarvoces(eStados:="no",eStados)
DEFINE OUTLOOK2003 oOutLook2003 OF oApp:oWnd ;
PROMPTS "Autos", "Daños", "Vida", "Gastos Medicos", "Accidentes" ;
BITMAPS "ima\auto.bmp", "ima\btn3.bmp","ima\vidal.bmp","ima\medical_bag.bmp", "ima\gmm.bmp"
oApp:oWnd:oLeft = nil // Because the splitter is going to control the resize
@ 0, 0 EXPLORERBAR oExBar OF oOutLook2003:aDialogs[ 1 ] ;
SIZE oOutLook2003:aDialogs[ 1 ]:nWidth, oOutLook2003:aDialogs[ 1 ]:nHeight
oPanel = oExBar:AddPanel("ALTAS AUTOS", "HEADER1" )
oPanel:lSpecial = .T.
oPanel:AddLink("Alta solicitud", {|| ALTA_A() } ,"ima\16x16\new2.bmp")
oPanel:AddLink("Alta de Folio Solicitud",{|| BUSCASOL1()} ,"ima\16x16\mget.bmp")
oPanel:AddLink("Alta poliza", {|| BUSCAPOL1()} ,"ima\16x16\inspect.bmp")
oPanel:AddLink("Modificaciones", {|| MODIFICAPOLIZA() } ,"ima\16x16\source.bmp")
oPanel:AddLink("Pagos", {|| pagos() } ,"ima\16x16\Image1.bmp")
oPanel = oExBar:AddPanel("BAJAS AUTOS" )
oPanel:AddLink("Cancelaciones" ,{||CACELA()} ,"ima\16x16\stop.bmp")
oPanel:AddLink("Rehabilitaciónes" ,{||EXCACELA()} ,"ima\16x16\favorite.bmp")
oPanel:AddLink("Baja Total Poliza" ,{||BUSCABORRAS()} ,"ima\16x16\delete.bmp")
oPanel:AddLink("Baja Total Solicitud" ,{||BUSCABORRASF()} ,"ima\16x16\delete.bmp")
oPanel = oExBar:AddPanel("CONSULTAS" )
oPanel:AddLink("No. de poliza",{|| BUSCAPOLIZA1()},"ima\16x16\find3.bmp")
oPanel:AddLink("Nombre",{|| ShowPopup()},"ima\16x16\find3.bmp")
SetParent( oOutLook2003:hWnd, oApp:oWnd:hWnd )
oApp:oWnd:oClient = nil
@ 00,00 SPLITTER oSplit ;
VERTICAL _3DLOOK ;
PREVIOUS CONTROLS oOutLook2003 ;
HINDS CONTROLS oApp:oWnd:oWndClient ;
SIZE 4, oApp:oWnd:nHeight - 70 PIXEL ;
OF oApp:oWnd COLOR nRgb(26,26,112)
oSplit:lStatic:=.T.
SetParent( oSplit:hWnd, oApp:oWnd:hWnd )
