Página 1 de 1

Função ALERT() não "respeita" SETMODE(25,40)(Gambi

Enviado: 07 Fev 2008 09:12
por Dércio_Luiz_Zanatta
Depois que compilei um sistema com Xharbour, pude notar que as msg mostradas com ALERT não respeitam a delimitação da tela qdo setada para 25 linhar e 40 colunas.. Ele mostra sempre como se estivesse usando 80 colunas.
Até já fiz outra função para substituir o Alert, mas os erros do do clipper continuam mostrando no alert.
alguém sabe como fazer para o alert respeitar o setmode(25,40) no xharbour ?

Enviado: 07 Fev 2008 13:09
por Dércio_Luiz_Zanatta
Depois de muito tentar achar a solução para o problema, cheguei a conclusão que isso é mais um BUG de compatibilidade entre o Xharbour X Clipper.
NÃO ESTOU RECLAMANDO DE NADA. Acho que seria muito bom para ser verdade poder usar os mesmos programas em clipper para compilar em 32 bits sem nenhum BUG.
Contornei esse problema criando uma função que simula o ALERT, com uma limitação para 40 colunas e alterei o ERRORSYS.PRG, colocando uma cláusula que continua usando o Alert qdo a tela tem mais de 40 colunas e a minha função quando tem menos de 40 colunas.
De qualquer forma, se alguém conseguir fazer o ALERT respeitar o número de colunas, por favor, poste aqui..
Um abraço.

Enviado: 07 Fev 2008 13:16
por Itamar M. Lins Jr.
Dércio_Luiz_Zanatta escreveu:Depois de muito tentar achar a solução para o problema, cheguei a conclusão que isso é mais um BUG de compatibilidade entre o Xharbour X Clipper.
NÃO ESTOU RECLAMANDO DE NADA. Acho que seria muito bom para ser verdade poder usar os mesmos programas em clipper para compilar em 32 Um abraço.
Ola!
Qual é a versão do xharbour ?

-----------------------8<-----------------------
2007-01-09 22:05 UTC-0300 Eduardo Fernandes <modalsist@yahoo.com.br>
* source/rtl/tget.prg
! fixed parsepict() method to protect ::lCleanzero value, used in
"@Z" picture.

* source/rtl/alert.prg
! fixed to use CT windows functions to display alert box, if any
is in use.
---------------------------->8---------------

Saudações
Itamar M. Lins Jr.

Enviado: 07 Fev 2008 16:51
por Dércio_Luiz_Zanatta
versão 0.99.70

Enviado: 07 Fev 2008 18:37
por sygecom
Fiz um pequeno teste aqui com a versão 9970 e funcionou tudo certinho, please demonstre um pequeno exemplo para nos poder compilar e ver o problema.

Enviado: 08 Fev 2008 12:39
por Dércio_Luiz_Zanatta
function main()
CLEAR

SETMODE(25,40)

ALERT("12345678901234567890123456789012345678901234567890123456789012345678901234567890")
SETMODE(25,80)
[/code]