Histórico da Página
...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#include "totvs.ch" User Function TBtnBmp() DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp" FROM 180, 180 TO 550, 700 PIXEL // Cria barra de botões oTBar := TBar():New( oDlg, 25, 32, .T.,,,, .F. ) // Cria botões oTBtnBmp1 := TBtnBmp():NewBar( 'RPMNEW',,,, '', { || Alert( 'TBtnBmp 01' ) }, .F., oTBar, .T., { || .T. },, .F.,,, 1,,,,, .T. ) oTBtnBmp2 := TBtnBmp():NewBar( 'copyuser',,,, '', { || Alert( 'TBtnBmp 02' ) }, .F., oTBar, .T., { || .T. },, .F.,,, 1,,,,, .T. ) ACTIVATE DIALOG oDlg CENTERED Return |
Resultado do Exemplo
Abrangência
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