Page tree
Skip to end of metadata
Go to start of metadata

Componente do tipo botão.

Hierarquia

Construtores

Propriedades

Métodos

Exemplos

#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

  • No labels