Classe: TMultiBtn
Cria um objeto do tipo múltiplos botões.
New
Mé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')
SetFonts
Altera 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