Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle

...

Classe TBar

Classe

...

TBar

...

Barra de botões para a parte superior da interface.

Hierarquia

...

...

    • TBar

Construtores

Inclusão de trecho
Classe TBar - Construtores
Classe TBar - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TBar - Propriedades
Classe TBar - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TBar - Métodos
Classe TBar - Métodos
nopaneltrue

Exemplos

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. )

 

Informações
iconfalse
titleSetButtonAlign

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 )

 

 

Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
#INCLUDE
#include "
TOTVS
totvs.
CH
ch"

USER
user 
FUNCTION
function 
TBar
tBar()

  DEFINE DIALOG oDlg TITLE "Exemplo TBar" FROM 180, 180 TO 550, 700 PIXEL


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

oTBtnBmp1
    oTBtnBmp1 := TBtnBmp2():New( 00, 00, 35, 25, 'copyuser'
;
,,,, { || Alert( 'TBtnBmp1' ) }, oTBar, 'msGetEx',, .F., .F. )
oTBtnBmp2
    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

 

Preview
Exemplo da classe TBar
return nil

Resultado do Exemplo

Image Modified

Abrangência

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

...