Ribbon y metro

[Patricio Avalos Aguirre]

Hola a tod@s

alguna forma de que estas dos clases convivan juntas

quiero que en una ribbon insertar un metro para emular un Dashboard

lo utilizo de esta manera

Code: Select all  Expand view

oMetro   := MakeMetroPanel( oWnd )

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

solo funciona el metro y me deja inactivo ribbon

[Antonio Linares]

Estimado Patricio,

Puedes proporcionar un PRG pequeño completo para probar como lo haces ?

También es útil si pones una imagen de cómo se ve. Gracias!

[cmsoft]

Puedes asignarlo a algun boton de la Ribbon del menu de esta
Algo asi:

Code: Select all  Expand view

#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
 

[karinha]

excelente!

Regards, saludos.

[Antonio Linares]

Muy bueno César! Muchas gracias!

Incluido para el próximo build de FWH

[paquitohm]

Un par de comentarios:

Sería muy interesante, al menos para mi, que con cada ejemplo se subiera una imagen.
También sería interesante que fwh dispusiese de una web para pruebas unitarias donde con un simple copy-paste-run se pudiera ver la ejecución de un trozo de codigo.

Mis 2 euro cents

[Antonio Linares]

Estimado Paco,

> También sería interesante que fwh dispusiese de una web para pruebas unitarias donde con un simple copy-paste-run se pudiera ver la ejecución de un trozo de codigo

Como podriamos implementarlo ? Haria falta un Windows virtual que funcionase en la nube en donde construir la app con FWH y ejecutarla.

[Antonio Linares]

Otra opción seria compilar el PRG y el fichero C desde Linux con compilación cruzada para Windows y tener todo FWH en una DLL.

Se descargaria el EXE y la DLL y se ejecutaria localmente...

Dandole vueltas a la idea

[albeiroval]

Otra opción seria compilar el PRG y el fichero C desde Linux con compilación cruzada para Windows y tener todo FWH en una DLL.

Se descargaria el EXE y la DLL y se ejecutaria localmente...

Dandole vueltas a la idea

Antonio, esta opcion se ve muy intersante, entiendo que asi podriamos usar nuestras aplicaciones fhw en linux ?

[Antonio Linares]

hay una forma más sencilla que estamos organizando.

Un fwrun.exe test.prg que ejecuta el contenido de un PRG sin necesidad de construir el EXE

La idea es poder probar los ejemplos que se publiquen en estos foros sin necesidad de tener que construir un EXE