FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Se puede usar "negrita" en un msgstop?
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Se puede usar "negrita" en un msgstop?
Posted: Fri Mar 08, 2024 10:29 AM
Hola. Si quiero resaltar parte de una cadena que muestro en un msgstop, como puedo hacerlo sin tener que crear un dialogo?
Code (fw): Select all Collapse
msgtop(" esta es una " + NEGRITA + " prueba." + NEGRITA, ".: Atención :.")
gracias
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Se puede usar "negrita" en un msgstop?
Posted: Fri Mar 08, 2024 02:48 PM

No se puede, as far as I know.

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Se puede usar "negrita" en un msgstop?
Posted: Fri Mar 08, 2024 07:51 PM

Gustavo,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Se puede usar "negrita" en un msgstop?
Posted: Sat Mar 09, 2024 03:11 PM
Si podes pénelo para la proxima version :)
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Se puede usar "negrita" en un msgstop?
Posted: Sat Mar 09, 2024 03:43 PM
Code (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion