Page 2 of 2
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 8:25 pm
by 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!
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 8:31 pm
by 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
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 8:37 pm
by pedrog
Daniel,
perdón, entonces he interpretado mal tu solución. Realmente si pinta perfecto después de la última columna.
Gracias !
Saludos!
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 8:50 pm
by Daniel Garcia-Gil
Pedro...
pedrog wrote: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
coloca este IF
Code: Select all | Expand
if ::l2007
GradientFill( hDC, nRow - 1, nCol, nRow + nHeight - 1, nBrwWidth, ;
Eval( oCol:bClrGrad, .f. ) )
endif
prueva y nos comentas, gracias
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 10:26 pm
by 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!
Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 10:58 pm
by 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
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
....
Re: Ayuda sobre xBrowse/Windows 7
Posted: Thu Mar 04, 2010 7:03 pm
by pedrog
Daniel,
ahora perfecto, me pinta la última cabecera del xbrowse.
Muchas gracias!
Saludos!
With bitmaps xBrowse/Windows 7
Posted: Tue Mar 09, 2010 8:18 pm
by Silvio
why he bitmap is not transparent ????