Boa Tarde,
Estou fazendo uma customização, a qual estou utilizando a EnchoiceBar.
Nessa EnchoiceBar, estou incluindo botões customizados, através do parametro abuttons da EnchoiceBar.
Porém todos os botões customizados, mesmo tendo espaço na EnchoiceBar, os botões aparecem dentro de "Outras Ações".
Existe uma forma de aparecer os botões customizados na EnchoiceBar ao lado dos botões padrões "Salvar" e "Fechar"?
Obrigado.
Cristian Regazzo
Cristian, Utilizando MVC você consegue fazer isso, e o usuário que esta usando a tela também consegue configurar do jeito que ele quiser.
Att,
Boa Tarde,
Obrigado pela resposta.
Porém a customização que estou fazendo não pode ser via MVC, devido as funções e gatilhos do campos do SX3 não estarem compatibilizados para o MVC.
Att,
Cristian Regazzo
Boa tarde Cristian,
Não é possível configurar isso pela função EnchoiceBar, o array de botões não possui essa opção.
Uma saída nesse tipo de situação é criar um tpanel logo no topo usável da msdialog que contém o enchoice, e nesse tpanel colocar os botões que desejar, assim fica bem próximo dos botões que seriam da enchoice mesmo e para o usuário fica com uma usabilidade semelhante.
DEFINE MSDIALOG oDlg1 TITLE OemToAnsi(_ctitulo) From 0,0 To aSize[6],aSize[5] PIXEL
oPanel := TPanel():New(30,0,'',oDlg1,, .T., .T.,, ,315,20,.T.,.T. ) oFont := TFont():New('Times New Roman',,-18,.T.)
@003,012 BUTTON "Efetivar" SIZE 060, 015 PIXEL OF oPanel ACTION (funcao1(11))
@003,090 BUTTON "Imprimir" SIZE 060, 015 PIXEL OF oPanel ACTION (funcao2(12))
ACTIVATE MSDIALOG oDlg1 ON INIT ( EnchoiceBar(oDlg1,{|| nOpca := 2,oDlg1:End()},{|| nOpca := 2,oDlg1:End()},,aBotoes), oPanel:Align:=CONTROL_ALIGN_TOP )
