paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 14:32:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing \ instead of / on win* platforms

Browse Source 
git-svn-id: trunk@12230 -
This commit is contained in:
andrew 2008-11-26 04:56:55 +00:00
parent e407775dae
commit db23ddb11e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/chm/src/chmsitemap.pas
View File

@ -46,9 +46,10 @@ type
FText: String;
FURL: String;
procedure SetChildren(const AValue: TChmSiteMapItems);
published
public
constructor Create(AOwner: TChmSiteMapItems);
destructor Destroy; override;
published
property Children: TChmSiteMapItems read FChildren write SetChildren;
property Text: String read FText write FText; // Name for TOC; KeyWord for index
property KeyWord: String read FKeyWord write FKeyWord;
@ -349,8 +350,8 @@ var
WriteParam('Keyword', Item.Text);
//if Item.KeyWord <> '' then WriteParam('Keyword', Item.KeyWord);
if Item.Text <> '' then WriteParam('Name', Item.Text);
if (Item.Local <> '') or (SiteMapType = stIndex) then WriteParam('Local', Item.Local);
if Item.URL <> '' then WriteParam('URL', Item.URL);
if (Item.Local <> '') or (SiteMapType = stIndex) then WriteParam('Local', StringReplace(Item.Local, '\', '/', [rfReplaceAll]));
if Item.URL <> '' then WriteParam('URL', StringReplace(Item.URL, '\', '/', [rfReplaceAll]));
if (SiteMapType = stIndex) and (Item.SeeAlso <> '') then WriteParam('See Also', Item.SeeAlso);
//if Item.FrameName <> '' then WriteParam('FrameName', Item.FrameName);
//if Item.WindowName <> '' then WriteParam('WindowName', Item.WindowName);