Histórico da Página

TClassInstance -> TBrush

#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