Ayuda sobre xBrowse/Windows 7

[pedrog]

Hola Daniel,
pues la verdad es que no ha funcionado, voy a ver si soy capaz de ver si me hace el degradado en el ultimo header que pinta el xbrowse, así sin usar el STRETCHCOL_LAST, se vería perfecto. En realidad este es el bug, ya que si pintara el ultimo header, se vería bien, aunque pinte una columna vacía al final.

Si pintase bien este header, el efecto quedaría bien, ya que la barra selectora con el degradado queda perfecta ahora.



La otra opción será poner el xbrowse sin el efecto 2007.



Muchas gracias por tu atención.

Saludos!

[Daniel Garcia-Gil]

Pedro...

El codigo que publique era para que la linea selectora pintara despues de la ultima columna, no resuelve el punto del HEADER que comentas, de hecho el xbrowse en la actualidad trabaja de esa forma los HEADERS, hasta los momentos no tengo noticias que eso se haya reportado como un bug, buscare solucion a lo que solicitas

[pedrog]

Daniel,
perdón, entonces he interpretado mal tu solución. Realmente si pinta perfecto después de la última columna.

Gracias !

Saludos!

[Daniel Garcia-Gil]

Pedro...

Daniel,
perdón, entonces he interpretado mal tu solución. Realmente si pinta perfecto después de la última columna.

Gracias !

Saludos!

no hay por que disculparse, no hay problema.

pienso que la posible solucion a la que planteas es agregar este IF en el METHOD PaintHeader de la clase TxBrowse (cuidado que hay 2 metodos con el mismo nombre, el otro es de la clase TXBrwColumn)

despues de esta linea

Code: Select all  Expand view  RUN

  nCol     := aCols[ nFor ]

coloca este IF

Code: Select all  Expand view  RUN

   if ::l2007
      GradientFill( hDC, nRow - 1, nCol, nRow + nHeight - 1, nBrwWidth, ;
               Eval( oCol:bClrGrad, .f. ) )
   endif
 

prueva y nos comentas, gracias

[pedrog]

Hola Daniel,

en mi xbrowse sólo hay un método PaintHeader y es el de la clase TXBrwcolumn.
En la clas e TXBrowse hay un método Paint, pero ahí no sé...

Saludos!

[Daniel Garcia-Gil]

Pedro

para la version que usas la pienso deberias el mismo IF en el METHOD Paint justo antes del ELSE de este IF

Code: Select all  Expand view  RUN

   If ::nHeader==0
...
...

            nCol := aCols[ nFor ]
            MoveTo( hDC, nCol - 2, nRow + 1 )
            LineTo( hDC, nCol - 2, nRow + nHeight - 2, hGrayPen )
            MoveTo( hDC, nCol - 1, nRow + 1 )
            LineTo( hDC, nCol - 1, nRow + nHeight - 2, hWhitePen )
            // colocar aca
            if ::l2007
               GradientFill( hDC, nRow - 1, nCol, nRow + nHeight - 1, nBrwWidth, ;
                            Eval( oCol:bClrGrad, .f. ) )
            endif  
   else
 ....
 

[pedrog]

Daniel,

ahora perfecto, me pinta la última cabecera del xbrowse.



Muchas gracias!

Saludos!

[Silvio]

why he bitmap is not transparent ????