FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour bordes y ultima columna xBrowse
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
bordes y ultima columna xBrowse
Posted: Tue Mar 02, 2010 10:32 PM
Holas,

recien intento ver el xBrowse, de la siguiente imagen:



tengo las siguientes preguntas:

1.- es posible tener un borde en el XBROWSE como el de un GET, es decir de una sola linea, ya que cuando se define border en el recurso, se presenta con un borde en 3d que no me agrada.

2.- Como ajustar la ultima columna para que no se muestre la ultima linea, he utilizado xBrw:nStretchCol := STRETCHCOL_LAST

saludos y gracias por su tiempo

Marcelo
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: bordes y ultima columna xBrowse
Posted: Tue Mar 02, 2010 10:57 PM

Hola Marcelo,

Que version estas usando?

Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: bordes y ultima columna xBrowse
Posted: Tue Mar 02, 2010 11:01 PM

Daniel,

si, que estupido, uso la version 9.06

saludos

Marcelo

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: bordes y ultima columna xBrowse
Posted: Tue Mar 02, 2010 11:16 PM

Marcelo...

no es ninguna estupidez, malo seria que no lo usaras :wink:

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: bordes y ultima columna xBrowse
Posted: Wed Mar 03, 2010 02:04 AM
Marcelo

creo que seria muy facil para ti estos cambios despues de ver lo que has hecho con el preview

lo que hay que hacer es validar que cuando usas STRETCHCOL_LAST no mostrar ese borde, eso lo podrias ubicar en el metodo paint...

agregar este IF para estas lineas en los HEADERS
Code (fw): Select all Collapse
            if ::nStretchCol != STRETCHCOL_LAST
               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 )
            endif


y para los FOOTERS igual
Code (fw): Select all Collapse
         if ::nStretchCol != STRETCHCOL_LAST
            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 )
         endif
Posts: 1088
Joined: Fri Oct 07, 2005 03:33 PM
Re: bordes y ultima columna xBrowse
Posted: Wed Mar 03, 2010 03:49 PM

Daniel,

gracias por la ayuda, lo vere

saludos

Marcelo

Continue the discussion