FiveTech Support Forums

jll-fwh wrote:1.- Cuando se define un Gradiente en un xBrowse mediante una tabla con DBF, si el campo no contiene informacion no genera el Gradient en esa celda.

if ! Empty( cData ) .and. ! ( ::cDataType $ "PF" )

   else
      aRect       := { nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) }
      if ::bPaintText != nil
         Eval( ::bPaintText, Self, hDC, "", aRect, aColors, lHighLite )
      endif

jll-fwh wrote:2.- Tanto en un xBrowse con DBF como definido con ARRAYs el gradient no lo aplica hasta el final de la declaracion del xBrowse, sino hasta la longuitud de las columnas

oBrw:nStretchCol = STRETCHCOL_LAST

jll-fwh wrote:1.- Tambien me gustaria hacer, asignar un gradient dentro de una celda para asignarle ademas otro color para la edicion de los campos dentro de un xBrowse, para que el efecto sea mucho mas bonito, ya que sino me queda con este aspecto.

oBrw:aCols[ 3 ]:bClrEdit := { || { CLR_BLACK, CLR_RED } }

AEval( oBrw:aCols, { |o| o:bClrEdit := { || { CLR_BLACK, CLR_RED } } } )

jll-fwh wrote:2.- Supongo que sera porque estoy ya obcecado y no vea nada, pero como podria cambiar el BMP que aparece en un xBrowse cuando lo defines como edicion de la celda tipo EDIT_GET_BUTTOM.

Hola Daniel:

Antes que nada, muchas gracias por tu ayuda, ya que al final eres el unico que contesta a mis problemillas. Gracias. Ademas eres el GURU del xBrowse.

Te comento:

Posiblemente tengamos version de FWH diferentes ya que en el metodo PainData no veo las lineas que me comentas.

La funcion la publico Antonio en el foro, no era una modificacion del metodo sino una funcion independiente.

1.- Esta linea no existe en mi version: ( FWH 8.12 ), asi que no puedo probar lo que me comentabas.

if ! Empty( cData ) .and. ! ( ::cDataType $ "PF" )

Al funcion para el gradiente segun antonio era: ( en este caso la estoy probando con una ARRAY )

/------------------------------------------------------------------------------/
Function PaintColArray( oCol, hDC, cData, aRect, oGrid )
/------------------------------------------------------------------------------/

If oCol:oBrw:VGetPos() == oGrid:nArrayAT

  GradientFill( hDC, aRect[ 1 ] - 2, aRect[ 2 ] - 3, aRect[ 3 ] + 1, aRect[ 4 ] + 5,;
                { { 1, RGB( 220, 235, 252 ), RGB( 193, 219, 252 ) } }, .T. )

  RoundBox( hDC, 2, aRect[ 1 ] - 1, WndWidth( oCol:oBrw:hWnd ) - 22, aRect[ 3 ] + 1, 2, 2,;
            RGB( 235, 244, 253 ), 1 )
  RoundBox( hDC, 1, aRect[ 1 ] - 2, WndWidth( oCol:oBrw:hWnd ) - 21, aRect[ 3 ] + 2, 2, 2,;
            RGB( 125, 162, 206 ), 1 )

End

SetTextColor( hDC, 0 )
DrawTextEx( hDC, cData, aRect, oCol:nDataStyle )

Return NIL

2.- PAra solucionar el segundo problema me comentabas que añadiera esta liena al xBrowse:

oBrw:nStretchCol = STRETCHCOL_LAST

Funciona pero el Grid tiene un comportamiento no correcto, se queda embuclado refrescando el objeto y por ejemplo no visualiza el menu popup que tiene asignado el GRid. Asi que he tenido que quitarlo porque en mi version de FWH no funciona bien.

3.- Y sobre como modificar el BMP de una celda, pues debo de estar gafado, pero no tengo el fuente xbrbtn.prg en \Samples., a no ser que venga en versiones posteriores. ASi que no puedo ver como se hace.

