FiveTech Support Forums

/*------------------------------------------------------------------------------*/
*        Archivo: Mmetro.PRG                                                    *
*    Descripcion: Pruebas de la clase Metro                                     *
*          Fecha: Octubre del 2011                                              *
*          Autor: Javier LLoris                                                 *
*    Verion para: 32Bits                                                        *
*                                                                               *
*       Libreria: FWH/FWHX 11.09                                                *
*        Harbour: Harbour 3.1.0                                                 *
*     Compilador: Borland C++ 5.8.2                                             *
/*------------------------------------------------------------------------------*/

  #Include "FiveWin.ch"
  #Include "c:\jll1109\metro\metro.ch"
  #Include "gif.ch"

//----------------------------------------------------------------------------//
Function Main()
//----------------------------------------------------------------------------//

   local oMetro, oFont, oFontA, oFontB

   HB_LANGSELECT("ES")

   DEFINE FONT oFont  NAME "Tahoma" SIZE 0,-12
   DEFINE FONT oFontA NAME "Tahoma" SIZE 0,-40 BOLD
   DEFINE FONT oFontB NAME "Tahoma" SIZE 0,-25 BOLD

   DEFINE METRO oMetro ;
          BTNSIZE 132, 132 ;
          TITLE "Metro 2011 FWH1109" ;
          BACKGROUND "bitmaps\agapornix.bmp"

   /*------------------------------------------------------------------------- 1 fila de botones */

   /* Color en azul */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT dToc( Date() )+CRLF+Time()+CRLF COLOR CLR_WHITE, RGB( 117,175,243 ) LARGE;
          ACTION Msginfo( "Fecha y Hora del sistema");
          FONT oFontB;
          TOOLTIP "Fecha y Hora del sistema"

   /* Color en naranja */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "Calculadora" COLOR CLR_WHITE, RGB( 226,159,39 );
          IMAGE "bitmaps\Calculator.bmp" LARGE;
          ACTION Msginfo( "Calculadora");
          FONT oFont;
          TOOLTIP "Calculadora"

   /* Sin color definido */
   DEFINE METROBUTTON OF oMetro ;
          IMAGE "bitmaps\office.bmp";
          ACTION Msginfo( "Office");
          TOOLTIP "Office"

   /*------------------------------------------------------------------------- 2 fila de botones */

   /* Color en Azul plomo */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "//BUILD/"+CRLF COLOR CLR_WHITE, RGB( 77,106,150 );
          LARGE;
          ACTION Msginfo( "//Build/");
          FONT oFontA;
          TOOLTIP "//Build/"

   /* Sin Color definido */
   DEFINE METROBUTTON OF oMetro ;
          IMAGE "bitmaps\agaporni.bmp";
          ACTION Msginfo( "Archivos");
          FONT oFont;
          TOOLTIP "Imagen de agapornis";
          ADJUST

   /* Color en Gris */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "Contactos" COLOR CLR_WHITE, RGB( 126,126,126 );
          IMAGE "bitmaps\Contact.bmp" LARGE;
          ACTION Msginfo( "Contactos");
          FONT oFont;
          TOOLTIP "Contactos"

   /*------------------------------------------------------------------------- 3 fila de botones */

   /* Color en rojo */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "Internet Explorer" COLOR CLR_WHITE, RGB( 134,182,83 );
          IMAGE "bitmaps\Internet.bmp" LARGE;
          ACTION Msginfo( "Internet Explorer");
          TOOLTIP "Internet Explorer"

   /* Color en azul */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "Impirmir" COLOR CLR_WHITE, RGB( 77,106,150 );
          IMAGE "bitmaps\Print.bmp";
          ACTION Msginfo( "Imprimir");
          TOOLTIP "Imprimir"

   /* Insertamos el boton GIF */
   oMetro:AddGif( "bitmaps\matrix5.gif", {|| msginfo( "Botones con GIF") }, oFont, .T., .F., "Botones con GIF" )

   /* Color en Rojo granate */
   DEFINE METROBUTTON OF oMetro ;
          PROMPT "Archivos" COLOR CLR_WHITE, RGB( 154,76,76 );
          IMAGE "bitmaps\files.bmp";
          ACTION Msginfo( "Archivos");
          FONT oFont;
          TOOLTIP "Archivos"

   /* Definimos la barra de botones que se mostrara en vertical y a la derecha como windows 8 */
   oMetro:AddBar( 55, 55 )
   oMetro:AddButtonBar( "bitmaps\lupa.bmp",   {|| MsgInfo( "lupa" )       }, oFont, "Lupa",       .F., .T. )
   oMetro:AddButtonBar( "bitmaps\share.bmp",  {|| MsgInfo( "Compartir" )  }, oFont, "Compartir",  .F., .T. )
   oMetro:AddButtonBar( "bitmaps\win8.bmp",   {|| MsgInfo( "windows 8" )  }, oFont, "Windows 8",  .F., .T. )
   oMetro:AddButtonBar( "bitmaps\seting.bmp", {|| MsgInfo( "Configurar" ) }, oFont, "Configurar", .F., .T. )
   oMetro:AddButtonBar( "bitmaps\close.bmp",  {|| oMetro:End()            }, oFont, "Cerrar",     .F., .T. )

   /* Si queremos que los botones se muestren centrados en la barra */
   *oMetro:CenterBar()

   ACTIVATE METRO oMetro

   DeleteObject( oFont )
   DeleteObject( oFontA )
   DeleteObject( oFontB )

Return NIL