Lines and color .. oPrint:say .....

[Rick Lipkin]

To All

I like to write my own reports and not use the report class .. prefer the oPrint:say ...

I have a requirement to use grey "thick" lines to seperate each row and there is a 'status' field ( in each row ) that is 'red', 'yellow', and 'green' that I must 'fill" with color and text.

I have never used 'pens' ?? and have not found very many samples and would be grateful if someone could point me in the right direction or ( perhaps ) help with some code samples..

Many thanks
Rick Lipkin
SC Dept of Health, USA

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oPrn, oPen

    PRINT oPrn PREVIEW
        DEFINE PEN oPen WIDTH 50 COLOR CLR_GREEN

        PAGE
            oPrn:Line( 1000, 0, 1000, oPrn:nHorzRes(), oPen )
        ENDPAGE
    ENDPRINT

    DELETEOBJECT( oPen )

    RETURN NIL

EMG