FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Msginfo without line break
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Msginfo without line break
Posted: Tue Aug 01, 2023 06:34 PM

Hi,

Is there any way for msginfo not to wrap the line automatically?

Thanks!

Posts: 2706
Joined: Fri Oct 07, 2005 01:50 PM
Re: Msginfo without line break
Posted: Wed Aug 02, 2023 03:31 PM
To be honest with you .. I like to put my own page breaks in the message string so I know where the page break will be ..
Code (fw): Select all Collapse
Local Saying

Saying := "This is a long message to test the page Break"+CRLF
Saying += "and this is the start of the second line"

Msginfo( Saying )
Rick Lipkin
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Msginfo without line break
Posted: Wed Aug 02, 2023 05:34 PM
Code (fw): Select all Collapse
    LOCAL cMsg  := "ATENÇÃO USUÁRIO: -> CHAME O SUPERVISOR IMEDIATAMENTE!!!" ;
                                                                     + CRLF +;
                                                                     + CRLF +;
                   "ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO!  " ;
                                                                     + CRLF +;
                                                                     + CRLF +;
                   "ERRO FATAL DE REDE! TOME TODO O CUIDADO POSSIVEL!      " ;
                                                                     + CRLF +;
                   "IMPOSSIVEL CONTINUAR UTILIZANDO OS BANCOS DE DADOS!    " ;
                                                                     + CRLF +;
                   "VOCÊ PRECISA TIRAR TODOS OS USUÁRIOS DA REDE, AGORA!   " ;
                                                                     + CRLF +;
                   "TENTE REINDEXAR OS BANCOS SOMENTE PELO SERVIDOR!       " ;
                                                                     + CRLF +;
                   "CASO NÃO CONSIGA REINDEXAR OS BANCOS, SAIA DO PROGRAMA " ;
                                                                     + CRLF +;
                   "DESLIGUE OU REINICIE O SERVIDOR, E DEPOIS, VOCÊ PODERÁ " ;
                                                                     + CRLF +;
                   "REINDEXAR OS BANCOS DE DADOS.        ATENÇÃO MÁXIMA!!! " ;
                                                                     + CRLF +;
                   "VOU DESLIGAR ESTE PROGRAMA, AVISE A TODOS OS OUTROS    " ;
                                                                     + CRLF +;
                   "USUÁRIOS, PARA SAIREM IMEDIATAMENTE DA REDE. PERIGO!!! " ;
                                                                     + CRLF +;
                   "WARTIAGA...                                            "

   MsgStop( cMsg, "Problemas Na Rede ou no Computador, Cuidado!" )


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Re: Msginfo without line break
Posted: Wed Aug 02, 2023 06:19 PM
Rick Lipkin wrote:To be honest with you .. I like to put my own page breaks in the message string so I know where the page break will be ..
Code (fw): Select all Collapse
Local Saying

Saying := "This is a long message to test the page Break"+CRLF
Saying += "and this is the start of the second line"

Msginfo( Saying )
Rick Lipkin
Thank you Rick!
Posts: 253
Joined: Wed May 25, 2016 01:04 AM
Re: Msginfo without line break
Posted: Wed Aug 02, 2023 06:20 PM
karinha wrote:
Code (fw): Select all Collapse
    LOCAL cMsg  := "ATENÇÃO USUÁRIO: -> CHAME O SUPERVISOR IMEDIATAMENTE!!!" ;
                                                                     + CRLF +;
                                                                     + CRLF +;
                   "ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO! ERRO!  " ;
                                                                     + CRLF +;
                                                                     + CRLF +;
                   "ERRO FATAL DE REDE! TOME TODO O CUIDADO POSSIVEL!      " ;
                                                                     + CRLF +;
                   "IMPOSSIVEL CONTINUAR UTILIZANDO OS BANCOS DE DADOS!    " ;
                                                                     + CRLF +;
                   "VOCÊ PRECISA TIRAR TODOS OS USUÁRIOS DA REDE, AGORA!   " ;
                                                                     + CRLF +;
                   "TENTE REINDEXAR OS BANCOS SOMENTE PELO SERVIDOR!       " ;
                                                                     + CRLF +;
                   "CASO NÃO CONSIGA REINDEXAR OS BANCOS, SAIA DO PROGRAMA " ;
                                                                     + CRLF +;
                   "DESLIGUE OU REINICIE O SERVIDOR, E DEPOIS, VOCÊ PODERÁ " ;
                                                                     + CRLF +;
                   "REINDEXAR OS BANCOS DE DADOS.        ATENÇÃO MÁXIMA!!! " ;
                                                                     + CRLF +;
                   "VOU DESLIGAR ESTE PROGRAMA, AVISE A TODOS OS OUTROS    " ;
                                                                     + CRLF +;
                   "USUÁRIOS, PARA SAIREM IMEDIATAMENTE DA REDE. PERIGO!!! " ;
                                                                     + CRLF +;
                   "WARTIAGA...                                            "

   MsgStop( cMsg, "Problemas Na Rede ou no Computador, Cuidado!" )


Regards, saludos.
Thank you Karinha!

Continue the discussion