Gnozal, i do small mistake
before
Code:
Procedure.l CreateFunctionHelpFile(Filename.s)
Protected Description.s, Example.s, Overview.s, Stream.l, ReturnValue.l, ListIconText.s, UserIndexOpen.l
Stream = CreateFile(#PB_Any, Filename)
If Stream
Overview = HTMLHelpFiles()\SyntaxOrOverview
Description = HTMLHelpFiles()\Description
Example = HTMLHelpFiles()\Example
WriteStringN("<html><head><title>" + HTMLHelpFiles()\PageTitle + "</title><meta name= " + #g + "GENERATOR" + #g + "content=" + #g + "PureHELP Maker (c) gnozal" + #g + "></HEAD>")
WriteStringN("<body bgcolor=" + #g + "#FFFFDF" + #g + " link=" + #g + "#009999" + #g + " vlink=" + #g + "#006666" + #g + " alink=" + #g + "#006666" + #g + ">")
WriteStringN("<font face=" + #g + "Arial" + #g + " size=" + #g + "2" + #g + "><p align=" + #g + "center" + #g + "><b><font size=" + #g + "4" + #g + ">" + HTMLHelpFiles()\PageTitle + " </Font></b></p>")
If HTMLHelpFiles()\UserPage
WriteStringN("<blockquote><font face=" + #g + "Arial" + #g + "size=" + #g + "2" + #g + ">")
Description = ReplaceString(Description, #CRLF, "<br>" + #CRLF)
WriteStringN(Description)
WriteStringN("</font></blockquote>")
ElseIf HTMLHelpFiles()\UserIndex
If Overview
WriteStringN("<p><b>"+ Language_Overview + "</b></p>")
Overview = ReplaceString(Overview, #CRLF, "<br>" + #CRLF)
WriteStringN(Overview)
WriteStringN("<Font></blockquote>")
EndIf
on last WriteStringN("<Font></blockquote>"), there is <Font> and you have to remove it
after
Code:
Procedure.l CreateFunctionHelpFile(Filename.s)
Protected Description.s, Example.s, Overview.s, Stream.l, ReturnValue.l, ListIconText.s, UserIndexOpen.l
Stream = CreateFile(#PB_Any, Filename)
If Stream
Overview = HTMLHelpFiles()\SyntaxOrOverview
Description = HTMLHelpFiles()\Description
Example = HTMLHelpFiles()\Example
WriteStringN("<html><head><title>" + HTMLHelpFiles()\PageTitle + "</title><meta name= " + #g + "GENERATOR" + #g + "content=" + #g + "PureHELP Maker (c) gnozal" + #g + "></HEAD>")
WriteStringN("<body bgcolor=" + #g + "#FFFFDF" + #g + " link=" + #g + "#009999" + #g + " vlink=" + #g + "#006666" + #g + " alink=" + #g + "#006666" + #g + ">")
WriteStringN("<font face=" + #g + "Arial" + #g + " size=" + #g + "2" + #g + "><p align=" + #g + "center" + #g + "><b><font size=" + #g + "4" + #g + ">" + HTMLHelpFiles()\PageTitle + " </Font></b></p>")
If HTMLHelpFiles()\UserPage
WriteStringN("<blockquote><font face=" + #g + "Arial" + #g + "size=" + #g + "2" + #g + ">")
Description = ReplaceString(Description, #CRLF, "<br>" + #CRLF)
WriteStringN(Description)
WriteStringN("</font></blockquote>")
ElseIf HTMLHelpFiles()\UserIndex
If Overview
WriteStringN("<p><b>"+ Language_Overview + "</b></p>")
Overview = ReplaceString(Overview, #CRLF, "<br>" + #CRLF)
WriteStringN(Overview)
WriteStringN("</blockquote>")
EndIf
Sorry
