TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Julio Wittwer

Gravado em

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

Create

Método construtor da classe.

Sintaxe

TBitmap(): Create ( [ oWnd], [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName], [ cBmpFile], [ lNoBorder], [ bLClicked], [ bRClicked], [ lScroll], [ lStretch], [ oCursor], [ uParam14], [ uParam15], [ bWhen], [ lPixel], [ bValid], [ uParam19], [ uParam20], [ uParam21] ) --> oObjeto

Parâmetros

...

Retorno
    oObjeto()
  • Retorna o objeto criado.
Exemplos 
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.

Sintaxe

TBitmap(): New ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ cResName], [ cBmpFile], [ lNoBorder], [ oWnd], [ bLClicked], [ bRClicked], [ lScroll], [ lStretch], [ oCursor], [ uParam14], [ uParam15], [ bWhen], [ lPixel], [ bValid], [ uParam19], [ uParam20], [ uParam21] ) --> oObjeto

Parâmetros

...

Retorno
    oObjeto()
  • Retorna o objeto criado.
Exemplos 
oTBitmap := TBitmap():New(01,01,260,184,,"C:\garbage\TOTVS.PNG",.T.,oDlg,;            {||Alert("Clique em TBitmap")},,.F.,.F.,,,.F.,,.T.,,.F.)
Métodos
Load

Load

Define se a imagem será carregada do repositório ou do drive local.

Sintaxe

TBitmap(): Load ( [ cResName], [ cBmpFile] ) --> lOk

Parâmetros

...

Retorno
    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.).
Exemplos 
oTBitmap:Load( , "C:\Dir\TOTVS.PNG" )
SetBmp

SetBmp

Define se a imagem será carregada do repositório.

Sintaxe

TBitmap(): SetBmp ( [ cResName] ) --> lOk

Parâmetros

...

Retorno
    lOk(logico)
  • Retorna, verdadeiro (.T.), se a imagem existir no repositório e for carregada com sucesso; caso contrário, retornará falso (.F.).
Observações

 

 

 

Exemplos 
oTBitmap:SetBmp( "A1.PNG" )
SetEmpty

SetEmpty

Limpa a imagem.

Sintaxe

TBitmap(): SetEmpty ( ) -->

Exemplos 
oTBitmap:SetEmpty()
Propriedade
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
Observações

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
Preview
Exemplo da classe TBitmap

Resultado do Exemplo

Image Modified

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