Exibir origem

import.css=/download/attachments/6062824/tecnologia.css

Exibe uma imagem no objeto.

Hierarquia

TControl
- TBitmap

Construtores

Propriedades

Métodos

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

#include "TOTVS.CH"

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

    ACTIVATE DIALOG oDlg CENTERED
Return

Resultado do Exemplo

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