TPrinter:Say() text color doesn't reset itself

TPrinter:Say() text color doesn't reset itself

Postby Enrico Maria Giordano » Fri Mar 24, 2006 1:50 pm

Is it expected? The second line of text should not be red in my opinion:

Code: Select all  Expand view  RUN
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oPrn, oFnt

    PRINT oPrn PREVIEW
        DEFINE FONT oFnt NAME "Arial" SIZE 0, -12 OF oPrn

        PAGE
            oPrn:Say( 100, 100, "This is a test", oFnt, , CLR_HRED )
            oPrn:Say( 500, 100, "This is a test", oFnt )
        ENDPAGE
    ENDPRINT

    RELEASE FONT oFnt

    RETURN NIL


EMG
User avatar
Enrico Maria Giordano
 
Posts: 8718
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: TPrinter:Say() text color doesn't reset itself

Postby E. Bartzokas » Fri Mar 24, 2006 4:04 pm

Enrico,
It's been that way since 16-bit.
I hope it's not changed because several of my programs use this concept or retaining the last color until changed again.

Just my opinion of course...

Kind regards
Evans
User avatar
E. Bartzokas
 
Posts: 114
Joined: Tue Feb 14, 2006 8:13 am
Location: Corinth, Greece



Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 77 guests