Classe: TBitmap
Exibe uma imagem no objeto.
TSrvObject -> TControl -> TBitmap
Create
Método construtor da classe.
TBitmap(): Create ( [ oWnd], [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName], [ cBmpFile], [ lNoBorder], [ bLClicked], [ bRClicked], [ lScroll], [ lStretch], [ oCursor], [ uParam14], [ uParam15], [ bWhen], [ lPixel], [ bValid], [ uParam19], [ uParam20], [ uParam21] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
oWnd | Objeto | Indica a janela ou controle visual onde a imagem será criada. | ||
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. | ||
nHeight | Numérico | Indica a altura em pixels. | ||
cResName | Caracter | Indica o nome do imagem. | ||
cBmpFile | Caracter | Indica o nome do arquivo. | ||
lNoBorder | Lógico | Indica se ativa (.T.)/desativa (.F.) a apresentação da borda. | ||
bLClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto. | ||
bRClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto. | ||
lScroll | Lógico | Indica se habilita (.T.)/desabilita (.F.) a barra de rolagem. | ||
lStretch | Lógico | Indica se ativa (.T.)/desativa (.F.) a extensão da imagem. | ||
oCursor | Objeto | Indica o tipo de ponteiro do mouse. | ||
uParam14 | Caracter | Compatibilidade | ||
uParam15 | Lógico | Compatibilidade | ||
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.). | ||
lPixel | Lógico | Indica se as coordenadas em pixels serão utilizadas. | ||
bValid | Bloco de código | Indica o bloco de código que será executado na validação. | ||
uParam19 | Lógico | Compatibilidade. | ||
uParam20 | Lógico | Compatibilidade. | ||
uParam21 | Lógico | Compatibilidade. |
-
oObjeto()
- Retorna o objeto criado.
oTBitmap := TBitmap():Create(oDlg,01,146,260,184,,"C:\garbage\TOTVS.PNG",.T.,; {||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.)
New
Método construtor da classe.
TBitmap(): New ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName], [ cBmpFile], [ lNoBorder], [ oWnd], [ bLClicked], [ bRClicked], [ lScroll], [ lStretch], [ oCursor], [ uParam14], [ uParam15], [ bWhen], [ lPixel], [ bValid], [ uParam19], [ uParam20], [ uParam21] ) --> 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. | ||
nHeight | Numérico | Indica a altura em pixels. | ||
cResName | Caracter | Indica o nome da imagem. | ||
cBmpFile | Caracter | Indica o nome do arquivo. | ||
lNoBorder | Lógico | Indica se habilita(.T.)/desabilita(.F.) a apresentação da borda no objeto. | ||
oWnd | Objeto | Indica a janela ou controle visual onde a imagem será criada. | ||
bLClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto. | ||
bRClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto. | ||
lScroll | Lógico | Indica se habilita (.T.)/desabilita (.F.) a barra de rolagem. | ||
lStretch | Lógico | Indica se ativa (.T.)/desativa (.F.) a extensão da imagem. | ||
oCursor | Objeto | Indica o tipo de ponteiro do mouse. | ||
uParam14 | Caracter | Compatibilidade. | ||
uParam15 | Lógico | Compatibilidade. | ||
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.). | ||
lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | ||
bValid | Bloco de código | Indica o bloco de código de validação que será executado quando o conteúdo do objeto for modificado. Retorna verdadeiro (.T.), se o conteúdo é válido; caso contrário, falso (.F.). | ||
uParam19 | Lógico | Compatibilidade. | ||
uParam20 | Lógico | Compatibilidade. | ||
uParam21 | Lógico | Compatibilidade. |
-
oObjeto()
- Retorna o objeto criado.
oTBitmap := TBitmap():New(01,01,260,184,,"C:\garbage\TOTVS.PNG",.T.,oDlg,; {||Alert("Clique em TBitmap")},,.F.,.F.,,,.F.,,.T.,,.F.)
Load
Define se a imagem será carregada do repositório ou do drive local.
TBitmap(): Load ( [ cResName], [ cBmpFile] ) --> lOk
Nome | Tipo | Descrição | Obrigatório | Referência |
cResName | Caracter | Indica o nome da imagem. | ||
cBmpFile | Caracter | Indica o nome do arquivo. |
-
lOk(logico)
- Retorna, verdadeiro (.T.), se a imagem for carregada com sucesso do repositório ou do arquivo físico; caso contrário, retornará falso (.F.).
oTBitmap:Load( , "C:\Dir\TOTVS.PNG" )
SetBmp
Define se a imagem será carregada do repositório.
TBitmap(): SetBmp ( [ cResName] ) --> lOk
Nome | Tipo | Descrição | Obrigatório | Referência |
cResName | Caracter | Indica o nome da imagem no repositório. |
-
lOk(logico)
- Retorna, verdadeiro (.T.), se a imagem existir no repositório e for carregada com sucesso; caso contrário, retornará falso (.F.).
oTBitmap:SetBmp( "A1.PNG" )
Propriedade | Descrição | Tipo |
cBmpFile | Indica o nome do arquivo. | Caracter |
cResName | Indica o nome do imagem. | Caracter |
lAutoSize | Indica se, verdadeiro (.T.), o objeto assumirá o tamanho da imagem definida; caso contrário, falso (.F.). | Lógico |
lStretch | Indica a extensão da imagem. | Lógico |
lTransparent | Indica se a imagem é transparente. | Lógico |
Formato das imagens
Esta classe não suporta imagens no formato BMP (Bitmap) e JPG (Joint Photographic Experts Group) com resolução de 24 bits. Caso haja necessidade de utilizar a resolução de 24 bits, use o formato PNG (Portable Network Graphics).
#include "TOTVS.CH"User Function TBitmap() DEFINE DIALOG oDlg TITLE "Exemplo TBitmap" FROM 180,180 TO 550,700 PIXEL // Usando o New oTBitmap1 := TBitmap():New(01,01,260,184,,"C:\garbage\TOTVS.PNG",.T.,oDlg,; {||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.) oTBitmap1:lAutoSize := .T. // Usando o Create oTBitmap2 := TBitmap():Create(oDlg,01,146,260,184,,"C:\garbage\TOTVS.PNG",.T.,; {||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.) oTBitmap2:lAutoSize := .T. ACTIVATE DIALOG oDlg CENTERED Return