Add note of database version to database tab of about box

Also reformatted some code.

Author: delphidabbler

Src/FmAboutDlg.pas

@@ -424,49 +424,42 @@ procedure TAboutDlg.InitHTMLFrames;
       var
         IsDBAvalable: Boolean;
         IsMetaDataAvailable: Boolean;
-        IsLicenseInfomAvailable: Boolean;
+        IsLicenseInfoAvailable: Boolean;
       begin
         // Resolve conditionally displayed block placeholders
         IsDBAvalable := Database.Snippets.Count(False) > 0;
         IsMetaDataAvailable := fMetaData.IsSupportedVersion
           and not fMetaData.IsCorrupt;
-        IsLicenseInfomAvailable := IsMetaDataAvailable
+        IsLicenseInfoAvailable := IsMetaDataAvailable
           and (fMetaData.GetLicenseInfo.Name <> '')
           and (fMetaData.GetCopyrightInfo.Date <> '')
           and (fMetaData.GetCopyrightInfo.Holder <> '');
         Tplt.ResolvePlaceholderHTML(
-          'DBAvailable',
-          TCSS.BlockDisplayProp(IsDBAvalable)
+          'DBAvailable', TCSS.BlockDisplayProp(IsDBAvalable)
         );
         Tplt.ResolvePlaceholderHTML(
-          'DBNotAvailable',
-          TCSS.BlockDisplayProp(not IsDBAvalable)
+          'DBNotAvailable', TCSS.BlockDisplayProp(not IsDBAvalable)
         );
         Tplt.ResolvePlaceholderHTML(
-          'MetaDataAvailable',
-          TCSS.BlockDisplayProp(IsMetaDataAvailable)
+          'MetaDataAvailable', TCSS.BlockDisplayProp(IsMetaDataAvailable)
         );
         Tplt.ResolvePlaceholderHTML(
-          'MetaDataNotAvailable',
-          TCSS.BlockDisplayProp(not IsMetaDataAvailable)
+          'MetaDataNotAvailable', TCSS.BlockDisplayProp(not IsMetaDataAvailable)
         );
         Tplt.ResolvePlaceholderHTML(
-          'LicenseInfoAvailable',
-          TCSS.BlockDisplayProp(IsLicenseInfomAvailable)
+          'LicenseInfoAvailable', TCSS.BlockDisplayProp(IsLicenseInfoAvailable)
         );
         Tplt.ResolvePlaceholderHTML(
           'LicenseInfoNotAvailable',
-          TCSS.BlockDisplayProp(not IsLicenseInfomAvailable)
+          TCSS.BlockDisplayProp(not IsLicenseInfoAvailable)
         );
 
-        // Rsolve content placeholders
+        // Resolve content placeholders
         Tplt.ResolvePlaceholderText(
-          'CopyrightYear',
-          fMetaData.GetCopyrightInfo.Date
+          'CopyrightYear', fMetaData.GetCopyrightInfo.Date
         );
         Tplt.ResolvePlaceholderText(
-          'CopyrightHolders',
-          fMetaData.GetCopyrightInfo.Holder
+          'CopyrightHolders', fMetaData.GetCopyrightInfo.Holder
         );
         Tplt.ResolvePlaceholderHTML(
           'DBLicense',
@@ -489,6 +482,7 @@ procedure TAboutDlg.InitHTMLFrames;
         Tplt.ResolvePlaceholderHTML(
           'TesterList', ContribListHTML(fMetaData.GetTesters)
         );
+        Tplt.ResolvePlaceholderText('Version', fMetaData.GetVersion);
       end
     );
   end;

Src/Res/HTML/dlg-about-database-tplt.html

@@ -46,7 +46,7 @@
       <a
         class="external-link"
         href="https://github.com/delphidabbler/code-snippets"
-      >Code Snippets Database</a> is a resource containing numerous fragments of useful Object Pascal code.
+      >Code Snippets Database</a> is a resource containing numerous fragments of useful Object Pascal code.<span style="<%LicenseInfoAvailable%>"> You are using version <%Version%></span>
     </p>
 
     <div style="<%DBAvailable%>">