Árvore de páginas

Classe: TBtnBmp2

Cria um objeto do tipo botão com imagem ou Pop-up.

TSrvObject -> TControl -> TBtnBmp -> TBtnBmp2


New

Método construtor da classe.


TBtnBmp2(): New ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName1], [ uParam6], [ uParam7], [ uParam8], [ bAction], [ oWnd], [ cMsg], [ bWhen], [ uParam13], [ uParam14] ) --> oObjeto


 

NomeTipoDescriçãoObrigatórioReferência
nTopNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nLeftNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
cResName1CaracterIndica o nome do recurso que contém a imagem. Este recurso deve estar compilado,no repositório de imagens, para ser utilizado.  
uParam6CaracterCompatibilidade.  
uParam7CaracterCompatibilidade.  
uParam8CaracterCompatibilidade.  
bActionBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.  
oWndObjetoIndica a janela ou controle visual onde o botão será criado.  
cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão.  
bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.), se o controle permanecer habilitado; caso contrário, retornará falso (.F.).  
uParam13LógicoCompatibilidade.  
uParam14LógicoCompatibilidade.  

 

oObjeto
    ()
  • Retorna o objeto criado.

oBtn := TBtnBmp2():New( 02,02,26,26,'copyuser',,,,{||Alert("Botão 01")},oDlg,,,.T. )

Este componente não permite foco.

A propriedade <lCanGotFocus>, da classe TSrvObject, que define se o objeto pode ou não receber foco não tem efeito sobre o TBtnBmp2.


#include "TOTVS.CH"

User Function TBtnBmp2()

DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp2" FROM 180,180 TO 550,700 PIXEL

oBtn1 := TBtnBmp2():New( 02,02,26,26,'copyuser',,,,{||Alert("Botão 01")},oDlg,,,.T. )
oBtn2 := TBtnBmp2():New( 02,32,26,26,'critica',,,,{||Alert("Botão 02")},oDlg,,,.T. )

ACTIVATE DIALOG oDlg CENTERED

Return

Exemplo da classe TBtnBmp2

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

 

  • Sem rótulos