Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 2 Próxima »

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


NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde a imagem será criada.
nTopNuméricoIndica a coordenada vertical em pixels ou caracteres.
nLeftNuméricoIndica a coordenada horizontal em pixels ou caracteres.
nWidthNuméricoIndica a largura em pixels.
nHeightNuméricoIndica a altura em pixels.
cResNameCaracterIndica o nome do imagem.
cBmpFileCaracterIndica o nome do arquivo.
lNoBorderLógicoIndica se ativa (.T.)/desativa (.F.) a apresentação da borda.
bLClickedBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.
bRClickedBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.
lScrollLógicoIndica se habilita (.T.)/desabilita (.F.) a barra de rolagem.
lStretchLógicoIndica se ativa (.T.)/desativa (.F.) a extensão da imagem.
oCursorObjetoIndica o tipo de ponteiro do mouse.
uParam14CaracterCompatibilidade
uParam15LógicoCompatibilidade
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.).
lPixelLógicoIndica se as coordenadas em pixels serão utilizadas.
bValidBloco de códigoIndica o bloco de código que será executado na validação.
uParam19LógicoCompatibilidade.
uParam20LógicoCompatibilidade.
uParam21LógicoCompatibilidade.
    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

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


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.
nHeightNuméricoIndica a altura em pixels.
cResNameCaracterIndica o nome da imagem.
cBmpFileCaracterIndica o nome do arquivo.
lNoBorderLógicoIndica se habilita(.T.)/desabilita(.F.) a apresentação da borda no objeto.
oWndObjetoIndica a janela ou controle visual onde a imagem será criada.
bLClickedBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto.
bRClickedBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.
lScrollLógicoIndica se habilita (.T.)/desabilita (.F.) a barra de rolagem.
lStretchLógicoIndica se ativa (.T.)/desativa (.F.) a extensão da imagem.
oCursorObjetoIndica o tipo de ponteiro do mouse.
uParam14CaracterCompatibilidade.
uParam15LógicoCompatibilidade.
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.).
lPixelLógicoIndica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.).
bValidBloco de códigoIndica 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.).
uParam19LógicoCompatibilidade.
uParam20LógicoCompatibilidade.
uParam21LógicoCompatibilidade.
    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


NomeTipoDescriçãoObrigatórioReferência
cResNameCaracterIndica o nome da imagem.
cBmpFileCaracterIndica 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


NomeTipoDescriçãoObrigatórioReferência
cResNameCaracterIndica 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" )

SetEmpty

Limpa a imagem.


TBitmap(): SetEmpty ( ) -->


oTBitmap:SetEmpty()

PropriedadeDescriçãoTipo
cBmpFileIndica o nome do arquivo.Caracter
cResNameIndica o nome do imagem.Caracter
lAutoSizeIndica se, verdadeiro (.T.), o objeto assumirá o tamanho da imagem definida; caso contrário, falso (.F.).Lógico
lStretchIndica a extensão da imagem.Lógico
lTransparentIndica 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

Exemplo da classe TBitmap

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

  • Sem rótulos