import.css=/download/attachments/6062824/tecnologia.css

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

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

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

Resultado do Exemplo

Abrangência

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