Classe: TMultiBtn
Cria um objeto do tipo múltiplos botões.
TSrvObject -> TControl -> TMultiBtn
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 )
AddButton
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas