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

[Enrico Maria Giordano]

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

[E. Bartzokas]

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

[Enrico Maria Giordano]

Ok, I agree.

EMG