Page tree
Skip to end of metadata
Go to start of metadata

Classe: TBrush

Cria um objeto que permite definir a cor de preenchimento do shape.


TClassInstance -> TBrush


New

New

Método construtor da Classe.


TBrush(): New ( [ uParam1], [ nRGBColor], [ uParam3], [ uParam4] ) --> oObjeto


NomeTipoDescriçãoObrigatórioReferência
uParam1CaracterCompatibilidade.
nRGBColorNuméricoIndica a cor, no formato RGB, de preenchimento.
uParam3CaracterCompatibilidade.
uParam4CaracterCompatibilidade.
    oObjeto(objeto)
  • Retorna o objeto criado.

oBrush := TBrush():New( , CLR_HRED )

New2

Método construtor da Classe.


TBrush(): New2 ( [ uParam1], [ nRGBColor] ) --> oObjeto


NomeTipoDescriçãoObrigatórioReferência
uParam1CaracterCompatibilidade.
nRGBColorNuméricoIndica a cor, no formato RGB, de preenchimento.
    oObjeto(objeto)
  • Retorna o objeto criado.

oBrush := TBrush():New2( , CLR_HRED )

End

End

Método destrutor da classe.


TBrush(): End ( ) -->


oBrush1:End()

PropriedadeDescriçãoTipo
nRGBColorIndica a cor que será definida para realizar o preenchimento do shape.Numérico

#include "TOTVS.CH"User Function TBrush()Private cAcesso := Repl(" ",10)  DEFINE DIALOG OMAINWND TITLE "Exemplo TBrush" FROM 180,180 TO 550,700 PIXEL    // Monta objeto para impressão    oPrint := TMSPrinter():New("Exemplo TBrush")    oPrint:SetPortrait()    oPrint:Setup()    oPrint:StartPage()                    // Cria objetos TBrush com cores para teste    // Usando o New    oBrush1 := TBrush():New( , CLR_HRED )    oBrush2 := TBrush():New( , CLR_HBLUE )    // Usando o New2    oBrush3 := TBrush():New2( , CLR_GREEN )                                                   // Com metodo FillRect usamos o TBrush    oPrint:fillRect( { 10, 010, 400, 200 }, oBrush1 )    oPrint:fillRect( { 10, 210, 400, 400 }, oBrush2 )    oPrint:fillRect( { 10, 410, 400, 600 }, oBrush3 )        // Destroe os TBrush    oBrush1:End()    oBrush1:End()    oBrush1:End()                                              // Visualiza a impressão    oPrint:EndPage()    oPrint:Preview() 	  ACTIVATE DIALOG OMAINWND CENTERED Return

Exemplo da classe TBrush

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • No labels