Add example screenshots to the WizardStyle topic.

ISHelp/ISHelpGen/ISHelpGen.dpr

@@ -15,7 +15,7 @@ uses
   PathFunc in '..\..\Components\PathFunc.pas';
 
 const
-  Version = '1.21';
+  Version = '1.22';
 
   XMLFileVersion = '1';
 
@@ -42,6 +42,7 @@ type
     elFlagList,
     elHeading,
     elI,
+    elImg,
     elIndent,
     elKeyword,
     elLI,
@@ -377,6 +378,11 @@ begin
         Result := Result + '<dl>' + ParseFormattedText(Node) + '</dl>';
       elI:
         Result := Result + '<i>' + ParseFormattedText(Node) + '</i>';
+      elImg:
+        begin
+          S := EscapeHTML(Node.Attributes['src']);
+          Result := Result + Format('<img src="images/%s" />', [S]);
+        end;
       elIndent:
         Result := Result + '<div class="indent">' + ParseFormattedText(Node) + '</div>';
       elLI:
@@ -398,7 +404,7 @@ begin
           if Pos('ms-its:', S) = 1 then
             Result := Result + Format('<a href="%s">%s</a>', [S, ParseFormattedText(Node)])
           else
-            Result := Result + Format('<a href="%s" target="_blank" title="%s">%s</a><img src="images/extlink.png" srcset="images/extlink.svg" alt=" [external link]" />',
+            Result := Result + Format('<a href="%s" target="_blank" title="%s">%s</a><img class="extlink" src="images/extlink.png" srcset="images/extlink.svg" alt=" [external link]" />',
               [S, S, ParseFormattedText(Node)]);
         end;
       elHeading:

ISHelp/Staging-dark/images/.gitignore

@@ -0,0 +1 @@
+wizardstyle*.png

ISHelp/Staging-dark/styles.css

@@ -45,9 +45,11 @@ TD {
 	vertical-align: baseline;
 }
 IMG {
+	border-style: none;
+}
+IMG.extlink {
 	width: 16px;
 	height: 16px;
-	border-style: none;
 	padding-left: 2px;
 }
 A:link, A:visited {

ISHelp/Staging/styles.css

@@ -56,9 +56,11 @@ TD {
 	vertical-align: baseline;
 }
 IMG {
+	border-style: none;
+}
+IMG.extlink {
 	width: 16px;
 	height: 16px;
-	border-style: none;
 	padding-left: 2px;
 }
 A:link, A:visited {

ISHelp/isetup.dtd

@@ -1,6 +1,6 @@
 <!--
   Inno Setup
-  Copyright (C) 1997-2006 Jordan Russell
+  Copyright (C) 1997-2025 Jordan Russell
   Portions by Martijn Laan
   For conditions of distribution and use, see LICENSE.TXT.
 
@@ -11,7 +11,7 @@
 <!ENTITY copy "&#169;"> 
 
 <!ENTITY % _inlineExceptLink "b | br | i | tt | u">
-<!ENTITY % _inline "%_inlineExceptLink; | link | extlink | a | anchorlink">
+<!ENTITY % _inline "%_inlineExceptLink; | link | extlink | img | a | anchorlink">
 <!ENTITY % _block "p | heading | pre | precode | example | examples | indent | ul | ol | dl | paramlist | flaglist | table">
 
 <!ENTITY % Inline "(#PCDATA | %_inline;)*">
@@ -52,6 +52,8 @@
 <!ATTLIST link topic CDATA #REQUIRED anchor CDATA #IMPLIED>
 <!ELEMENT extlink %InlineExceptLink;>
 <!ATTLIST extlink href CDATA #REQUIRED>
+<!ELEMENT img %InlineExceptLink;>
+<!ATTLIST img src CDATA #REQUIRED>
 <!ELEMENT a %InlineExceptLink;>
 <!ATTLIST a name CDATA #REQUIRED>
 <!ELEMENT anchorlink %InlineExceptLink;>

ISHelp/isetup.xml

@@ -5707,6 +5707,15 @@ DiskSliceSize=736000000
 <li>Enabling forced dark (<tt>dark</tt>) increases the size of Setup by approximately 230 KB. Enabling dynamic dark (<tt>dynamic</tt>) adds approximately 85 KB more.</li>
 <li>Messages displayed by the so-called "setup loader" will never be dark. Normally no such messages are displayed, unless you enabled the startup prompt using <link topic="setup_disablestartupprompt">DisableStartupPrompt</link>.</li>
 </ul>
+<heading>Example screenshots</heading>
+<p><tt>classic</tt><br/><br/><img src="wizardstyle-classic.png"/></p>
+<p><tt>classic dark</tt><br/><br/><img src="wizardstyle-classic-dark.png"/></p>
+<p><tt>modern</tt><br/><br/><img src="wizardstyle-modern.png"/></p>
+<p><tt>modern dark</tt><br/><br/><img src="wizardstyle-modern-dark.png"/></p>
+<p><tt>modern polar</tt><br/><br/><img src="wizardstyle-modern-polar.png"/></p>
+<p><tt>modern dark polar</tt><br/><br/><img src="wizardstyle-modern-dark-polar.png"/></p>
+<p><tt>modern slate</tt><br/><br/><img src="wizardstyle-modern-slate.png"/></p>
+<p><tt>modern zircon</tt><br/><br/><img src="wizardstyle-modern-zircon.png"/></p>
 <p><b>See also:</b><br/>
 <link topic="setup_wizardstylefile">WizardStyleFile</link></p>
 </body>

ISHelp/synch-darkfiles.bat

@@ -7,6 +7,7 @@ echo - Synching files from Staging to Staging-dark
 copy Staging\hh_project.hhp Staging-dark
 copy Staging\stoplist.stp Staging-dark
 copy Staging\topic.js Staging-dark
+copy Staging\images\wizardstyle*.png Staging-dark\images
 
 echo - Synching files done