Segmento:

Recursos Humanos

Função:

PONA130.PRX

Solução/Implementação:

Ponto de entrada para inclusão de novos botões dentro de ações relacionadas.

    IF ExistBlock( "PN130BUTTON") 
           oAuxBar:=ExecBlock("PN130BUTTON",.F.,.F. )

            If oAuxBar <> NIL
                oAuxBar:lVisible:=.F.
                aButtonAux := oAuxBar:OPARENT:ACONTROLS

               FOR I:=1 TO LEN(aButtonAux)
                    If type('aButtonAux['+Alltrim(str(I))+']:bAction') == "B" .AND. !Empty(aButtonAux[I]:cTitle)
                        AADD( aButtons, {NIL, aButtonAux[I]:bAction, aButtonAux[I]:CCAPTION,aButtonAux[I]:CCAPTION,{|| .T.}} )
                    ENDIF
                NEXT
            EndIf
    Endif 

Exemplo de uso:

User Function PN130BUTTON()

Local oBotao := TButton():New( 110 , 100 , "&"+OemToAnsi("Descrição"),NIL,,{|| ACAO()}, 060 , 012 , NIL , NIL , NIL , .T. )  
Return oBotao

Static Function ACAO()

Alert("Teste do Botão")

Return