From c0fbe886a0d5ddc18c122b8f1b603fcc38e0bbad Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Sat, 24 Sep 2022 18:49:25 +0200
Subject: [PATCH] Tools/Icons_to_HTML: Speed-up display of icons in IconTable
 application. Patch by Roland Hahn.

---
 tools/icons_to_html/main.lfm | 1 +
 tools/icons_to_html/main.pas | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/tools/icons_to_html/main.lfm b/tools/icons_to_html/main.lfm
index 8562832339..900ebc935c 100644
--- a/tools/icons_to_html/main.lfm
+++ b/tools/icons_to_html/main.lfm
@@ -11,6 +11,7 @@ object MainForm: TMainForm
   OnShow = FormShow
   Position = poScreenCenter
   ShowHint = True
+  LCLVersion = '2.3.0.0'
   object DirectoryEdit: TDirectoryEdit
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = sbtnLastDirs
diff --git a/tools/icons_to_html/main.pas b/tools/icons_to_html/main.pas
index 8071f3b3ca..00b68e0568 100644
--- a/tools/icons_to_html/main.pas
+++ b/tools/icons_to_html/main.pas
@@ -293,7 +293,7 @@ begin
           LineStr := '';
           for isl := StartIdx to i do
             if IcoSizeList[isl] = PixSizeList[ips] then
-              LineStr := '    <td><img src="' + IcoFileList.Strings[isl] + '.png" alt=""></td>';
+              LineStr := '    <td><img src="' + IcoFileList.Strings[isl] + '.png" loading="lazy" alt=""></td>';
           if LineStr > '' then
             SynEdit.Lines.Add(LineStr)
           else