Changes :
- new icon
- new feature : you may now add a user index (right-click on topic list, like for a user topic)
Thanks LSI (french forum) for this feature (and the icon

Moderator: gnozal
Code: Select all
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
Code: Select all
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
Code: Select all
Description = ReplaceString(Description, HTMLHelpFiles()\FunctionName + "()", "<a href=" + #g + HTMLHelpFiles()\FunctionName + ".html" + #g + ">" + HTMLHelpFiles()\FunctionName + "()</a>")
Il me semble l'avoir corrigé dans la version disponible sur mon site ?Le Soldat Inconnu wrote:and again one on line 946, i had system to add link on function but i forgot to add () after function name to search function.
en gros, j'ai zappé les () lors de la recherche des noms de fonction et du coup avec des fonctions du style CreateSkinWindow et CreateSkinWindowError, ça ne marche pas car je détecte CreateSkinWindow dans CreateSkinWindowError
Code: Select all
Description = ReplaceString(Description, HTMLHelpFiles()\FunctionName + "()", "<a href=" + #g + HTMLHelpFiles()\FunctionName + ".html" + #g + ">" + HTMLHelpFiles()\FunctionName + "()</a>")
Je ne me souviens plus trop... Je n'ai pas le code sous la main.Le Soldat Inconnu wrote:Aucune idée, je tourne la version que j'ai compilé![]()
Et pour le </Font> en trop ?