REPORT alto de fila

[wmormar]

Amigos,

Aqui dando lata, por mas que he buscado no encuentro como aumentar el alto de filas en la TReport. Se requiere sin necesidad de incrementar el tamaño de la fuente.

Agradecido de antemano

[wmormar]

Amigos, alguien podria auxiliarme...

[cnavarro]

Has mirado la DATA nStdLineHeight ?

Saludos

[wmormar]

Amigo cristobal,

He visto la data varias veces y he intentado cambiar el valor, pero, siempre me toma uno calculado y no muestra cambios alguno.

Donde seria el ajuste para que me permita el alto de filas?

Gracias de antemano por tu tiempo

[cnavarro]

Has mirado la DATA nStdLineHeight ?

Saludos

William
Hace ya mucho tiempo que me encontre con ese problema.
Modifique la clase añadiendo una DATA nPropLine que inclui cada vez que aparecía la DATA nStdLineHeight.
en la forma: nPropLine * nStdLineHeight
Dime si necesitas alguna cosa que esté en mi mano.
Saludos

Te adjunto donde lo modifique

Code: Select all

En el New()

::nPropLine    := 1.0000

METHOD Play() CLASS TReport

.../...
FOR nFor2 := 1 TO nColumns

            IF !::lSummary
                ::aColumns[nFor2]:SayData(::nRow + ;
                          if( ::lDoubleSpace , ;
                             (( ::nStdLineHeight*::nPropLine ) / 2 ) , 0 ),;
                             ::aCols[nFor2] , nFor1 )
            ENDIF

.../...

METHOD StartLine(nHeight, lSeparator, lPonGrid, lHoriz, lVert ) CLASS TReport

   STATIC lRunning := .F.

   DEFAULT nHeight    := ::nStdLineHeight
   DEFAULT lSeparator := .F.

   if lPonGrid = Nil
      lPonGrid := .t.
   endif

   nHeight := nHeight*if( ::lDoubleSpace, ::nPropLine , 1 )

.../...

METHOD EndLine(nHeight) CLASS TReport

   STATIC lRunning := .F.

   DEFAULT nHeight := ::nStdLineHeight

   nHeight := nHeight*if( ::lDoubleSpace, ::nPropLine , 1 )

.../...

 

Espero te sirva

[wmormar]

cnavarro,

Gracias hare las pruebas.