fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-01-16 01:28:04 +00:00
parent 9fb5d46615
commit c3b93b4fb1
2 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/source/tools/html.prg
View File

@@ -1,7 +1,3 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* HTML Support Code For FT_HELPC

15
harbour/source/tools/rtf.prg
View File

@@ -1,7 +1,3 @@
/*
* $Id$
*/
/*
* Harbour Project source code:
* RTF Support Code For FT_HELPC
@@ -101,8 +97,7 @@ FWRITE(Self:nHandle,cColorTable)
RETURN Self
METHOD WritePar(cPar) CLASS TRTF
FWRITE(Self:nHandle,'\pard{\cf1\fs20 '+alltrim(cPar))
FWRITE(Self:nHandle,'\pard{\cf1\fs20 '+cPar)
RETURN Self
METHOD EndPar() CLASS TRTF
FWRITE(Self:nHandle, ' }\par'+CRLF)
@@ -122,13 +117,13 @@ else
endif
cTopic:=Alltrim(cTopic)
cWrite:='{\f2'+CRLF+;
' #{\footnote \pard\plain \fs20 # '+cTemp +' }'+CRLF+;
' #{\footnote \pard\plain \fs20 # '+"IDH_"+cTemp +' }'+CRLF+;
' ${\footnote \pard\plain \fs20 $ '+Alltrim(cTopic) +' }'+CRLF+;
' K{\footnote \pard\plain \fs20 K '+Alltrim(cTopic) +' }'+CRLF+;
'}'+CRLF
FWRITE(Self:nHandle,cWrite)
Self:WritePar(cTopic):EndPar()
Self:WriteParBold(cTopic)
RETURN Self
METHOD CLOSE() CLASS TRTF
FWRITE(Self:nHandle,'\page'+CRLF)
@@ -138,5 +133,7 @@ FCLOSE(Self:nHandle)
RETURN Self
METHOD WriteLink(cLink) CLASS TRTF
FWRITE(Self:nHandle,'\pard{\cf1\fs20 {\f2\uldb '+alltrim(cLink)+'}{\v\f2 '+alltrim(strtran(cLink,"()","xx")) +'} }\par'+CRLF)
FWRITE(Self:nHandle,'\pard{\cf1\fs20 {\f2\uldb '+alltrim(cLink)+'}{\v\f2 '+"IDH_"+alltrim(strtran(cLink,"()","xx")) +'} }\par'+CRLF)
RETURN Self