FiveTech Software tech support forums

... Methods for displaying and closing temporary message boxes within the browse.

DrawChart(), DrawChartInRect(), PaintBmpAndText(), PaintHeader(), PaintFooter(), PaintHDivider(), PaintVDivider(), PaintTopBar(), PaintCellBack(), PaintCell(), PaintCellBtn(), PaintCellImage ...

... Same as DATA member PaintVDivider)

Return Value: None

Usage Example: (Internal use only - method version for codeblock usage)

263. PaintHeader( hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen )

Description: Accessor for PaintHeader (same as DATA member, method version for codeblock ...

... Pen handle for column lines.

hWhitePen: OBJECT - Pen handle for white color.

Return Value: None

Usage Example: (Internal use only)

190. PaintHeader( hDC, aCols, nLast, hWhitePen, hGrayPen, hColPen )

Description: Paints the header area of the browse (internal method).

Parameters:

hDC ...

... DELETEOBJECT(0)
Called from FILLRECTEX(0)
Called from FW_SAYTEXT(0)
Called from TXBRWCOLUMN:PAINTBMPANDTEXT(14494)
Called from TXBRWCOLUMN:PAINTHEADER(14604)
Called from TXBROWSE:PAINTHEADER(2885)
Called from TXBROWSE:PAINT(2402)
Called from TXBROWSE:DISPLAY(2221)
Called from TCONTROL ...

... Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTBMPANDTEXT( 13879 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTHEADER( 14044 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINTHEADER( 2825 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT ...

... BASE/1081 Argument error: +
Args:
[ 1] = N 2
[ 2] = U

Stack Calls
===========
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:PAINTHEADER( 14000 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINTHEADER( 2825 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT ...

... prg:

METHOD SetDate( dDate ) CLASS TMonthView
...
::dEnd := ::dStart + 34
::nWks := 6 <------------------------------ De 5 para 6
...

METHOD PaintHeader( hDC ) CLASS TMonthView
//local dFirstDateWeek := ::GetFirstDateWeek( ::dDate ) //::dDate - DoW( ::dDate ) + 1
local dFirstDateWeek := ::dDate ...

Fixed and the fix is available in FWH 17.02.

You can implement the fix with the following correction.
Please locate these lines in the
METHOD PaintHeader(...) CLASS TXBrwColumn
&nbsp; &nbsp;if nCol != nil&nbsp; &nbsp; &nbsp; if nCol != 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;::nDisplayCol := nCol&nbsp ...

Mr Nages.

Gracias por sus sugerencias, su atención, y su codigo.

Precisamente estaba tratando de crear la function RefreshHeaders() y/o usar PaintHeader(), pero aún no lo había logrado de ese modo, así que decidí exponer el código por si alguien decidía mejorarlo.

Nuevamente, gracias ...

... 1 to nLast aCols&#91; nFor &#93; := nCol oCol := oBrw:ColAtPos&#40; nFor &#41; nCol += oCol:nWidth + 2 next aCols&#91; nFor &#93; := nCol oBrw:PaintHeader&#40; oBrw:GetDC&#40;&#41;, aCols, nLast, oBrw:hWhitePen, oBrw:hBtnShadowPen, oBrw:hColPen &#41; oBrw:ReleaseDC&#40;&#41;return nil ...

... me personally by email.
But for the benefit of all I like to post the fix.

Please make this correction in the xbrowse.prg.

In the method PaintHeader( ... ) class TXBrowse, please locate this line of code:

present code:
if oCol:cGrpHdr != cGrpHdr
please change this line as:
if .not. ( oCol ...

... IF&#40; ::oBrw:lSortBmp, ::oBrw:aSortBmp&#91; 1 &#93;&#91; BITMAP_WIDTH &#93;, 0 &#41; + BMP_EXTRAWIDTH // MVG endif

Finally
In METHOD PaintHeader CLASS TXBrwColumn Modify
if ! Empty&#40; ::cOrder &#41; .AND. ::oBrw:lSortBmp aBitmap := ::oBrw:aSortBmp&#91; If&#40; ::cOrder == 'A', 1, 2 ...

... modify or AL_RIGHT?

nageswaragunupudi escribió:

This is not provided even in the current version.
You need to change xbrowse.prg or override paintheader() method of TXBrwColumn


Asi se ve el ejemplo con FW13.08 (XBrowse original)

So you see the example FW13.08 (Original xBrowse)

http&#58 ...

... modify or AL_RIGHT?

nageswaragunupudi escribió:

This is not provided even in the current version.
You need to change xbrowse.prg or override paintheader() method of TXBrwColumn


Asi se ve el ejemplo con FW13.08 (XBrowse original)

So you see the example FW13.08 (Original xBrowse)

http&#58 ...

... how to come out AL_LEFT modify or AL_RIGHT?

This is not provided even in the current version.
You need to change xbrowse.prg or override paintheader() method of TXBrwColumn

Si, ya lo tengo implementado

Yes, I have already implemented

- Like I can paint text in the cell that I have the ...