O problema é que eu não uso set cursor off em nenhum momento. Então, não faço ideia do que possa estar causando o sumiço do cursor.
Testei com setcursor(nCursor), também não resolveu.
Browse com ADO
Enviado: 05 Set 2020 13:00
por Vlademiro
Nesse caso, a única coisa que me ocorreu é vc estar usando várias libs, tipo hmg, gtwvt, gtwvw, etc. Eu não conheço essas libs , só a hmg mas nunca misturei.
Eu acho que é isso, mas não tenho experiência, é só achismo mesmo.
Nem sei se preciso de todas elas, vou acrescendo à medida que surge uma nova função que preciso, quase sempre por recomendação de alguém aqui do fórum.
Será que o problema poderia estar sendo causado por alguma dessas?
Browse com ADO
Enviado: 06 Set 2020 00:07
por Vlademiro
Eu me referi a libs gráficas, mas pelo visto vc não está usando...
Browse com ADO
Enviado: 06 Set 2020 09:24
por Vlademiro
Realizei um pequeno teste mas vi que o mesmo programa se comporta diferente no Clipper 5.2e e no Harbour 3.2
O teste :
Um programa simples que irá desativar o cursor de dentro do READ (dentro de uma função valid)
PROCEDURE MAIN
LOCAL GetList := {}
LOCAL cNome := SPACE(40)
LOCAL cPessoa := SPACE(1)
LOCAL cObs := cObs2 := SPACE(40)
SET( _SET_CURSOR , 0 )
#ifdef __PLATFORM__WINDOWS
? "Setmode : " , SetMode(50,150)
#endif
CLS
@ 05,03 SAY "Nome : " GET cNome VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
@ 07,03 SAY "Pessoa : " GET cPessoa VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
@ 09,03 SAY "Observacao : " GET cObs VALID TESTCURSOR()
@ 11,03 say "Outra obs : " GET cObs2 VALID ( ALERT( "O CURSOR E " + str(SET( _SET_CURSOR) ) ) , .T. )
SET( _SET_CURSOR , 1 )
ALTD()
READ
SET( _SET_CURSOR , 0 )
RETURN
FUNCTION TESTCURSOR
ALERT("VOU APAGAR CURSOR")
SET( _SET_CURSOR , 0 )
RETURN .T.
1. No Harbour ele não desativa o Cursor (harbour 3.2 32bits compilado com gcc 5.3)
2. No Clipper 5.2e ele desativa o cursor de dentro do Valid conforme o esperado.
Nota: eu compilei com o MS-DOS não virtualizado, dei o boot por um pendrive.
Conclusão: o comportamento de um cursor de dentro de um get funciona diferente no harbour. Será que é a versão do Harbour que eu compilei aqui ? Alguém poderia testar esse exemplo que eu coloquei só para confirmar ?
Browse com ADO
Enviado: 06 Set 2020 21:19
por cjp
Eu testei aqui, compilando com o Harbour. No próprio programa-teste não tirou o cursor, mas tirou o cursor do DOS depois de fechado. Era isso?
Browse com ADO
Enviado: 06 Set 2020 21:48
por Vlademiro
Não. No clipper ele tira o cursor dentro da própria aplicação. No Harbour ele não consegue tirar o cursor dentro da aplicação.
Browse com ADO
Enviado: 06 Set 2020 22:40
por JoséQuintas
Esqueça o SET CURSOR OFF
Talvez na função de usuário do tbrowse colocar SET CURSOR ON, apesar que procurei nos fontes do tbrowse e não achei nada sobre cursor.
Lembro que no Clipper o cursor era desligado no tbrowse, é possível que o Harbour faça igual.
Ou mais ainda:
O que fez de diferente nesse tbrowse? provavelmente tem a ver.
Se foi função de usuário.... é colocar o SET CURSOR ON lá.
Browse com ADO
Enviado: 06 Set 2020 23:02
por cjp
Não tenho função de usuário nesse tbrowse.
Mas tenho sim várias funções chamadas nele, usando if nkey==.
Mas em nenhuma delas eu uso set cursor off. Teria qualquer outra coisa que causaria o sumiço do cursor para eu procurar?
Browse com ADO
Enviado: 06 Set 2020 23:25
por Vlademiro
CJP, olha esse vídeo com o programa compilado em clipper 5.2e
Com Harbour não funciona. No Harbour o setcursor não funciona dentro de gets, testei no linux também. Agora quando saimos do programa o cursor do Console do windows "some".
Browse com ADO
Enviado: 06 Set 2020 23:28
por Vlademiro
cjp escreveu:Não tenho função de usuário nesse tbrowse.
Mas tenho sim várias funções chamadas nele, usando if nkey==.
Mas em nenhuma delas eu uso set cursor off. Teria qualquer outra coisa que causaria o sumiço do cursor para eu procurar?
Não conheço outra forma. Muito esquisito isso...
Browse com ADO
Enviado: 07 Set 2020 01:23
por cjp
Pois é, não sei o que fazer.
Browse com ADO
Enviado: 07 Set 2020 09:51
por JoséQuintas
cjp escreveu:Mas em nenhuma delas eu uso set cursor off. Teria qualquer outra coisa que causaria o sumiço do cursor para eu procurar?
Pense ao contrário: o tbrowse retira o cursor
Você É OBRIGADO a colocar SET CURSOR ON
Browse com ADO
Enviado: 07 Set 2020 11:58
por cjp
Mas veja que estou colocando o set cursor on (ou o setcursor(nCursor)) no início, e mesmo assim o cursor não está aparecendo logo de início, antes mesmo de teclar qualquer tecla no tbrowse (ou seja, antes mesmo de ele executar qualquer função chamada de dentro do tbrowse). Como pode isso?
Browse com ADO
Enviado: 07 Set 2020 14:38
por JoséQuintas
Aí complicou.
Lembra de alguma alteração recente?
Procure em todos os fontes se colocou pra teste "SET CURSOR"
De repente começou a colocar SET CURSOR ON e SET CURSOR OFF, e acabou deixando em algum lugar.
Ou wvt_SetGui() ou outra coisa.
Nota: pelo editor de textos, geralmente tem a opção de procurar em todos os fontes de uma vez.