Jump to content
Fivewin Brasil

Orlando FMC

Membros
 View Profile  See their activity

  • Posts

    208

  • Joined

  • Last visited

  • Days Won

    1

 Content Type 

Posts posted by Orlando FMC

  6. Caps Lock ativada

    in Programação

    Posted

    Tem jeito de identificar, e informar na barra de tarefas se a tecla CAPS LOCK está ativada?

    Ao fazer login, para digitar a senha do usuário, o windows 7 avisa se ela está ativada: "Tecla Caps Lock ativada".

    A minha máquina não tem nenhum led indicador. Às vezes, para digitar uma senha, preciso antes digitar em outro local para saber o estado de Caps Lock.

    Acho que esta questão não está no local adequado, mas, não encontrei o ideal.

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

    in Programação

    Posted

    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

  19. A ordem dos #INCLUDE altera a compilação?

    in Programação

    Posted

    Mestres,


    Tenho vários sistemas funcionando, com uma estrutura sempre parecida com a seguinte:



    Agenda.PRG // programa principal

    A.PRG // diversas Procedures / funções do programa específico

    B.PRG // diversas Procedures / funções do programa específico

    C.PRG // diversas Procedures / funções do programa específico

    D.PRG // diversas Procedures / funções do programa específico

    E.PRG // diversas Procedures / funções do programa específico

    ARQS.PRG // estruturas dos arquivos de dados (.dbf)

    C:\APLIC\FUNCOES_INI.PRG // diversas funções de inicialização comuns a todos os sistemas

    C:\APLIC\FUNCOES_ACE.PRG // diversas funções acessórias comuns a todos os sistemas

    DSAY.PRG


    No final do programa principal (no caso, AGENDA.PRG), coloco (todos os sistemas são assim):


    #INCLUDE "C:\APLIC\FUNCOES_INI.PRG"

    #INCLUDE "C:\APLIC\FUNCOES_ACE.PRG"

    #INCLUDE "DSAY.PRG"

    #INCLUDE "ARQS.PRG"

    #INCLUDE "A.PRG"

    #INCLUDE "B.PRG"

    #INCLUDE "C.PRG"

    #INCLUDE "D.PRG"

    #INCLUDE "E.PRG"


    procedure AppSys // XBase++ absurd requirement

    return



    De alguns dias para cá, não sei por que, para este programa (AGENDA), está dando problema na compilação:


    Error: Unresolved external ´_HB_FUN_DL_ANV´ referenced from C:\APLIC\AGENDA13\AGENDA.OBJ

    Error: Unresolved external ´_HB_FUN_FP´ referenced from C:\APLIC\AGENDA13\AGENDA.OBJ


    As duas funções (DL_ANV e FP) exitem e estão respectivamente no programas D.PRG e E.PRG.


    Se eu mudo a ordem dos #INCLUDE, como a seguir,


    #INCLUDE "C:\APLIC\FUNCOES_INI.PRG"

    #INCLUDE "C:\APLIC\FUNCOES_ACE.PRG"

    #INCLUDE "DSAY.PRG"

    #INCLUDE "ARQS.PRG"

    #INCLUDE "D.PRG" // <--- mudei de lugar

    #INCLUDE "A.PRG"

    #INCLUDE "B.PRG"

    #INCLUDE "E.PRG" // <--- mudei de lugar

    #INCLUDE "C.PRG"


    assim a compilação transcorre normalmente, no entanto, as funções que estão em C.PRG não funcionam.


    Isto está acontecendo só agora, e só neste sistema (AGENDA).


    Pergunta-se:

    1 - Por que a ordem dos #INCLUDE altera a compilação?

    2 - Por que as funções de C.PRG deixaram de funcionar?


  25. ComboBox em um Listbox

    in Programação

    Posted

            FOR I=5 TO 6   // colunas 5 e 6
              oBrw:aCols[ I]:lHide := .t.    // esconde
            NEXT I

    ...
            FOR I=5 TO 6  // colunas 5 e 6
              oBrw:aCols[ I]:lHide := .n.    // mostra
            NEXT I
     

×
×
  • Create New...