Classe: TMultiBtnCria um objeto do tipo múltiplos botões. NewMétodo construtor da classe.TMultiBtn(): New ( [ nRow], [ nCol], [ oWnd], [ bAction], [ nWidth], [ nHeight], [ cimgName], [ nOri], [ cMsg], [ nBtnPerLine] ) --> oObjeto Nome | Tipo | Descrição | Obrigatório | Referência | nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | oWnd | Objeto | Indica a janela ou controle visual onde o botão será criado. | | | bAction | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão. | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | cimgName | Caracter | Indica o nome da imagem que será inserida ao lado esquerdo do componente. | | | nOri | Numérico | Indica a coordenada (vertical/horizontal) do botão na janela. | | | cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão. | | | nBtnPerLine | Numérico | Indica a quantidade de botões por linha. | | |
oObjeto(objeto)- Retorna o objeto criado.
otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg,; {|x,y| Alert("Selecionado botão: "+Str(y,2)) },200,150,; 'Afastamento',0,'Mensagem',3 ) Adiciona um botão.TMultiBtn(): AddButton ( [ oNovoBotao] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | oNovoBotao | Objeto | Indica o botão que será criado. | | |
otMultiBtn:AddButton('Opção 01') SetFontsAltera a fonte do título e dos botões.TMultiBtn(): SetFonts ( [ cFonteTitulo], [ nSizeTitulo], [ cFonteBotoes], [ nSizeBotoes] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | cFonteTitulo | Caracter | Indica o nome da fonte que será utilizada no título. | | | nSizeTitulo | Numérico | Indica o tamanho da fonte no título. | | | cFonteBotoes | Caracter | Indica o nome da fonte que será utilizada nos botões. | | | nSizeBotoes | Numérico | Indica o tamanho da fonte no botão. | | |
otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10) Propriedade | Descrição | Tipo | bAction | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão. | Bloco de código |
#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,; {|x,y|Alert("Selecionado botão: "+Str(y,2)) },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') ACTIVATE DIALOG oDlg CENTERED Return Exemplo da classe TMultiBtn Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |