Classe: TBitmapExibe uma imagem no objeto. CreateMé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 Nome | Tipo | Descrição | Obrigatório | Referência | oWnd | Objeto | Indica a janela ou controle visual onde a imagem será criada. | | | nTop | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nLeft | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | nWidth | Numérico | Indica a largura em pixels. | | | nHeight | Numérico | Indica a altura em pixels. | | | cResName | Caracter | Indica o nome do imagem. | | | cBmpFile | Caracter | Indica o nome do arquivo. | | | lNoBorder | Lógico | Indica se ativa desativa (.T.)/desativa (.F.) a apresentação da borda. | | | bLClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto. | | | bRClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto. | | | lScroll | Lógico | Indica se habilita (.T.)/desabilita (.F.) a barra de rolagem. | | | lStretch | Lógico | Indica se ativa (.T.)/desativa (.F.) a extensão da imagem. | | | oCursor | Objeto | Indica o tipo de ponteiro do mouse. | | | uParam14 | Caracter | Compatibilidade | | | uParam15 | Lógico | Compatibilidade | | | bWhen | Bloco de código | Indica 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.). | | | lPixel | Lógico | Indica se as coordenadas em pixels serão utilizadas. | | | bValid | Bloco de código | Indica o bloco de código que será executado na validação. | | | uParam19 | Lógico | Compatibilidade. | | | uParam20 | Lógico | Compatibilidade. | | | uParam21 | Lógico | Compatibilidade. | | |
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.) NewMé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 Nome | Tipo | Descrição | Obrigatório | Referência | nTop | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nLeft | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | nWidth | Numérico | Indica a largura em pixels. | | | nHeight | Numérico | Indica a altura em pixels. | | | cResName | Caracter | Indica o nome da imagem. | | | cBmpFile | Caracter | Indica o nome do arquivo. | | | lNoBorder | Lógico | Indica se habilitadesativa (.T.)/desabilita(.F.) a apresentação da borda no objeto. | | | oWnd | Objeto | Indica a janela ou controle visual onde a imagem será criada. | | | bLClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o objeto. | | | bRClicked | Bloco de código | Indica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto. | | | lScroll | Lógico | Indica se habilita (.T.)/desabilita (.F.) a barra de rolagem. | | | lStretch | Lógico | Indica se ativa (.T.)/desativa (.F.) a extensão da imagem. | | | oCursor | Objeto | Indica o tipo de ponteiro do mouse. | | | uParam14 | Caracter | Compatibilidade. | | | uParam15 | Lógico | Compatibilidade. | | | bWhen | Bloco de código | Indica 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.). | | | lPixel | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | bValid | Bloco de código | Indica 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.). | | | uParam19 | Lógico | Compatibilidade. | | | uParam20 | Lógico | Compatibilidade. | | | uParam21 | Lógico | Compatibilidade. | | |
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.) LoadDefine se a imagem será carregada do repositório ou do drive local.TBitmap(): Load ( [ cResName], [ cBmpFile] ) --> lOk Nome | Tipo | Descrição | Obrigatório | Referência | cResName | Caracter | Indica o nome da imagem. | | | cBmpFile | Caracter | Indica 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" ) SetBmpDefine se a imagem será carregada do repositório.TBitmap(): SetBmp ( [ cResName] ) --> lOk Nome | Tipo | Descrição | Obrigatório | Referência | cResName | Caracter | Indica 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" ) SetEmptyLimpa a imagem.TBitmap(): SetEmpty ( ) --> 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 |
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). Bloco de código |
---|
| #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 |