TsBrowse 8 con Super Header

[Patricio Avalos Aguirre]

Estimados, en especial el maestro Manuel Mercado

Uso esta estupenda clase pero ahora estoy usuando los SUPER HEADER

El problema es cuando hay super header la ultima linea no sale, entonces al desplazarse con las flecha
hacia arriba dibuja la ultima linea y queda fija

adjunto un video para mejor visualización

http://rapidshare.com/files/202132491/tsbr.rar.html

Desde ya muchas gracias

[mmercado]

El problema es cuando hay super header la ultima linea no sale, entonces al desplazarse con las flecha
hacia arriba dibuja la ultima linea y queda fija

Hola Patricio:

No he podido reproducir la falla que reportas.

Puedes poner aquí las líneas donde defines el browse?

También dame por favor la resolución del monitor y tu versión de FWH

Por lo pronto para resolver tu problema inmediato, prueba restando un pixel a la altura de los headers o superheaders:

oBrw:nHeightHead -= 1 o bien oBrw:nHeightSuper -= 1

Un abrazo.

Manuel Mercado.

[Patricio Avalos Aguirre]

Gracias maestro por responder

resolucion 1280x1024
monitor viewsonic VG700b
Fwh 8.10
xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/

Code: Select all  Expand view

REDEFINE BROWSE oLbx                                            ;
            OF oDlg CELL                                                ;
         COLORS CLR_BLACK, RGB( 255, 255, 235)              ;
           ID 103                                          ;
            ALIAS "DETALLE"


oLbx:nAdjColumn := 11
oLbx:nHeightCell += 5  //filas
oLbx:nHeightHead += 10  //columnas
oLbx:lNoHScroll := .t.
oLbx:lNoVScroll := .f.

oLbx:SetColor( { 9, 10 }, { CLR_BLACK, ViewUsu():aTexture[1] } )  // brushed Footers background
oLbx:SetColor( { 5, 6, 4, 15 }, ;
                    { CLR_WHITE, CLR_BLACK, ; // cursor
                 ViewUsu():aTexture[1],                     ; // brushed headers background
                 CLR_BLACK },           ; // grid lines
                      NIL )

/*1*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Nombre;
      TITLE "Nombre" ;
      SIZE 155 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*2*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Fecha;
      TITLE "Fecha" ;
      SIZE 72 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*3*/ADD COLUMN TO BROWSE oLbx DATA Detalle->entra1;
      TITLE "Entra" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*4*/ADD COLUMN TO BROWSE oLbx DATA Detalle->entrada1;
      TITLE "Entró" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*5*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Sale1;
      TITLE "Sale" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*6*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Salida1;
      TITLE "Salió" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

 ADD SUPER HEADER TO oLbx FROM COLUMN 3 TO COLUMN 6  TITLE " Mañana " ;
            TRANSPARENT

/*7*/ADD COLUMN TO BROWSE oLbx DATA Detalle->entra2;
      TITLE "Entra" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*8*/ADD COLUMN TO BROWSE oLbx DATA Detalle->entrada2;
      TITLE "Entró" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*9*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Sale2;
      TITLE "Sale" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

/*10*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Salida2;
      TITLE "Salió" ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235)

 ADD SUPER HEADER TO oLbx FROM COLUMN 7 TO COLUMN 10  TITLE " Tarde " ;
            TRANSPARENT

/*11*/ADD COLUMN TO BROWSE oLbx DATA Detalle->Extra;
      TITLE 'Extra sobre '+alltrim(str(nMinsOutOverTime))+'"' ;
      SIZE 55 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER;
        COLORS CLR_BLACK, RGB( 255, 255, 235);
        FOOTERS "0"

ACTIVATE DIALOG oDlg CENTERED

dbCloseAll()
oRecordSet:Close()
oConnection:Close()

return
//----------------------------------------------------------------------------------------------------------------------
 

con oLbx:nHeightHead -= 1
con esta modificación funciona bien

Code: Select all  Expand view

oLbx:nHeightSuper -= 1, este no funciona