Classe: TBtnBmp2Cria um objeto do tipo botão com imagem ou Pop-up. NewMétodo construtor da classe.TBtnBmp2(): New ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName1], [ uParam6], [ uParam7], [ uParam8], [ bAction], [ oWnd], [ cMsg], [ bWhen], [ uParam13], [ uParam14] ) --> oObjeto | Nome | Tipo | Descrição | Obrigatório | Referência | | nTop | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | | nLeft | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | | cResName1 | Caracter | Indica o nome do recurso que contém a imagem. Este recurso deve estar compilado,no repositório de imagens, para ser utilizado. | | | | uParam6 | Caracter | Compatibilidade. | | | | uParam7 | Caracter | Compatibilidade. | | | | uParam8 | Caracter | Compatibilidade. | | | | bAction | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão. | | | | oWnd | Objeto | Indica a janela ou controle visual onde o botão será criado. | | | | cMsg | Caracter | Indica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão. | | | | bWhen | Bloco de código | Indica 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.). | | | | uParam13 | Lógico | Compatibilidade. | | | | uParam14 | Lógico | Compatibilidade. | | |
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 |