====== wSlider ====== CLASS WSlider FROM WControl PROPERTY cClassId INIT "sld" PROPERTY aItems INIT {} // Array de wItemSlider PROPERTY lIndicators INIT .F. // Presenta o no el Indicador PROPERTY nHeight INIT 800 // Alto del Slider PROPERTY nAnimation INIT 0.5 // Tiempo en s de duración de la transcición entre imagenes PROPERTY nTime INIT 6 // Tiempo en s de presentación de cada imagenes PROPERTY cOnClick INIT "" // Evento al pulsar sobre la imagen PROPERTY aParams INIT {} // Parámetros extras a incluir en la lamada al CGI PROPERTY nFontTitle INIT 5 // Tamaño de la Fuente segun Materialize para el Titulo PROPERTY nFontText INIT 7 // Tamaño de la Fuente segun Materialize para el Texto METHOD Create() METHOD AddItem(cImage,nRowId,cTitle,cText,cAlign,cClrTitle,cClrText) // TODO: pendiente el OnClick de las Imagenes ENDCLASS