¡Esta es una revisión vieja del documento!
CLASS WSideNav FROM WControl PROPERTY cClassId INIT "snv" PROPERTY cTitle INIT "" WRITE INLINE ::FcTitle := ::AdjustText( Value ) // Titulo del Menu PROPERTY cClrTitle INIT "white" WRITE INLINE ::FcClrTitle := ::CheckClr(Value) // Color del Texto de Titulo (sobre la imagen) PROPERTY oStyleTitle INIT wStyle():New() AS wStyle PROPERTY cAlignTitle INIT xc_Center // Alineación del Titulo PROPERTY cIconOpen INIT "keyboard_arrow_up" PROPERTY cIconClose INIT "keyboard_arrow_down" //JJG Permite colocar una imagen centrada como titulo superior (para logos) PROPERTY cBackImage INIT '' // Fondo del Titulo PROPERTY cImageTitle INIT '' // Imagen como Titulo PROPERTY cBackground INIT '' // Fondo del detalle PROPERTY cBackgroundSize INIT '' // Propiedad Size CSS de Background PROPERTY cBackgroundColor INIT '' // Propiedad Color CSS de Background PROPERTY lBackgroundRepeat INIT .T. PROPERTY cBackgroundAlign INIT "center center" // Horizontal y Vertical PROPERTY cText INIT "" WRITE INLINE ::FcText := ::AdjustText( Value ) // Texto bajo el Titulo PROPERTY cClrText INIT "white" WRITE INLINE ::FcClrText := ::CheckClr(Value) // Color delTexto bajo el titulo (sobre la imagen) PROPERTY oStyleText INIT wStyle():New() AS wStyle PROPERTY cAlignText INIT xc_Left // Alineación del Texto bajo el titulo PROPERTY cClrPane INIT "" WRITE INLINE ::FcClrPane := ::CheckClr(Value) PROPERTY lShadow INIT .F. // Pone o no sombra en el Texto PROPERTY aItems INIT {} // Array de wItemSideNav METHOD Create() METHOD AddItem(cText, cOnClick, cIcon, nStyle, aParams, cAction, aBadge, cClrPane, cClrText) METHOD AddDivider(cClrLine) METHOD AddHeader(cText, cClrPane, cClrText) PROPERTY cTitleClass INIT "z-depth-5" // Clase a aplicar al Title del menu METHOD AddSubMenu(cText, aBadge, cIcon, cClrPane, cClrText) // añade un nivel de submenu METHOD EndSubMenu() // Cierra un nivel de submenu PROPERTY nNivel init 0 // Uso Interno ENDCLASS