Explorar o código

Follow up commit to #40402

 * prefix 0x when writing hex values.
 * write 8, not 4 digits.
marcoonthegit hai 1 ano
pai
achega
1a4428536f
Modificáronse 1 ficheiros con 4 adicións e 4 borrados
  1. 4 4
      packages/chm/src/chmsitemap.pas

+ 4 - 4
packages/chm/src/chmsitemap.pas

@@ -615,10 +615,10 @@ begin
       if WindowName <> '' then WriteParam('WindowName', WindowName);
       if ImageList <> '' then WriteParam('ImageList', ImageList);
       if ImageWidth > 0 then WriteParam('Image Width', IntToStr(ImageWidth));
-      if BackgroundColor <> 0 then WriteParam('Background', hexStr(BackgroundColor, 4));
-      if ForegroundColor <> 0 then WriteParam('Foreground', hexStr(ForegroundColor, 4));
-      if ExWindowStyles <> 0 then WriteParam('ExWindow Styles', hexStr(ExWindowStyles, 4));
-      if WindowStyles <> 0 then WriteParam('Window Styles', hexStr(WindowStyles, 4));
+      if BackgroundColor <> 0 then WriteParam('Background', '0x'+hexStr(BackgroundColor, 8));
+      if ForegroundColor <> 0 then WriteParam('Foreground', '0x'+hexStr(ForegroundColor, 8));
+      if ExWindowStyles <> 0 then WriteParam('ExWindow Styles', '0x'+hexStr(ExWindowStyles, 8));
+      if WindowStyles <> 0 then WriteParam('Window Styles', '0x'+hexStr(WindowStyles, 8));
       if UseFolderImages then WriteParam('ImageType', 'Folder');
     end;
     // both TOC and Index have font