Classe: TBitmap
Exibe uma imagem no objeto.
TSrvObject -> TControl -> TBitmap
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
Exemplo da classe TBitmap
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas