Msginfo without line break

Msginfo without line break

Postby wartiaga » Tue Aug 01, 2023 6:34 pm

Hi,

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

Thanks!
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: Msginfo without line break

Postby Rick Lipkin » Wed Aug 02, 2023 3: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: Select all  Expand view  RUN


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
User avatar
Rick Lipkin
 
Posts: 2666
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: Msginfo without line break

Postby karinha » Wed Aug 02, 2023 5:34 pm

Code: Select all  Expand view  RUN

    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
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Msginfo without line break

Postby wartiaga » Wed Aug 02, 2023 6: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: Select all  Expand view  RUN


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!
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am

Re: Msginfo without line break

Postby wartiaga » Wed Aug 02, 2023 6:20 pm

karinha wrote:
Code: Select all  Expand view  RUN

    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!
wartiaga
 
Posts: 212
Joined: Wed May 25, 2016 1:04 am


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 71 guests