Se puede usar "negrita" en un msgstop?

[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

[Enrico Maria Giordano]

No se puede, as far as I know.

[Antonio Linares]

Gustavo,

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

[goosfancito]

Si podes pénelo para la proxima version

[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