Windows 8 estilo Metro - Una Clase TMetro

[El Loco]

Excelente Troesma !!! Excelente

Un abrazo. El Loco

[MdaSolution]

Good Maestro!!!
como tener reloj transparente?

[jll-fwh]

Hola a todos:

Viendo la clase Metro, pues me he decidido a ir añadiendo nuevas funcionalidades porque realmente según la idea que tengo los programas pueden quedar muy muy bien.

De momento sobre la base de antonio he incorporado los metodos MouseMove() y Bar() que lo que hacen es:

- Que cuando pasamos el raton sobre la parte derecha de la ventana, activa una barra de botones estilo Windows 8.

De momento esto es solo unas pequeñas pruebas, ya que esta clase para tener algo profesional, le queda mucho pero que mucho código.

Seria interesante que aportarais vuestras ideas en este hilo para ir añadiendo funcionalidades.

Una vez descargues el ejemplo, pasa el raton sobre la parte derecha de la ventana para que el menú se active/desactive automáticamente.

Descargar un ejemplo en:
http://www.grupes.es/basura/metro.rar

Un saludo
JLL

[Bayron]

JLL, muy Grande tu aporte...

Algo muy vistoso del Estilo Metro, es el Hold and Push (con el dedo o con el mouse), que empujaría los botones de Izquierda a derecha y viceversa, mostrando nuevos botones al hacerlo, algo muy similar fué hecho con tFolderEx, según vi en el ejemplo que Daniel me proporcionó... sería genial ver los botones desplazándose por la ventana y mostrando nuevos...

[AIDA]

Hola

se podria usar el reloj de TSAYTIMER de William

viewtopic.php?f=6&t=22455


Saluditos

[jll-fwh]

Buenas;

Esa es la idea Bayron, de momento no me he metido a ello, pero es la base de metro. Ya que hay algo más o menos hecho, podías proporcionarme el ejemplo que te paso Daniel ? o agregame al MSN y me lo pasas por alli: fwh-jll@hotmail.es

Aida, podemos ir incorporando entre todos cualquier herramienta útil.

De momento creo que es más interesante incorporar la funcionalidad Hold and Push que comenta Bayron que es la base de metro según he estado viendo en internet. Poco a poco podemos ir mejorandola ya que todavía es una pequeña base.

Seria interesante la opinión de Antonio y Daniel al respecto.

Un saludo
JLL

[Bayron]

Es un ejemplo de la clase tFolderEx, que viene con las nuevas versiones de fiveWin....

http://fivetechsupport.com/forums/viewtopic.php?f=6&t=22497&p=119931&hilit=+daniel#p119916

[jll-fwh]

Bayron;

Lo miro y ya comento.

Un saludo
JLL

[jll-fwh]

Nueva revisión de la clase TMetro:

He añadido nuevas funcionalidades y he reescrito algunos metodos:

Entre otras cosas, ahora los botones de la barra también podemos centrarlos como hace windows 8: ver las anotaciones abajo descritas para ver las implementaciones.

/*------------------------------------------------------------------------------*/
* Archivo: Tmetro.PRG *
* Descripcion: Emulación de la clase Metro de Windows 8 para FWH *
* Fecha: Octubre del 2011 *
* Autor: Antonio Linares & Javier LLoris *
* Verion para: 32Bits *
* *
* Libreria: FWH/FWHX 11.09 *
* Harbour: Harbour 3.1.0 *
* Compilador: Borland C++ 5.8.2 *
* *
* Nuevas Funcionalidades: *
* *
* 08-10-2011 Añadimos el cursor a los botones *
* 08-10-2011 Añadimos tooltips a los botones *
* 08-10-2011 Añadimos oFont y lAdjust al metodo AddButtoon() *
* 08-10-2011 Anulo el metodo Bar() y creo los metodos AddBar() y *
* AddButtonBar() para insertar la barra lateral y añadir los *
* botones a la barra. *
* 08-10-2011 Añadimos el metodo CenterBar() que da la posibilidad de poder *
* centrar los botones en la barra lateral. *
* 08-10-2011 Añadimos el metodo AddGif() para poder insertar botones con GIF*
* 08-10-2011 Modificaiones el fichero de cabecera Metro.CH para insertar *
* clausula TOOLTIP y ADJUST en los botones del metodo AddButton()*
* 08-10-2011 Añadimos la funcion SetBalloon( .T. ) para que los tooltips *
* aparecezcan estilo Balon *
/*------------------------------------------------------------------------------*/

Imagen-1- Con botones centrados


Imagen-2 - Con botones normales


El código del ejemplo: ( el código de la clase la subiré este fin de semana que no trabajo y puedo estar algunas horas implementando nuevas propiedades ).

Code: Select all  Expand view  RUN

/*------------------------------------------------------------------------------*/
*        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
 

Para descargar el ejemplo-02:
http://www.grupes.es/basura/metro.rar

Un saludo
JLL

[Bayron]

Nice work...

[ACC69]

Nice work...

Hola a todos los Fivewineros, mis mayores respetos a todos los expertos que saben crear clases que muchos de ustedes, como Daniel Garcia, Antonio Linares,William Morales, Bayron, Javier Lloris, Alfredo Arteaga, Hernan Ceccarelli, Carles....y muchos mas, que conozco a travez de este medio, quisiera ser como ustedes, crear mi propia clase,que ni se por donde empezar, por mas que leo, lo basico de OOP, pero lo mas avanzado ahi se me complica, unicamente crear mis propias rutinas y funciones, pero CLASES?? nunca, llegare a ser como ustedes, y muy buen aporte y avances que crean nuevas novedades,como el metro,si pudiera ,podria aportar igual, mis conocimientos y experiencias, pero me quedo muy pequeño y corto mis conocimientos ante ustedes, mis mayores respetos a todos los que tienen experiencias en crear clases..

Les envio cordiales saludos y que tengan un excelente fin de semana.

Atte: Adrian Casanova C.

[jll-fwh]

Hola Adrian:

Yo no tengo ningún problema en que me agreges al MSN para cualquier duda.

Un saludo
JLL

[jll-fwh]

Hola a todos:

He estado un rato implementando mas propiedades a la clase TMetro:

1.- Nuevos metodos para el Hold and Push.
2.- Nuevos metodo para el control de las teclas para subir y bajar por la ventana metro.
3.- Modificada la clase TScrollBar.

NOTA: De momento solo esta implementado los controles para la forma vertical, una vez funcione la vertical, implementare el horizontal, ya que hay que hacer unos pequeños cambios.

Necesito si puede ser que alguien con pantalla tactil pruebe a ver si funciona y que me diga que resultados obtiene.

Con el raton funciona de la siguiente forma:- Hacer click sobre una posicion de la ventana y sin soltar subir o bajar el raton, cuando se hace soltar, es cuando reposiciona los datos del contenedor.

http://www.grupes.es/basura/metro.rar

Un saludo
JLL

[hmpaquito]

jll,

Está genial de la muerte. Qué bonito !

Es vd. una mina.

Saludos

[Antonio Linares]

JLL,

Está muy bien, realmente bonito. Muchas gracias!