TMultiBtn

  #include "TOTVS.CH"
  User Function TMultiBtn() 

  DEFINE DIALOG oDlg TITLE "Exemplo TMultiBtn" FROM 180,180 TO 550,700 PIXEL

   otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg,,200,150, 'Afastamento',0,'Mensagem',3 )
   otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10) 
   otMultiBtn:AddButton('Opção 01')
   otMultiBtn:AddButton('Opção 02')
   otMultiBtn:AddButton('Opção 03')
   otMultiBtn:AddButton('Opção 04')
   otMultiBtn:AddButton('Opção 05')
   otMultiBtn:bAction := {|x,y|Alert("Click no botão: "+Str(y,1)) }

  ACTIVATE DIALOG oDlg CENTERED 
  Return