TPrinter Class Problem : Reverse Mode Printing

[Milan Mehta]

Hello All,

Is there any way to define background of text ? I want to print certain text in reverse mode : i.e. Black background and white foreground.

Is it possible ?

TIA
Milan.

[Antonio Linares]

Milan,

Please review samples\report\rep22.prg

[ORibeiro]

Is it possible using the PRINT class instead of REPORT class?

Thanks,

Oscar

[nageswaragunupudi]

FWH 16.04 onwards

Code: Select all  Expand view

function ReversePrint

   local oPrn, oFont

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-30 BOLD OF oPrn

   PAGE
      @ 200,200 PRINT TO oPrn TEXT "This is Reverse Text" FONT oFont ;
         COLOR CLR_WHITE,CLR_BLACK
   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont

return nil

[ORibeiro]

Thank you Rao,

How can I do this with oPrn:Say() ?

Oscar

[ukoenig]

Hello Oscar,

it is a bit tricky because I don't use a defined text-background-color.
The black area can be any size and doesn't belong to the textheight and width like a normal text-backgroundcolor.
The width of the black area will be the same size on all pages.
I think it looks much better because of the possible defined space around the text,
but it is a matter of taste.

1. define a hight value for the pensize to get a black area like
DEFINE PEN oPen3 WIDTH 100 OF oPRINT

2. define a BLACK BOX on the textposition like
oPRINT:CmBox( 2.2, 2.8, 2.4, 8.0, oPen3 )
// METHOD CmBox( nRow, nCol, nBottom, nRight, oPen )

3. paint the text on top of the box in WHITE
oPRINT:cmSay( 2.0, 2.8, "Your text", oFont3,,CLR_WHITE,,PAD_LEFT )



this solution works for me.

best regards
Uwe

[nageswaragunupudi]

Thank you Rao,

How can I do this with oPrn:Say() ?

Oscar

Sorry for the late reply.

About the caption: There is no problem with the TPrinter Class

Here is the recommended approach:

Code: Select all  Expand view

function ReversePrint

   local oPrn, oFont
   local nOldClr

   PRINT oPrn PREVIEW
   DEFINE FONT oFont NAME "ARIAL" SIZE 0,-30 BOLD OF oPrn

   PAGE
      nOldClr  := SetBkColor( oPrn:hDCOut, CLR_BLACK )
      oPrn:Say( 200, 200, "This is Reverse Text", oFont, 5000, CLR_WHITE, 2 )
      SetBkColor( nOldClr )
   ENDPAGE
   ENDPRINT

   RELEASE FONT oFont

return nil
 

This shows how to set foreground color and background color.