Existe algo tipo o DwnMsg() com parametros ?

[lugab]

Ola , amigos.

Gosto de deixar a área de digitação livre para os usuários, por isso uso muito a dwnmsg() , que usa a última e inútil linha da tela, pra fazer o programa passar informações a ele.

Pra que eu continuo seguindo essa filosofia de trabalho, gostaria de saber se existe alguma forma de exibir o tradiconal "CONFIRMA S?N ?" na mesma linha usada pelo Dwnmsg() , recebendo de volta a resposta do digitador ?

Se não existir uma solução, talvez só me reste usar algo do tipo Dwnmsg("Confirma S/N ?") em conjunto com o inkey() da vida, mas torço para que exista algo e que os amigos compartilhem comigo

Grato,

Gabriel

[Toledo]

Segue um exemplo do que você pode fazer:

Código: Selecionar todos

cls
if CONFMSG("Confirma (S/N)?","SN","N")="S"
 Alert("Confirmou")
else
 Alert("Nao Confirmou")
endif
retu

PROC CONFMSG(cMsg,cOpcoes,cDef)
***********************************************
*cMsg = Mensagem que sera mostrada
*cOpcoes = Opcoes permitidas na confirmação da mensagem
*cDef = Conteudo inicial (default) do GET
************************************************
Local cRet:=cDef, nLinha:=MaxRow()-1, nCol:=MaxCol()+1
Local nTam:=len(cMsg)+len(cDef)+1
@ nLinha,int((nCol-nTam)/2) Say cMsg Get cRet Pict "@!" Valid(cRet $ cOpcoes)
Read
if lastkey()=27
 cRet:=SPAC(len(cDef))
endif
RETU (cRet)

Abraços,

[lugab]

Muito, bom, Toledo, o código funcionou perfeito no meu Vlib

Obrigadíssimo !

[lugab]

Ressucitando, o tpc só pra perguntar uma coisa.

No Harbour 2.0, qual o nome da lib onde encontro o DwnMsg() ?

Grato.

Gabriel

[Toledo]

Gabriel, a função DwnMsg() é da VisualLib (biblioteca para Clipper). No tópico abaixo você pode encontrar o arquivo fonte desta biblioteca convertida para xHarbour, mas acho que pode ser usada com Harbour sem problema algum:

https://pctoledo.org/forum/viewto ... 283#p53283

Qualquer outra dúvida sobre a VisualLib para Harbour, poste na seção Harbour.

Abraços,

[lugab]

Muito boooom, Toledo.

Muito obrigado, mais uma vez.

Gabriel