Changeset 154 for trunk/Packages/CoolWeb/Common/HtmlClasses.pas

Timestamp:

Mar 3, 2024, 12:18:21 PM (9 months ago)

Author:

chronos

Message:

• Added: Favicon.

File:

• trunk/Packages/CoolWeb/Common/HtmlClasses.pas (modified) (2 diffs)

trunk/Packages/CoolWeb/Common/HtmlClasses.pas

@@ -168 +168 @@
     Styles: TStringList;
     Scripts: TStringList;
+    FavIcon: string;
     property AsXmlDocument: TXmlDocument read GetAsXmlDocument;
     constructor Create;
@@ -566 +567 @@
           Attributes.Add('media', 'all');
         end;
+        if FavIcon <> '' then
+        with SubElements.AddTag('link') do begin
+          Attributes.Add('rel', 'icon');
+          Attributes.Add('href', FavIcon);
+          Attributes.Add('type', 'image/x-icon');
+        end;
         for I := 0 to Scripts.Count - 1 do
         with SubElements.AddTag('script') do begin