topic-18189

Posts: 34

Joined: Tue Dec 30, 2008 07:22 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 08:25 PM

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!

Pedro

FWH9.06 / XMate 1.15 / Borland C++ 5.5.1 / xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6195)

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 08:31 PM

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

pedrog

Posts: 34

Joined: Tue Dec 30, 2008 07:22 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 08:37 PM

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

Gracias !

Saludos!

Pedro

FWH9.06 / XMate 1.15 / Borland C++ 5.5.1 / xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6195)

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 08:50 PM

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

Code (fw): Select all Collapse

   nCol     := aCols[ nFor ]

coloca este IF

Code (fw): Select all Collapse

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

prueva y nos comentas, gracias

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

pedrog

Posts: 34

Joined: Tue Dec 30, 2008 07:22 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 10:26 PM

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!

Pedro

FWH9.06 / XMate 1.15 / Borland C++ 5.5.1 / xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6195)

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Wed Mar 03, 2010 10:58 PM

Pedro

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

Code (fw): Select all Collapse

   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
 ....

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

pedrog

Posts: 34

Joined: Tue Dec 30, 2008 07:22 PM

Re: Ayuda sobre xBrowse/Windows 7
Posted: Thu Mar 04, 2010 07:03 PM

Daniel,

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