It is possible create two lines of xbrowser footer ?
in first line we can insert a text and on second the data numeric with maketotals ?
I insert the text after the xbrowse now because I not Know how insert a line text before the footer xbrowse
Static Function CreateBrw()
EXTEND CLASS TXBRWCOLUMN WITH DATA cFooterPicture
EXTEND CLASS TXBRWCOLUMN WITH DATA nFooterLines
OVERRIDE METHOD FOOTERSTR IN CLASS TXBRWCOLUMN WITH KFOOTERSTR
@ 0,0 XBROWSE oBrw OF oFld:adialogs[1] ;
COLUMNS 1, 2, 3, 4, 5 ;
HEADERS "Num.","Rata","Quota Capitale","Quota interessi","Capitale residuo" ;
COLSIZES 30, 80, 110, 110,110 ;
ARRAY {} LINES FASTEDIT SIZE oFld:adialogs[1]:nwidth-3, oFld:adialogs[1]:nheight-16 PIXEL NOBORDER
WITH OBJECT oBrw
:lHScroll := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLWIN7
WITH OBJECT oBrw:aCols[ 2 ]
:nDataStrAlign := AL_RIGHT
// :cEditPicture := cPict
:lTotal := .t.
:nTotal :=0
:nFooterType := AGGR_SUM
:nFootStrAlign := AL_RIGHT
:cFooterPicture := "Capitale Rimborsato" + CRLF + cPict
END
WITH OBJECT oBrw:aCols[ 3 ]
:nDataStrAlign := AL_RIGHT
:cEditPicture := cPict
:lTotal := .t.
:nTotal :=0
:nFooterType := AGGR_SUM
:nFootStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[ 4 ]
:nDataStrAlign := AL_RIGHT
:cEditPicture := cPict
:lTotal := .t.
:nTotal :=0
:nFooterType := AGGR_SUM
:nFootStrAlign := AL_RIGHT
END
WITH OBJECT oBrw:aCols[ 5 ]
:nDataStrAlign := AL_RIGHT
:cEditPicture := cPict
END
:lFooter:=.t.
:nFooterLines := 2
:MakeTotals()
:CreateFromCode()
END
return nil
in xbrowse.ch, line 196 is now
CODE: SELECT ALL EXPAND VIEW
<.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>,, ;
The two commas at the end of the line should be made as one comma only like this:
CODE: SELECT ALL EXPAND VIEW
<.lite.>, <nOrder>, <nAt>, <nBmpElem>, [\{ <aBmp> \}], <.hide.>, ;
Silvio.Falconi wrote:sorry But I have an oldest version
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 41 guests