Á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 5 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

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 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\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