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
| 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