Page 1 of 1

Se puede usar "negrita" en un msgstop?

PostPosted: Fri Mar 08, 2024 10:29 am
by goosfancito
Hola. Si quiero resaltar parte de una cadena que muestro en un msgstop, como puedo hacerlo sin tener que crear un dialogo?

Code: Select all  Expand view
msgtop(" esta es una " + NEGRITA + " prueba." + NEGRITA, ".: Atención :.")

gracias

Re: Se puede usar "negrita" en un msgstop?

PostPosted: Fri Mar 08, 2024 2:48 pm
by Enrico Maria Giordano
No se puede, as far as I know.

Re: Se puede usar "negrita" en un msgstop?

PostPosted: Fri Mar 08, 2024 7:51 pm
by Antonio Linares
Gustavo,

Tienes que crear tu propio diálogo y diseñarlo según tus necesidades

Re: Se puede usar "negrita" en un msgstop?

PostPosted: Sat Mar 09, 2024 3:11 pm
by goosfancito
Si podes pénelo para la proxima version :)

Re: Se puede usar "negrita" en un msgstop?

PostPosted: Sat Mar 09, 2024 3:43 pm
by Antonio Linares
Code: Select all  Expand view
#include "FiveWin.ch"

function Main()

    MsgStop( "This is a test" )

return nil

static function MsgStop( cMsg )

    local oDlg, oFont  

    DEFINE FONT oFont NAME "Verdana" BOLD SIZE 0, -12

    DEFINE DIALOG oDlg TITLE "Stop" SIZE 200, 100

    @ 0.5, 1 SAY cMsg FONT oFont

    @ 1.5, 6 BUTTON "Ok" OF oDlg ACTION oDlg:End()

    ACTIVATE DIALOG oDlg CENTERED

    oFont:End()

return nil