Gabriel,

Muchas gracias por compartir tu código, lo he revisado y salvo un #define que yo tengo, el resto está bastante parecido, propiedad mas propiedad menos.

Saludos

Daniel

Gabriel,

Una consulta, ¿como hiciste para "pegar" tu código y que quede dentro de un cuadrado bien formateado y coloreado?

Muchas gracias

Saludos

Daniel

Alfredo,

Gracias por tu ayuda.

Este es mi código,

//Función principal de la app Web
PROCEDURE MainPage()

// Comenzamos instanciando la Página Web que queremos crear
With Object TWebPage():New()
// Para no tener que estar repitiendo código, la construcción del wRebar y del wSideNav lo tengo en un PROCEDURE
// que puedo llamar desde todo el proyecto
AppMenu( :WO )
:lValign := .T.
// :cIcon := "MacroSistemas"
:cTitle := "VirtualMenú"
:cTitleFooter := "MacroVentas ®"
:cSubTitle := "Sistema de punto de venta y gestión"
:cCopyright := '© VirtualMenú By MacroSistemas'
:cClrCrText := "blue"
:cClrFootPane := "black"

// Dentro de la web montamos un primer contenedor bEvel que ocupa 4/12 anchura en pantallas grandes
// en una mediana o pequeña se adaptará responsivamente ya que no le damos tamaño
With Object WBevel():New(:WO)
:aWidth[xc_L] := 4

With Object WLabel():New(:WO)
:nFontSize := 5
:lBold := .T.
:cAlign := xc_Center
:lBR := .T.
:cText := "Hola Mundo"
:Create()
End With
:Create()
End With

oCgi:SendPage( :Create() ) // Se crea el HTML final y se envía al navegador saliendo del ejecutable CGI

End With

RETURN

//------------------------------------------------------------------------------
// Aquí contruyo el wRebar y el wSideNav, al estar en un PROCEDURE aparte puedo crearlos dentro de cualquiera de
// las tWebPage del proyecto
// Necesito tWebPage donde he de crearlos, asi que se lo paso como parametro en oParent
PROCEDURE AppMenu(oParent, cTitle)
local cRestaurante

#ifdef POPEYE
cRestaurante := 'Restaurante Popei'
cTitle := 'Restaurante Popei'
#endif POPEYE

// Instanciamos el wSideNav (El menú lateral)
with object WSideNav():New(oParent)
// Como todas las propiedades image de Néfele podemos asiganerle una URL, un path de nuestro Apache o un BASE64
:cBackImage := "/images/Velero.jpeg"
:cId := "Menu"
:cTitle := cRestaurante
:cClrTiTle := "white"
:cText := "Menú"
:cClrText := "white"
:lShadow := .T. // Esta sombra afecta a los cText y a cTitle y se utiliza para que resalten sobre la imagen del fondo
// vamos a añadirle opciones a nuesto menú
// AddItem( cText, cFunction, cIcon, nStyle, aParams, cAction, aBadge {cText,cClass} )
:AddItem("Inicio","Inicio","home", xc_SideNavOption)
// :AddItem("Formularios","MainForms","note_add", xc_SideNavOption)
// :AddItem("Listas","MainListViews","contacts", xc_SideNavOption,,,"Novedad")
// :AddItem("Alertas","MainAlert","highlight", xc_SideNavOption,,,{"Novedad","red pulse"})
// :AddItem("Charts","MainCharts","data_usage", xc_SideNavOption,,,{"Novedad","blue pulse"})
// Como siempre, una vez definidas todas la propiedades procedemos a la creación
:Create()
end with

// Vamos con el wRebar
with object WRebar():New(oParent)
// Por defecto el wRebar esta creado para estar dividido en 3 areas, MenuNav, Titulo y Logo
// Podemos no poner cualquiera de los tres elementos, e incluso podemos utilizar el wRebar como un contenedor
// y crear dentro de el otros controles.
:cClrPane := "blue darken-1"
:lBeforeMain := .T. // Forzamos a que el wRebar este fuera del <main>
:lMenuNav := .T. // Lleva el icono de apertuta del wSideNav
:lBlock := .T. // Se queda fijo en la parte alta aunque se produzca un scroll
:cTitle := cTitle
:cTitleAlign := xc_Center // Podemos colocar el MenuNav, el Titulo y el Logo en cualquira de las tres posiciones left, center y right
:cLogo := "/images/MacroSistemas.jpg"
:cLogoAlign := xc_Right
// :cUrlToGo := "https://nefele.dev" // Cuando picamos en el Logo nos lleva a esta URL
:Create()
end with

RETURN

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

Probando pegar codigo