Muchas gracias por tu ayuda y tiempo
Un saludo
JLL

Saludos

Ciertamente la mayoria de los cambios y caracteristicas estan reflejadas en las nuevas versiones... mi recomendacion seria que actualizaras tu actual version de fivewin y podras disfrutar de muchas mejoras del producto

Pedro,

Carga tu aplicacion,
presiona la techa PrtScrn,
entra al Microsoft Paint o algun otro editor de bmps,
presiona las teclas Ctrl-V para pegar,
graba el archivo,
entra a ImageShack.com,
presiona Browse para buscar el fichero en tu ordenador,
presiona UpLoad,
copia el Direct Link,
Entra al foro y presiona citar,
presiona Img,
pega el link,
presiona enviar.

Hola,

he editado el mensaje anterior colocando las imagenes y nadie ha respondido, no sé si se ha visto o no se entiende el problema ?.

Saludos!

Hola Daniel:

Gracias por tu ayuda, pero en la version que yo tengo no funciona.

Un saludo
JLL

Hola Daniel,

¿sabes si el tema que comento sobre el comportamiento del xbrowse es por la versión ?, o no tiene solución ?.

Saludos!

pedrog wrote:Hola Daniel,

¿sabes si el tema que comento sobre el comportamiento del xbrowse es por la versión ?, o no tiene solución ?.

Saludos!

Daniel,

gracias de antemano, lo raro es que si que de una forma lo hace bien y de la otra no, supongo que será algún bug de la versión que yo tengo.

Saludos!

pedrog wrote:Daniel,

gracias de antemano, lo raro es que si que de una forma lo hace bien y de la otra no, supongo que será algún bug de la versión que yo tengo.

Saludos!

      if nCol < nWidth
         if lHighLite
            if ::hWnd == GetFocus()
               oCol := ::ColAtPos ( nLast )
               if oCol:bPaintText != NIL
                  Eval( oCol:bPaintText, oCol, hDC, "", { nRow + 2, nCol, nTemp - 2, nWidth - 5 } )            
               else
                  hBrush := CreateSolidBrush( Eval( If( ::bClrRowFocus == nil, ::bClrSelFocus, ::bClrRowFocus ) )[ 2 ] )
               endif
            else
               if oCol:bPaintText != NIL
                  Eval( oCol:bPaintText, oCol, hDC, "", { nRow + 2, nCol, nTemp - 2, nWidth - 5 } )            
               else
                  hBrush := CreateSolidBrush( Eval( ::bClrSel )[ 2 ] )
               endif
            endif
         else
            hBrush := CreateSolidBrush( Eval( ::bClrStd )[ 2 ] )
         endif
         if ( lHighLite .or. ! ( ::lTransparent == .t. ) ) .and. hBrush != NIL
            FillRect( hDC, {nRow, nCol, nTemp, nWidth }, hBrush )
         endif
         if hBrush = NIL
            DeleteObject( hBrush )
         endif
      endif

if ! Empty( cData )

   else
      aRect       := { nRow, nCol, nRow + nHeight, Min( nCol + nWidth, ::oBrw:BrwWidth() - 5 ) }
      if ::bPaintText != nil
         Eval( ::bPaintText, Self, hDC, "", aRect, aColors, lHighLite )
      endif

jll-fwh wrote:2.- PAra solucionar el segundo problema me comentabas que añadiera esta liena al xBrowse:

oBrw:nStretchCol = STRETCHCOL_LAST

Funciona pero el Grid tiene un comportamiento no correcto, se queda embuclado refrescando el objeto y por ejemplo no visualiza el menu popup que tiene asignado el GRid. Asi que he tenido que quitarlo porque en mi version de FWH no funciona bien.

jll-fwh wrote:3.- Y sobre como modificar el BMP de una celda, pues debo de estar gafado, pero no tengo el fuente xbrbtn.prg en \Samples., a no ser que venga en versiones posteriores. ASi que no puedo ver como se hace.

Daniel,
gracias!, lo pruebo y te comento algo.

Saludos!