FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour FastReport, imprimir varios colores ( SOLUCIONADO )
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
FastReport, imprimir varios colores ( SOLUCIONADO )
Posted: Sat Jul 31, 2010 05:02 PM
Estimados
Como se puede hacer para imprimir en varios colores

ejemplo:

nombre     edad
luis            5
pedro        10
jaime         15

lo estoy haciendo en el evento
Code (fw): Select all Collapse
oFrPrn:SetEventHandler("Report", "OnBeforePrint", {|ObjName|ShowProcess(ObjName,oFrPrn)})


Code (fw): Select all Collapse
Function ShowProcess(sObjectName,oFrPrn)
    if "TMP" $ sObjectName
       oFrPrn:SetProperty(sObjectName, "color", CLR_RED )
      oFrPrn:SetProperty(sObjectName, "Font:Color", CLR_CYAN ) //no funciona
    endif
return( nil )


solo me cambia el fondo y el texto no se como hacerlo

Cualquier sugerencia en bienvenida
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: FastReport, imprimir varios colores
Posted: Mon Aug 02, 2010 03:46 PM
aqui dejo la solucion

Code (fw): Select all Collapse
sObjectName += ".Font"
oFrPrn:SetProperty(sObjectName, "Color", cColor )
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion