CLASS WSplitButton FROM WControl PROPERTY cClassId INIT "sbt" PROPERTY cText INIT "" // Texto a poner en el Button PROPERTY aParams INIT {} // Se añade a los aParams de cada uno de los aItems PROPERTY oIcon AS WIcon // Icono a la derecha del texto PROPERTY cIcon INIT "" // Vamos a mantener provisionalmente las propiedades directas de los iconos pero van ha desaparecer PROPERTY oIconMenu AS WIcon // Icono a la derecha del texto PROPERTY cIconMenu INIT "" PROPERTY lLarge INIT .F. // Modo largo del botón PROPERTY lCenter INIT .F. // Se centra en su contenedor PROPERTY nFix INIT 0 // Ancho fijo del botón en px PROPERTY cTextAlign INIT xc_Center // Alineación de texto en el botón PROPERTY lBold INIT .F. // Pone todo el texto de botón en Negrita Property aItems Init {} // Array de wItemFloatBtn METHOD Create() METHOD AddItem(cOnClick, cIcon, cText, lDivider, aParams, cAjaxBevel, lModalResult, aBadge) METHOD New( oParent ) ENDCLASS