FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Algo rarisimo con el preview
Posts: 155
Joined: Fri Oct 21, 2005 06:35 PM
Algo rarisimo con el preview
Posted: Sun May 07, 2006 01:58 PM

Hola a todos.
Esto es algo que me llama mucho la atencion.

Tengo escrito este reporte (algo muy basico):

REPORT oReport TITLE Titulo CENTER;
HEADER Empresa;
FOOTER "Fecha:"+DTOC(Date())+" Hora:"+Time()+" Pagina:"+STR(oReport:nPage,3) RIGHT;
FONT oFont0,oFont1,oFont2,oFont3;
PREVIEW;
CAPTION "Vista previa del listado"

COLUMN TITLE "Codigo" DATA "" SIZE 6 CENTER SHADOW
COLUMN TITLE "Razon social" DATA "" SIZE 40 CENTER SHADOW
COLUMN TITLE "Saldo" DATA "" SIZE 12 CENTER SHADOW

ACTIVATE REPORT oReport ON STARTLINE PintoLinea(oReport)

La funcion que esta en STARTLINE es esta:

Function PintoLinea(oReport)
IF MOD(oReport:nRow,2)=0
oReport:lShadow:=.f.
ELSE
oReport:lShadow:=.t.
ENDIF
Return nil

Simplemente pretendo que me haga un shadow linea de por medio en cada numero de linea impar.
Lo raro es que en mi maquina funciona bastante bien con reportes cortos, pero en cualquier otra maquina me hace el shadow en todas las lineas, a pesar que tuve la precaucion de copiar ademas del exe la prev32.dll
Si esto funcionara bien seria muy util, ya que para seguir una linea en el preview es bastante confuso.

Desde ya muchas gracias.
Jorge Jaurena

Continue the discussion