Page 1 of 1
Se puede usar "negrita" en un msgstop?
Posted: 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
msgtop(" esta es una " + NEGRITA + " prueba." + NEGRITA, ".: Atención :.")
gracias
Re: Se puede usar "negrita" en un msgstop?
Posted: 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?
Posted: 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?
Posted: 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?
Posted: Sat Mar 09, 2024 3:43 pm
by Antonio Linares
Code: Select all | Expand
#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