TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Atual »

Classe: TMultiBtn

Cria um objeto do tipo múltiplos botões.

Hierarquia

TSrvObject -> TControl -> TMultiBtn


Construtores
New

New

Método construtor da classe.


Sintaxe

TMultiBtn(): New ( [ nRow], [ nCol], [ oWnd], [ bAction], [ nWidth], [ nHeight], [ cimgName], [ nOri], [ cMsg], [ nBtnPerLine] ) --> oObjeto


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
oWndObjetoIndica a janela ou controle visual onde o botão será criado.  
bActionBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
cimgNameCaracterIndica o nome da imagem que será inserida ao lado esquerdo do componente.  
nOriNuméricoIndica a coordenada (vertical/horizontal) do botão na janela.  
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão.  
nBtnPerLineNuméricoIndica a quantidade de botões por linha.  

 

Retorno
oObjeto
    (objeto)
  • Retorna o objeto criado.

Exemplos
otMultiBtn := tMultiBtn():New( 01,01,'Titulo',oDlg,;              {|x,y| Alert("Selecionado botão: "+Str(y,2)) },200,150,;              'Afastamento',0,'Mensagem',3 )

Métodos
AddButton

AddButton

Adiciona um botão.


Sintaxe

TMultiBtn(): AddButton ( [ oNovoBotao] ) -->


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
oNovoBotaoObjetoIndica o botão que será criado.  

 


Exemplos
otMultiBtn:AddButton('Opção 01')
SetFonts

SetFonts

Altera a fonte do título e dos botões.


Sintaxe

TMultiBtn(): SetFonts ( [ cFonteTitulo], [ nSizeTitulo], [ cFonteBotoes], [ nSizeBotoes] ) -->


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cFonteTituloCaracterIndica o nome da fonte que será utilizada no título.  
nSizeTituloNuméricoIndica o tamanho da fonte no título.  
cFonteBotoesCaracterIndica o nome da fonte que será utilizada nos botões.  
nSizeBotoesNuméricoIndica o tamanho da fonte no botão.  

 


Exemplos
otMultiBtn:SetFonts('Tahoma',16,'Tahoma',10)

Propriedade

 

PropriedadeDescriçãoTipo
bActionIndica 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

 


Exemplos
#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

Preview
Exemplo da classe TMultiBtn

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos