O cursor não aparece com inkey(0)Este código que você postou não tem nenhum comando get, nem read.
Como assim funcionou com o inkey?
Código: Selecionar todos
do while .t.
... say "senha" ...
nKey := inkey(0)
IF K_ESC ...
Código: Selecionar todos
#include "inkey.ch"
Function Main()
Local cOpcao := "N", nCursor
nCursor := SetCursor( 0 )
Do While cOpcao = "N" .Or. LastKey() = K_ESC
Clear Screen
@ 04,05 Say "Pressione S para Sair:" Get cOpcao Picture "@!" Valid ( cOpcao $ "SN" )
Read
EndDo
SetCursor( nCursor )
Return Nil
GETSYS.rarAgradeço a resposta, vou testar com este getsys que voce enviou.Jairo Maia escreveu:Olá pessoal,
Itamar, tem razão. Compilando com o GetSys.Prg do Harbour SetCursor( 0 ) não tem efeito. O GetSys original deve ativar o cursor automaticamente em GET. Em Get ele sempre está visível.
Mas para exemplo, se compilar esse código abaixo com esse GetSys.Prg o cursor não aparece, usando a compilação sem ele o compilador usa o do Harbour e aparece. O GetSys que uso também é personalizado, então SetCursor( 0 ) desabilita o cursor mesmo em Gets quando quero.
O GetSys.Prg em anexo, acho que é do Clipper, não tenho certeza.Código: Selecionar todos
#include "inkey.ch" Function Main() Local cOpcao := "N", nCursor nCursor := SetCursor( 0 ) Do While cOpcao = "N" .Or. LastKey() = K_ESC Clear Screen @ 04,05 Say "Pressione S para Sair:" Get cOpcao Picture "@!" Valid ( cOpcao $ "SN" ) Read EndDo SetCursor( nCursor ) Return Nil