FiveTech Software tech support forums

If you look into METHOD PaintFooter( nRow, nCol, nHeight, lInvert ) CLASS TXBrwColumn you see that cFooter := ::footerStr() and ::PaintBmpAndText( { nRow, nCol, nRow + nHeight, nRight }, ; cFooter, ::nFootStrAlign, ::bLeftText, oFont, ...

... number of the column. It is also possible to Hide/Show an entire Group. (18)Custom painting of Header/Footer: New datas oBrw:bPaintHeader, oBrw:PaintFooter, oCol:bPaintHeader and oCol:bPaintFooter enable a programmer to implement custom painting of headers/footers. (19)New DATA nHeadDividerStyle ...

DATA lFootAlignBtn AS LOGICAL INIT .f. // Usado para alinhar o rodapé quando houver um botão (EDIT_GET_BUTTON) METHOD PaintFooter( nRow, nCol, nHeight, lInvert ) CLASS TXBrwColumn ... else if SetAlpha() .and. aBitmap[ BITMAP_ALPHA ] ABPaint( hDC, nBmpCol, nBmpRow, aBitmap[ BITMAP_HANDLE ...

... SetProgBar is not implemented for the total in the footer row. If we need to paint any dynamic graphics on the footer we need to modify the method paintfooter. The best way of implementation is to have a derived class and use the same for browse(s) that need to use this feature.

... hDC, nCol - 2, nRow + nHeight - 2, hGrayPen ) MoveTo( hDC, nCol - 1, nRow + 1 ) LineTo( hDC, nCol - 1, nRow + nHeight - 2, hWhitePen ) ENDIF oCol:PaintFooter( nRow, nCol, nHeight ) //Pinta footer de cada col. next nCol := aCols[ nFor ] //ultimo divisor de col MoveTo( hDC, nCol - 2, nRow + 1 ) ...

... nCol + nWidth }, hBrush ) DeleteObject( hBrush ) endif //----------------------------------------------------------------------------// METHOD PaintFooter( nRow, nCol, nHeight, lInvert ) CLASS TXBrwColumn local hDC, hBrush local oFont local aColors, aBitmap local cFooter local nWidth, nBmpRow, ...

... la apariencia de Office 2007. Por favor, revisa el ejemplo samples\TestTabs.prg. Tiene una apariencia muy elegante !!! * Corrección: El método PaintFooter() de la clase TXBrwColumn no estaba usando la fuente correcta. Ahora lo hace correctamente. * Mejora: La clase TOutLook2003 tiene un nuevo ...

... * Enhancement: Class TTabs now uses Office 2007 look. Please review samples\TestTabs.prg. It looks really nice! * Fix: Class TXBrwColumn Method PaintFooter() was not using the right font. Now it is ok. * Enhancement: Class TOutLook2003 new DATA nOption. It keeps the current selected group. * ...

Mr. Linares,
in xbrowse the font-object from footer are always the font-object from header! Please check the source from method PaintFooter. Wrong is oFont := ::oHeaderFont. Should be oFont := ::oFooterFont!

Mr. Linares,
in xbrowse the font from footer are always the font from header! Please check the source from method PaintFooter. Wrong is oFont := ::oHeaderFont.

... data bStrFooter, que contiene un codeblock que nos debe retornar lo que queremos visualizar en el pie de la columna. Hay que modificar el metodo PaintFooter, y en la linea donde asigna valor a cFooter cambiarla por la siguiente. cFooter := IF(::bStrFooter==NIL,::cFooter,Eval( ...

Julio,

Prueba con:

oCol[1]:cFooter := Tran( nTotal, "9999,999,999" )

oCol[1]:PaintFooter( oBrowse:nHeight - oBrowse:nFooterHeight, nil, oBrowse:nFooterHeight - 3 )

Hola Juan: Contestando a tus dos cuestiones: (1) Sí, es un 'bug', se corrige fácilmente en la clase xBrowse cambiando la línea 3610 del METHOD PaintFooter() donde pone: oFont := ::oHeaderFont debe poner: oFont := ::oFooterFont (2) Como tú propones puedses asignar color ...