Barra de botões para a parte superior da interface.
#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
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server