Changed: skip 'A demo program ...' if CompName is empty

- Allows using dialog not only for component demos
BerndGabriel · May 6, 2017 · b54e5ab · b54e5ab
1 parent d1b3cd7
commit b54e5ab
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/Demos/Main Demos/Htmlabt.pas b/Demos/Main Demos/Htmlabt.pas
@@ -202,9 +202,14 @@ constructor TAboutBox.CreateIt(Owner: TComponent; const ProgName, CompName, Rema
   Body :=
     '<body text="000080">' +
     '<center>' +
-    '<h1>' + ProgName + '</h1>' +
-    '<font color="Maroon">A demo program for the <b>' + CompName + '</b> component</font>' +
-    '<h3>Version ' + VersionNo + '</h3>' +
+    '<h1>' + ProgName + '</h1>';
+
+  if Length(CompName) > 0 then
+    Body := Body +
+      '<font color="Maroon">A demo program for the <b>' + CompName + '</b> component</font>' +
+      '<h3>Version ' + VersionNo + '</h3>';
+
+  Body := Body +
     Remarks +
     '</center>' +
     ConfigInfo +