Browse com ADO

[cjp]

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.

[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.

[cjp]

De fato uso várias libs:

-lxhb
-lhbwin
-lhbtip
-lhbct
-lhbHPdf
-lhbZebra
-lhbmisc
-llibmysql
rddsql.hbc
sddodbc.hbc
hbssl.hbc
hbtip.hbc

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?

[Vlademiro]

Eu me referi a libs gráficas, mas pelo visto vc não está usando...

[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)

Eis o programa :

Código: Selecionar todos

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 ?

[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?

[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.

[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á.

[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?

[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".

[Vlademiro]

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...

[cjp]

Pois é, não sei o que fazer.

[JoséQuintas]

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

[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?

[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.