Hello Everybody
http://www.vouch.info/harbour
NOTE: This help manual can be made available in these formats:
1) Compiled HTML format ( .chm )
2) PDF Document ( .pdf )
3) Classic WinHelp ( .hlp ) ( All Windows Versions )
4) MS Help 2.0 for Visual Studio Components
5) Richtext Format ( .rtf ) ( MS Word Compatible )
6) eBook ( .exe )
7) XML ( .xml )
contribs are now documented per function prototypes.
Can someone tell me how I can format a table programatically
to have uniform width - table as well as columns.
I use this code:
FWrite(::hHtml, '<CENTER>' + CRLF)
FWrite( ::hHtml, '<TABLE ' )
FWrite( ::hHtml, 'BGCOLOR="'+ ::SetColorTable + '" ' )
FWrite( ::hHtml, 'BORDER='+NTRIM( ::nBorder )+' ' )
FWrite( ::hHtml, 'FRAME=ALL ' )
FWrite( ::hHtml, 'CellPadding='+NTRIM( ::nCellPadding )+' ' )
FWrite( ::hHtml, 'CellSpacing='+NTRIM( ::nCellSpacing )+' ' )
FWrite( ::hHtml, 'COLS=' + NTRIM( ::nCols ) )
FWrite( ::hHtml, 'WIDTH="90%" ' )
FWrite( ::hHtml, '>'+CRLF )
if !Empty( ::cTitle )
FWrite( ::hHtml, '<CAPTION ALIGN=TOP>' + ::cTitle+'\'+cModule +
'</CAPTION>' )
FWrite( ::hHtml, CRLF )
endif
FWrite( ::hHtml, "<TR>" )
for i := 1 TO ::nCols
cCell := ::aColumns[ i,COL_HEADING ]
cCell := StrTran( cCell, ";", "<BR>" )
FWrite( ::hHtml, "<TH COLSPAN=1 VALIGN=BOTTOM>"+cCell )
next
FWrite( ::hHtml, CRLF )
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/Harbour-Online-Help---3-tp18253505p18253505.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
