Á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 8 Atual »

Classe: TBar

Cria um objeto do tipo barra de botões para a parte superior da janela.

TSrvObject -> TControl -> TBar


New

Método construtor da classe.


TBar(): New ( [ oWnd], [ nBtnWidth], [ nBtnHeight], [ l3D], [ uParam5], [ oCursor], [ cResource], [ lNoAutoAdjust] ) --> oObjeto


 

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde objeto será criado.  
nBtnWidthNuméricoIndica a largura do botão contido na barra.  
nBtnHeightNuméricoIndica a altura do botão contido na barra.  
l3DLógicoIndica se a barra de botões tem o formato tridimensional (3D).  
uParam5CaracterCompatibilidade.  
oCursorObjetoIndica o tipo de ponteiro do mouse ao posicioná-lo sobre a barra de botões.  
cResourceCaracterIndica a imagem do recurso que será inserida como fundo da barra de botões.  
lNoAutoAdjustLógicoIndica se ajusta, automaticamente, a altura e largura do objeto.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

oTBar := TBar():New( oDlg,25,32,.T.,,,,.F. )

 

SetButtonAlign

Define o alinhamento dos botoes da barra.

 

TBar():SetButtonAlign( nAlign )

 

 

NomeTipoDescriçãoObrigatórioReferência
nAlignNumericoIndica a direção usada no alinhamento dos botões.x 

 

oTBar:SetButtonAlign( CONTROL_ALIGN_RIGHT )

 

 

Exemplo
#INCLUDE "TOTVS.CH"

USER FUNCTION TBar()

	DEFINE DIALOG oDlg TITLE "Exemplo TBar" FROM 180,180 TO 550,700 PIXEL
		oTBar := TBar():New( oDlg,25,32,.T.,,,,.F. )

		oTBtnBmp1  := TBtnBmp2():New( 00, 00, 35, 25, 'copyuser';
			,,,,{||Alert('TBtnBmp1')}, oTBar, 'msGetEx',,.F.,.F.)
		oTBtnBmp2  := TBtnBmp2():New( 00, 00, 35, 25, 'critica';
			,,,,{||},oTBar,'Critica',,.F.,.F. )
		oTBtnBmp3  := TBtnBmp2():New( 00, 00, 35, 25, 'bmpcpo';
			,,,,{||},oTBar,'PCO'    ,,.F.,.F. )
		oTBtnBmp4  := TBtnBmp2():New( 00, 00, 35, 25, 'preco';
			,,,,{||},oTBar,'Preço'  ,,.F.,.F. )

	ACTIVATE DIALOG oDlg CENTERED

RETURN

 

Exemplo da classe TBar

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

 

  • Sem rótulos