FiveTech Support Forums

oMetro   := MakeMetroPanel( oWnd )

ACTIVATE WINDOW oWnd MAXIMIZED ON INIT (ometro:Show(),oWnd:Setfocus())

#include "FiveWin.ch"
#INCLUDE "ribbon.CH"
#include "ribbon.ch"
#include "metro.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oIcon, oRib, oBot, oGr

   DEFINE WINDOW oWnd ;
       TITLE "Ribbon con Metro"; 
       MDI ;
       MENU HazMenu()

   DEFINE RIBBONBAR oRib WINDOW oWnd PROMPT "Opciones" HEIGHT 139 TOPMARGIN 25
     
    ADD GROUP oGr RIBBON oRib TO OPTION 1 PROMPT "Opciones del Sistema" WIDTH 400

    @ 2,05 ADD BUTTON oBot PROMPT "Salir"  GROUP oGr BITMAP "..\bitmaps\exit.bmp" ;   
      ROUND SIZE 80,85  TOOLTIP "Salir del Sistema" ACTION oWnd:End()
    @ 2,95 ADD BUTTON oBot PROMPT "Calculadora"  GROUP oGr  BITMAP "..\bitmaps\calc.bmp" ;   
        ROUND SIZE 80,85  TOOLTIP "Calculadora" ACTION WinExec("calc.exe")    
    @ 2,185 ADD BUTTON oBot PROMPT "Acerca"  GROUP oGr  BITMAP "..\bitmaps\about.bmp" ;   
        ROUND SIZE 80,85  TOOLTIP "Acerca de Este Software" ACTION MsgAbout()
    @ 2,275 ADD BUTTON oBot PROMPT "Impresora"  GROUP oGr  BITMAP "..\bitmaps\printer.bmp" ;   
        ROUND SIZE 80,85  TOOLTIP "Configurar Impresora" ACTION PrinterSetup()    
    

   //Esta opcion llama al Dashboard
   oBar2 = TRBtn():New( 4, 0, 60, 20, "..\bitmaps\rbnmenu.bmp", { || DashBoard()}, oRib,;
                         ,,,,,, .T., .T.,,,,,,/* "POPUP"*/, ,,,,,,,,,,,,, , nRGB( 125, 172, 215 ),;
                         nRGB( 65, 106, 189 ) ) 
   
   ACTIVATE WINDOW oWnd 
      
return nil

STATIC FUNCTION HazMenu()
LOCAL oMenu
MENU oMenu 2010
ENDMENU
RETURN oMenu

STATIC FUNCTION DashBoard()

   local oMetro
   
   DEFINE METRO oMetro ;
      TITLE "Accesos Directos";
      BACKGROUND "..\BITMAPS\backgrnd\beach.bmp"
      
   DEFINE METROBUTTON OF oMetro ;
      PROMPT "Usuarios" COLOR CLR_WHITE, RGB( 70, 23, 80) ;
      IMAGE "..\BITMAPS\METRO\users.bmp" ACTION (Mifuncion("Aca entraria a Usuarios"))

   DEFINE METROBUTTON OF oMetro ;
      PROMPT "Copias" COLOR CLR_WHITE, CLR_BLUE ;
      IMAGE "..\BITMAPS\METRO\copy.bmp" ACTION (Mifuncion("Aca copiaria archivos")) LARGE
   
   DEFINE METROBUTTON OF oMetro ;
      PROMPT "Reportes" COLOR CLR_WHITE, RGB( 70, 23, 80) ;
      IMAGE "..\BITMAPS\METRO\printer1_50.png" ACTION (Mifuncion("Emitiria reportes"))

   DEFINE METROBUTTON OF oMetro ;
      PROMPT "Configuracion" COLOR CLR_WHITE, CLR_BLUE ;
      IMAGE "..\BITMAPS\METRO\utilities.bmp" ACTION (Mifuncion("Aca configuracion")) LARGE
   

 
   ACTIVATE METRO oMetro

RETURN nil

STATIC FUNCTION Mifuncion(cText)
MsgInfo(cText,"Atencion")
RETURN nil