'TAB' e 'ENTER' não funcionam no FOLDER

[Orlando FMC]

Senhores,

Verifiquei, que, em minha rotina, as teclas 'TAB' e 'ENTER' não funcionam no FOLDER.

Observei o mesmo em outras rotinas minhas.

Testei a mesma rotina fora do folder, e funcionou normal.

- 'TAB' e 'ENTER' NÃO FUNCIONAM PARA MUDAR DE CAMPO.

- O cursor some, mas não sai do campo.

- 'SHIFT+TAB' (sentido inverso) funciona normal.

Será por alguma configuração do PellesC?

Não consegui anexar a DLL aqui. Ao tentar, recebi a mensagem: "Erro Você não tem permissão para fazer upload deste tipo de arquivo"

Coloquei a DLL neste link:

https://www.dropbox.com/s/vocn0a45607tx3t/Teste_Pelles.DLL?dl=0

Vejam o código:

#include "fivewin.ch"

#include "FOLDER.Ch"

FUNCTION MAIN()

SetBalloon( .t. ) // tooltip tipo baloon

ARQ="Teste_Get_Folder"

aMatStru={;

{ "CAMPO1____" , "C" , 5 , 0 } ,; //

{ "CAMPO2____" , "C" , 5 , 0 } ,; //

{ "CAMPO3____" , "C" , 5 , 0 } ,; //

{ "CAMPO4____" , "C" , 5 , 0 } ,; //

{ "CAMPO5____" , "C" , 5 , 0 } ,; //

{ "CAMP_MEMO_" , "M" , 10 , 0 } }

IF !FILE(ARQ+".dbf")

MSGWAIT("Criando o arquivo","",2)

DbCreate(ARQ,aMatStru)

ENDIF

USE &ARQ

IF (ARQ)->(RECCOUNT())=0

MSGINFO("No browse a seguir, insira alguns registros, para uso no teste.","ATENÇÃO!!!")

BROWSE(ALIAS())

ENDIF

DEFINE FONT ofCOUR12 NAME "Courier New" SIZE 00,-12 // bold // UNDERLINE

DLL1="Teste_Pelles.DLL"

SET RESOURCES TO DLL1 // , "BWCC.DLL"

DEFINE DIALOG dAA NAME "AA_FLD0" // OF oWnd // COLOR "B/W" FONT ofDialog

dAA:LHELPICON := .F.

REDEFINE BTNBMP oBSair RESOURCE "_SAIR" ID 9999 OF dAA ACTION dAA:END()

oBSair:ctooltip:={"Fechar esta janela","SAIR"}

REDEFINE FOLDER oFld ID 5000 OF dAA ;

; // ON CHANGE AA_MUDA_FOLDER(nOption,nOldOption);

PROMPT "&FOLDER 01", "&FOLDER 02" ;

DIALOGS "AA_FLD1" , "AA_FLD2"

REDEFINE SAY o4009 PROMPT TRAN(RECNO(),"####") ID 4009 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4001 VAR (ARQ)->CAMPO1____ ID 4001 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4002 VAR (ARQ)->CAMPO2____ ID 4002 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4003 VAR (ARQ)->CAMPO3____ ID 4003 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4004 VAR (ARQ)->CAMPO4____ ID 4004 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4005 VAR (ARQ)->CAMPO5____ ID 4005 OF oFld:aDialogs[1] Font ofCOUR12

REDEFINE GET o4006 VAR (ARQ)->CAMP_MEMO_ ID 4006 OF oFld:aDialogs[1] Font ofCOUR12 MEMO

REDEFINE Button o4008 ID 4008 OF oFld:aDialogs[1] ACTION (BROWSE(ALIAS()), o4001:REFRESH(), o4002:REFRESH(), o4003:REFRESH(), o4004:REFRESH(), o4005:REFRESH(), o4006:REFRESH(), o4009:REFRESH() )

ACTIVATE DIALOG dAA

SET RESOURCES TO

CLOSE ALL

SYSREFRESH()

CANCEL

RETURN NIL

[kapiaba]

No folder, você colocou o SYSTABCONTROL32?

[Orlando FMC]

Não sei onde colocar isto, Kapiaba. Não seria no WS? Estou usando o PellesC.

[kapiaba]

Veja no \samples\TESTFLD?.RC tem o SystabControl32, quem sabe não te ajuda. Não entendo de Pellesc.exe, melhor esperar o pessoal que manja.

Em tempo: Systacontrol32, está na classe Folder.prg

[Orlando FMC]

\samples\testfld4 e \samples\testfld6 apresentam os mesmos problemas:

- 'TAB' e 'ENTER' NÃO FUNCIONAM PARA MUDAR DE CAMPO.

- O cursor some, mas não sai do campo.

- 'SHIFT+TAB' (sentido inverso) funciona normal.

[kapiaba]

Leia o código, VALID .NOT. EMPTY(...) não passa mesmo.

Agora se voce desvia o VALID para uma função, voce controla com o comando VK_TAB

IF GETKEYSTATE( VK_TAB ) .OR. GETKEYSTATE( VK_RETURN )  // +- isso.
   RETURN( .T. )
ENDIF

[kapiaba]

Veja \samples\testfldm.*

[Orlando FMC]

Em testfldm.prg não tem múltiplos get´s em uma mesma página.