Personalizar un poco WMsgAlert

Acceder Darse de alta He olvidado la contraseña

Topic Resolution: Resolved

Este debate tiene 1 respuesta, 2 mensajes y ha sido actualizado por última vez el 3 años, 6 meses por Alfredo Sanz. This post has been viewed 449 times

Mostrando 1 respuesta al debate

Autor

Entradas

14-10-2020 a las 18:44 #1197

Xevi

Participante

Me gusta dar un "toque" personal a mis aplicacioncillas... que no son nada de otro mundo, pero me ayudan a pasar el tiempo.

Así, pues, a los mensajes WMsgAlert, le pongo el icono/Logo de mi corporación.

      WITH OBJECT WMsgAlert():New()
         :cText := '<img src="images/@Soft/@Soft.ico" /><br><br>' +; //Logo corporativo y dejo dos líneas de separación
                  '<p align=left>' + Tag( "b", AsciiHtml( aDades[1] ) ) + "<p>" +; //primera línea informativa
                  '<p align=left>' + AsciiHtml( aDades[2] ) + "<p>" +; //segunda línea informativa
                  '<p align=left>' + AsciiHtml( aDades[3] ) + "<p>" +; // y así las líneas sucesivas
                  '<p align=left>' + AsciiHtml( aDades[4] )
         :cConfirmButton := "Acceptar"
         :Create()
         cHtml := :FullHtml()
      END WITH

WITH OBJECT WMsgAlert():New()

:cText := '<img src="images/@Soft/@Soft.ico" /> ' +; //Logo corporativo y dejo dos líneas de separación

'' + Tag( "b", AsciiHtml( aDades[1] ) ) + "" +; //primera línea informativa

'' + AsciiHtml( aDades[2] ) + "" +; //segunda línea informativa

'' + AsciiHtml( aDades[3] ) + "" +; // y así las líneas sucesivas

'' + AsciiHtml( aDades[4] )

:cConfirmButton := "Acceptar"

:Create()

cHtml := :FullHtml()

END WITH

No se si hay alguna manera mas "elegante" de hacerlo, pero no lo he sabido hacer de otra forma.

Viendo la clase seguro que tendríamos mas pistas por donde crear nuestros Alerts personalizados, pero de momento me sirve.

Un Saludo,

Xevi.

Este debate fue modificado 3 años, 6 meses por Xevi.

14-10-2020 a las 21:28 #1205

Alfredo Sanz
Superadministrador

Tienes las siguientes property

cTitle - Título en negrita
cText - Texto
cBackGroundColor - Color de fondo
cImageUrl - imagen a mostrar en la parte superior

Autor

Entradas

Mostrando 1 respuesta al debate

Debes estar registrado para responder a este debate.