Clipper On Line • Ver Tópico - Quebra de Linha MSGBox e familia

Quebra de Linha MSGBox e familia

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Quebra de Linha MSGBox e familia

Mensagempor rubens » 17 Jul 2014 13:34

Boa tarde...
Existe alguma maneira de fazer a quebra de linha na MSGBox e família, do jeito que é feito no Alert com o ponto-e-vírgula?
No Alert:
Alert('Primeira Linha ; Segunda Linha ; Terceira Linha')


Tõ fazendo no msgbox mas tenho que inserir uma quebra de linha

Public Quebra := chr(13) + chr(10)
MsgBox( 'Primeira Linha'+Quebra+'Segunda Linha'+Quebra+'Terceira Linhas')

Se tiver algum caractere especial fica mais fácil né ?!?!?

Obrigado

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Quebra de Linha MSGBox e familia

Mensagempor Pablo César » 17 Jul 2014 14:08

Não sei se entendi bem. Mas se for isto espero que te ajude:

#include <hmg.ch>

Function Main()
MsgBox( 'Primeira Linha'+CRLF+'Segunda Linha'+CRLF+'Terceira Linha')

MsgBox(StrTran('Primeira Linha ; Segunda Linha ; Terceira Linha'," ; ",CRLF))
Return Nil


A variável Quebra, veja que eu a removi. Na HMG e creio que na Minigui Ext também já possui a constante CRLF.
Daí não precisa cria outra igual.

Obs.: Apague o outro tópico que saiu duplicado Rubens. Só você e o Toledo podem. Atente para o "x" que tem no seu segundo tópico, clique nele e confirme para apagá-lo.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes

Quebra de Linha MSGBox e familia

Mensagempor rubens » 17 Jul 2014 15:53

Certo Pablo...

Com esta linha posso criar uma função tipo

Msg( cTexto )

e receber o Texto e usar a função que você postou...

Function Msg( cTexto ) 
MsgBox(StrTran(cTexto," ; ",CRLF))
Return nil


Daí não terei que alterar todas msgs do prg.

Obrigado...

p.s. Me desculpem pelo segundo post... não sei o que aconteceu... não foi intencional

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

Quebra de Linha MSGBox e familia

Mensagempor Pablo César » 17 Jul 2014 18:04

Isso mesmo Rubens, captou a ideia !
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar de usuário

Pablo César
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 5312
Data de registro: 31 Mai 2006 10:22
Cidade/Estado: Curitiba - Paraná
Curtiu: 142 vezes
Mens.Curtidas: 152 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro