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

* foreground,background color sitemap reading for TOC, fixes #40402

Browse Source
This commit is contained in:
marcoonthegit 2023-08-19 11:04:33 +02:00
parent 203c566875
commit fb0d1c353c
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,7 +58,9 @@ type
siteattr_EXWINDOW_STYLES,
siteattr_FONT,
siteattr_IMAGELIST,
siteattr_IMAGETYPE
siteattr_IMAGETYPE,
siteattr_BACKGROUND,
siteattr_FOREGROUND
);
{ TChmSiteMapSubItem }
@ -251,7 +253,9 @@ const sitemapkws : array[TChmSiteMapItemAttrName] of string = (
'EXWINDOW STYLES',
'FONT',
'IMAGELIST',
'IMAGETYPE');
'IMAGETYPE',
'BACKGROUND',
'FOREGROUND');
function indexitemcompare(Item1, Item2: Pointer): Integer;
begin
@ -397,6 +401,8 @@ begin
siteattr_FONT : Font:=TagAttributeValue;
siteattr_IMAGELIST : ImageList:=TagAttributeValue;
siteattr_IMAGETYPE : UseFolderImages:=uppercase(TagAttributeValue)='FOLDER';
siteattr_BACKGROUND : BackgroundColor:=strtointdef(trim(TagAttributeValue),longint(-1));
siteattr_FOREGROUND : ForegroundColor:=strtointdef(trim(TagAttributeValue),0)
end;
end;
// writeln('0:',flevel,' ' ,aactualtag,' ',tagname,' ' ,tagattributename, ' ' ,tagattributevalue);