Orlando FMC Posted April 13, 2015 Report Share Posted April 13, 2015 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 13, 2015 Report Share Posted April 13, 2015 No folder, você colocou o SYSTABCONTROL32? Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted April 13, 2015 Author Report Share Posted April 13, 2015 Não sei onde colocar isto, Kapiaba. Não seria no WS? Estou usando o PellesC. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 13, 2015 Report Share Posted April 13, 2015 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 Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted April 13, 2015 Author Report Share Posted April 13, 2015 \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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 13, 2015 Report Share Posted April 13, 2015 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 13, 2015 Report Share Posted April 13, 2015 Veja \samples\testfldm.* Quote Link to comment Share on other sites More sharing options...
Orlando FMC Posted April 14, 2015 Author Report Share Posted April 14, 2015 Em testfldm.prg não tem múltiplos get´s em uma mesma página. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.