topic-12812

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Lines and color .. oPrint:say .....
Posted: Sun Sep 21, 2008 10:52 PM

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

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: Lines and color .. oPrint:say .....
Posted: Mon Sep 22, 2008 07:09 AM

Code: Select all Collapse

#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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

FiveTech Support Forums

Continue the discussion