paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:31:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed bug #14858 where chmsitemap could not properly read a file

Browse Source 
git-svn-id: trunk@13947 -
This commit is contained in:
andrew 2009-10-24 19:06:12 +00:00
parent 2dd66cc265
commit dd72603442
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -124,6 +124,7 @@ type
FUseFolderImages: Boolean; FUseFolderImages: Boolean;
FWindowName: String; FWindowName: String;
FLevel: Integer; FLevel: Integer;
FLevelForced: Boolean;
FWindowStyles: LongInt; FWindowStyles: LongInt;
procedure SetItems(const AValue: TChmSiteMapItems); procedure SetItems(const AValue: TChmSiteMapItems);
protected protected
@ -221,16 +222,26 @@ begin
//WriteLN('Dec Level'); //WriteLN('Dec Level');
DecreaseULevel; DecreaseULevel;
end end
else if (TagName = 'LI') and (FLevel = 0) then
FLevelForced := True
else if TagName = 'OBJECT' then begin else if TagName = 'OBJECT' then begin
Include(FSiteMapBodyTags, smbtOBJECT); Include(FSiteMapBodyTags, smbtOBJECT);
if FLevelForced then
IncreaseULevel;
If FLevel > 0 then // if it is zero it is the site properties If FLevel > 0 then // if it is zero it is the site properties
NewSiteMapItem; NewSiteMapItem;
end end
else if TagName = '/OBJECT' then begin else if TagName = '/OBJECT' then begin
Exclude(FSiteMapBodyTags, smbtOBJECT); Exclude(FSiteMapBodyTags, smbtOBJECT);
if FLevelForced then
begin
DecreaseULevel;
FLevelForced := False;
end;
end end
else begin // we are the properties of the object tag else begin // we are the properties of the object tag
if (smbtOBJECT in FSiteMapBodyTags) then begin if (FLevel > 0 ) and (smbtOBJECT in FSiteMapBodyTags) then begin
if LowerCase(GetTagName(AActualTag)) = 'param' then begin if LowerCase(GetTagName(AActualTag)) = 'param' then begin
TagAttributeName := GetVal(AActualTag, 'name'); TagAttributeName := GetVal(AActualTag, 'name');