Changeset 154 for trunk

Timestamp:

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

Author:

chronos

Message:

• Added: Favicon.

Location:

trunk

Files:

• Modules/ZdechovNET/ModuleZdechovNET.pas (modified) (1 diff)
• Packages/CoolWeb/Common/HtmlClasses.pas (modified) (2 diffs)
• images/favicon.ico (added)

trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

@@ -340 +340 @@
       HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/Global.js'));
       HtmlDocument.Scripts.Add(NavigationLink('/Style/' + TCore(MainModule).Style + '/jquery.js'));
+      HtmlDocument.FavIcon := NavigationLink('/images/favicon.ico');
 
       TitleTag := THtmlString.Create;

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