From db23ddb11e799f5752e1065a2224e542f5c099ec Mon Sep 17 00:00:00 2001
From: andrew <andrew@idefix.freepascal.org>
Date: Wed, 26 Nov 2008 04:56:55 +0000
Subject: [PATCH] * fixed writing \ instead of / on win* platforms

git-svn-id: trunk@12230 -
---
 packages/chm/src/chmsitemap.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/packages/chm/src/chmsitemap.pas b/packages/chm/src/chmsitemap.pas
index 2360bdb023..e40a3fbe49 100644
--- a/packages/chm/src/chmsitemap.pas
+++ b/packages/chm/src/chmsitemap.pas
@@ -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);