FT550BUT

Descrição

Documentação do ponto de entrada para adicionar botões do usuário.

Observações

Está presente na função FT550BUT()

Exemplos

#INCLUDE "PROTHEUS.CH"
User Function FT550BUT()
Local oBtn
Local aButtons := {}
DEFINE MSDIALOG AEval TITLE "Teste EnchoiceBar" FROM 000,000 TO 400,600 PIXEL OF;
oMainWnd
AADD( aButtons, {"HISTORIC", {|| TestHist()}, "Histórico...",;"Histórico",{|| .T.}} )
@ -15,-15 BUTTON oBtn PROMPT "..." SIZE 1,1 PIXEL OF AEval
ACTIVATE MSDIALOG AEval ;
ON INIT (EnchoiceBar(AEval,{||lOk:=.T.,AEval:End()},{||AEval:End()},,@aButtons))
Return

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus 10 e 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Retorno

AADD( aButtons, {"HISTORIC", {|| TestHist()}, "Histórico...",;
"Histórico",{|| .T.}} )

Eventos de chamada do Ponto de Entrada

If ExistBlock( "FT550BUT" )
aUsButtons := ExecBlock( "FT550BUT", .F., .F. )
AEval( aUsButtons, { |x| AAdd( aButtons, x ) } )
EndIf

Variáveis

aUsButtons := ExecBlock/ AEval.

Programa Fonte

FINA550