#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