How can I, for example, in the following definition, incorporate the Color of a font (f.e. CLR_RED,...)
>DEFINE FONT oFont NAME 'ARIAL NARROW' SIZE 0,-9 OF oPrn
Thanks
José
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour print color fonts
You can't. You have to use a PEN.
EMG
unless you want to do this afterwards:
Emiliano Llano DÃaz
oReport:SAY(line, 5*nColumn,ALLTRIM(MyDB->MyField), oFont, ,CLR_HGREEN)Emiliano Llano DÃaz
Thank you Ellano, it works !!
Dear Ellano,
With your solution I can print fonts in any color but once I utilize a color font (for example in a do while not eof() ) the rest of records are printed in this color even if I program a condition (if else endif) to print some records of the do while in black color ?
Can you explain me what to do?
Thanks
#include "fivewin.ch"
function Main()
local oPrn, oFont, nRow
local aColors := { CLR_HRED, CLR_GREEN, CLR_BLACK }
USE STATES
PRINT oPrn PREVIEW
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-20 BOLD OF oPrn
PAGE
nRow := 2
do while RECNO() <= 20 .and. !eof()
@ nRow, 1 PRINT TO oPrn TEXT FIELD->NAME SIZE 5 INCHES ;
FONT oFont COLOR aColors[ ( RECNO() % 3 ) + 1 ] ;
LASTROW nRow
SKIP
enddo
ENDPAGE
ENDPRINT
RELEASE FONT oFont
CLOSE STATES
return nil
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank you very much to all of you, problem solved !
Kind regards
José