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
| Nome | Tipo | Descrição | Obrigatório | Referência |
| oWnd | Objeto | Indica a janela ou controle visual onde objeto será criado. | ||
| nBtnWidth | Numérico | Indica a largura do botão contido na barra. | ||
| nBtnHeight | Numérico | Indica a altura do botão contido na barra. | ||
| l3D | Lógico | Indica se a barra de botões tem o formato tridimensional (3D). | ||
| uParam5 | Caracter | Compatibilidade. | ||
| oCursor | Objeto | Indica o tipo de ponteiro do mouse ao posicioná-lo sobre a barra de botões. | ||
| cResource | Caracter | Indica a imagem do recurso que será inserida como fundo da barra de botões. | ||
| lNoAutoAdjust | Lógico | Indica se ajusta, automaticamente, a altura e largura do objeto. |
oObjeto
- (objeto)
- Retorna o objeto criado.
oTBar := TBar():New( oDlg,25,32,.T.,,,,.F. )
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas