FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TsBrowse 8 con Super Header
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
TsBrowse 8 con Super Header
Posted: Tue Feb 24, 2009 09:39 PM
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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: TsBrowse 8 con Super Header
Posted: Tue Feb 24, 2009 10:29 PM
Patricio Avalos Aguirre wrote: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.
manuelmercado at prodigy dot net dot mx
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: TsBrowse 8 con Super Header
Posted: Wed Feb 25, 2009 12:58 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
oLbx:nHeightSuper -= 1, este no funciona
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions