Yo pondría en xBrowse para mostrar tres registros por página. ¿es posible?
Por supuesto, cuando se le informó que el xBrowse deberá demostrar que la altura de las células
ronaldo
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xBrowse 3 reg por pagina
Yes.
Please set oBrw:nRowHeight equal to 1/3 or the height of browse defined by you.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
but I need to properly adjust the xbrowse 3 lines at the right height
Please try the logic in this sample:
Result with lFixedRowHeight := .t.
With lFixedRowHeight := .f.
#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
#include "hbcompat.ch"
REQUEST DBFCDX
#xtranslate <x> [is] between <a> and <b> => ( <x> >= <a> .and. <x> <= <b> )
#xtranslate <x> [is] not between <a> and <b> => !( <x> between <a> and <b> )
//----------------------------------------------------------------------------//
function Main()
local oDlg, oBrw
USE CUSTOMER NEW VIA 'DBFCDX'
DEFINE DIALOG oDlg SIZE 500,500 PIXEL
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
AUTOCOLS ALIAS "CUSTOMER" FOOTERS CELL LINES NOBORDER
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT SetBrwSize( oBrw )
CLOSE CUSTOMER
return nil
//----------------------------------------------------------------------------//
static function SetBrwSize( oBrw )
local oDlg := oBrw:oWnd
local aRect := oBrw:DataRect()
local nHeight := aRect[ 3 ] - aRect[ 1 ] + 1
local nAdjust
local lFixedRowHeight := .t. // try with .t. or .f.
if lFixedRowHeight
oBrw:nRowHeight:= 40
else
oBrw:nRowHeight := Int( nHeight / 3 )
endif
nAdjust := ( oBrw:nRowHeight * 3 - nHeight + 2 )
oBrw:nHeight += nAdjust
oDlg:nHeight += nAdjust
oBrw:SetFocus()
return .f.
//----------------------------------------------------------------------------//Result with lFixedRowHeight := .t.
With lFixedRowHeight := .f.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Gracias