Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Inserir referência ao comando @ ... BITMAP
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle
Classe TBitmap

...

Classe

...

TBitmap

Exibe

...

uma

...

imagem

...

no

...

objeto.

Hierarquia

...

...

    • TBitmap

Construtores

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

...

    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

...

    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

...

    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

...

    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

...

Inclusão de trecho
Classe TBitmap - Construtores
Classe TBitmap - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TBitmap - Propriedades
Classe TBitmap - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TBitmap - Métodos
Classe TBitmap - Métodos
nopaneltrue

Observações

  • Esta classe não suporta imagens no formato BMP e JPG com resolução de 24 bits. Caso haja necessidade de

...

  • utilizar a resolução

...

  • de 24 bits, use o formato PNG

...

  • .

Exemplos

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
#include "TOTVS.CH"
User


user 
Function
function 
TBitmap
exemplo()
    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
Temp\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
Temp\TOTVS.PNG",.T.,;
        
{||Alert("Clique em TBitmap1")},,.F.,.F.,,,.F.,,.T.,,.F.)
    oTBitmap2:lAutoSize := .T.


    
ACTIVATE DIALOG oDlg CENTERED

Return
Exemplo da classe TBitmap
Image Removed

Resultado do Exemplo

Image Added

Abrangência

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

Comando @ ... BITMAP

A criação do componente de imagem Bitmap pode também ser feita pelo comando @ ... BITMAP