TMultiBtn com Array de Funções

Nesse post eu vou mostrar como usar o TMultiBtn Passando um array de funções. Isso pode ser muito útil quando não sabemos quantos botões serão necessários, e dessa forma pode mos montar uma lista de botões em tempo de execução.

Segue abaixo o exemplo:

Local _aMenu := {}
Local _cExec := ""

/*
Aqui você vai popular o array
colocando na primeira posição o Nome do botão
e na segunda posição a chamada da função
*/

aAdd(_aMenu,{"Nome da Função","U_MINHAFUNCAO()"})

DEFINE DIALOG oDlg TITLE "Exemplo TMultiBtn" FROM 180,180 TO 550,700 PIXEL 
otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg, {|x,y| (_cExec := _aMenu[y,2], &_cExec ) },200,150, 'Afastamento',0,'Mensagem',3 )
otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10) 
For a:=1 To Len(_aMenu) 
 otMultiBtn:AddButton(_aMenu[a,1])
Next a
ACTIVATE DIALOG oDlg CENTERED