REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.

Board index FiveWin para Harbour/xHarbour REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.
Posted: Tue Jan 29, 2008 12:56 PM

Buenos dias foro, esto me funciona perfecto en DIALOGOS NORMALES.
Pero en DIALOGOS CON FOLDER´s, NO. Que hago mal? Que puede estar errado?

STATIC lLigaBotao := .F.

Code: Select all Collapse

    REDEFINE GET aGet[32]  VAR  VRCUSTO2  ID 51 PICTURE "@K 999,999.99"      ;
             WHEN( lPesquisa )                                               ;
             OF oFld:aDialogs[1]        UPDATE                               ;
             FONT oFont     CURSOR oHand                                     ;
             COLORS CLR_BLACK, CLR_HCYAN                                     ;
             VALID( LIGA_BOTAO( oGravar ) )
             //-> Liga/Desliga o Botao <Gravar>


    REDEFINE BUTTONBMP oGravar ID 301 OF oDlg                            ;
             WHEN( lLigaBotao )                                          ;
             BITMAP "SALVAR"                                             ;
             ACTION( CLICK(), PGDNPRODU( lAppend, aGet, CADCLAES,        ;
                                                        CADPARAM,        ;
                                                        CADMOVES,        ;
                                                        CADPRODU, oDlg,  ;
                                                        oFld ) )

//
//-> Liga o Botao de Gravacao
//
STATIC FUNCTION LIGA_BOTAO( oGravar )

    //-> Desliga o Botao de Gravacao se for Seta Para Cima
    IF GETASYNCKEY( VK_UP )
        lLigaBotao := .F.
        oGravar:Refresh()
        RETURN( .T. )
    ENDIF
    //
    lLigaBotao := .T.
    oGravar:Refresh()
    //
RETURN( .T. )

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

RenOmaS

Posts: 205

Joined: Fri Oct 07, 2005 05:07 PM

REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.
Posted: Tue Jan 29, 2008 09:20 PM

Code: Select all Collapse

STATIC FUNCTION LIGA_BOTAO( oGravar )

    //-> Desliga o Botao de Gravacao se for Seta Para Cima
    IF GETASYNCKEY( VK_UP )
        //lLigaBotao := .F.
        //oGravar:Refresh()
        oGravar:Disable()
        RETURN( .T. )
    Else
        oGravar:Enable()
    ENDIF

ou pode utilizar oDlg:aEvalWhen()

Cumprimentos

Saludos/regards

RenOmaS

skype: americo.balboa

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

REFRESH() NO FUNCIONA EN UN BOTTON CON FOLDER.
Posted: Wed Jan 30, 2008 11:06 AM

RenOmaS wrote:

Code: Select all Collapse

STATIC FUNCTION LIGA_BOTAO( oGravar )

    //-> Desliga o Botao de Gravacao se for Seta Para Cima
    IF GETASYNCKEY( VK_UP )
        //lLigaBotao := .F.
        //oGravar:Refresh()
        oGravar:Disable()
        RETURN( .T. )
    Else
        oGravar:Enable()
    ENDIF

ou pode utilizar oDlg:aEvalWhen()

Cumprimentos

Gracias, RenOmaS.

Perfecto.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion