From be6696ff4b9ff53eff6e8b5c531f098e60c5c426 Mon Sep 17 00:00:00 2001
From: wp_xyz <wp_xxyyzzz@gmx.net>
Date: Fri, 10 Jun 2022 18:28:13 +0200
Subject: [PATCH] Tools: Updated version of the IconTable tool showing the
 image count (by Roland Hahn)

---
 images/general_purpose/IconTable.html |  3 +++
 tools/icons_to_html/main.lfm          |  4 +--
 tools/icons_to_html/main.pas          | 37 ++++++++++++++-------------
 3 files changed, 24 insertions(+), 20 deletions(-)

diff --git a/images/general_purpose/IconTable.html b/images/general_purpose/IconTable.html
index 11704e1577..664626db05 100644
--- a/images/general_purpose/IconTable.html
+++ b/images/general_purpose/IconTable.html
@@ -2203,6 +2203,9 @@
   </tr>
 </table>
 <div class="info_container">
+This folder contains 1452 icons in 242 icon groups with 6
+ icon sizes.
+<hr>
 The images in this folder can be used in Lazarus applications as toolbar or button icons.<br>
 <br>
 The different sizes as required by LCL scaling for high-dpi screens can be used like this, for example:<br>
diff --git a/tools/icons_to_html/main.lfm b/tools/icons_to_html/main.lfm
index 0ef9718820..27ead830ef 100644
--- a/tools/icons_to_html/main.lfm
+++ b/tools/icons_to_html/main.lfm
@@ -1,7 +1,7 @@
 object MainForm: TMainForm
-  Left = 450
+  Left = 1029
   Height = 515
-  Top = 214
+  Top = 221
   Width = 600
   Caption = 'IconTable'
   ClientHeight = 515
diff --git a/tools/icons_to_html/main.pas b/tools/icons_to_html/main.pas
index fa7703249a..9ddb322fe4 100644
--- a/tools/icons_to_html/main.pas
+++ b/tools/icons_to_html/main.pas
@@ -30,10 +30,11 @@ type
     procedure btnShowClick(Sender: TObject);
     procedure btnCloseClick(Sender: TObject);
   private
+    fn: String;
     ImgDir: String;
-    procedure ErrorMsg(const AMsg: String);
     function GetDestFileName: String;
     procedure InfoMsg(const AMsg: String);
+    procedure ErrorMsg(const AMsg: String);
   public
 
   end;
@@ -86,6 +87,7 @@ var
   ips: Integer;
   isl: Integer;
   StartIdx: Integer = 0;
+  IconGroups: Integer = 0;
   BodyFontColor: String = ' color: #000000;';
   BodyBackColor: String = ' background-color: #ffffff;';
   InfoBackColor: String = ' background-color: #ffffe0;';
@@ -184,24 +186,27 @@ begin
         end;
         SynEdit.Lines.Add('  </tr>');
         StartIdx := i + 1;
+        IconGroups := IconGroups + 1;
       end;
     end;
 
     SynEdit.Lines.Add('</table>');
 
+    SynEdit.Lines.Add('<div class="info_container">');
+    SynEdit.Lines.Add('This folder contains ' + IntToStr(IcoFileList.Count) + ' icons in ' + IntToStr(IconGroups) + ' icon groups with ' + IntToStr(PixSizeList.Count) + LineEnding + ' icon sizes.');
     if FileExists(ImgDir + 'lazarus_general_purpose_images.txt') then
     begin
-      SynEdit.Lines.Add('<div class="info_container">');
       try
         InfoTxtList := TStringList.Create;
         InfoTxtList.LoadFromFile(ImgDir + 'lazarus_general_purpose_images.txt');
+        SynEdit.Lines.Add('<hr>');
         for i := 0 to InfoTxtList.Count - 1 do
           SynEdit.Lines.Add(InfoTxtList[i] + '<br>');
       finally
         InfoTxtList.Free;
       end;
-      SynEdit.Lines.Add('</div>');
     end;
+    SynEdit.Lines.Add('</div>');
 
     SynEdit.Lines.Add('</body>');
     SynEdit.Lines.Add('</html>');
@@ -221,8 +226,6 @@ begin
 end;
 
 procedure TMainForm.btnSaveClick(Sender: TObject);
-var
-  fn: String;
 begin
   fn := GetDestFileName;
   try
@@ -236,8 +239,6 @@ begin
 end;
 
 procedure TMainForm.btnShowClick(Sender: TObject);
-var
-  fn: String;
 begin
   fn := GetDestFileName;
   if FileExists(fn) then
@@ -250,17 +251,6 @@ begin
   Close;
 end;
 
-procedure TMainForm.ErrorMsg(const AMsg: String);
-begin
-  TaskDialog.Caption := 'Error';
-  TaskDialog.MainIcon := tdiError;
-  TaskDialog.Title := 'Error';
-  TaskDialog.CommonButtons := [tcbOk];
-  TaskDialog.DefaultButton := tcbOk;
-  TaskDialog.Text := AMsg;
-  TaskDialog.Execute;
-end;
-
 function TMainForm.GetDestFileName: String;
 begin
   Result := AppendPathDelim(DirectoryEdit.Text) + 'IconTable.html';
@@ -277,4 +267,15 @@ begin
   TaskDialog.Execute;
 end;
 
+procedure TMainForm.ErrorMsg(const AMsg: String);
+begin
+  TaskDialog.Caption := 'Error';
+  TaskDialog.MainIcon := tdiError;
+  TaskDialog.Title := 'Error';
+  TaskDialog.CommonButtons := [tcbOk];
+  TaskDialog.DefaultButton := tcbOk;
+  TaskDialog.Text := AMsg;
+  TaskDialog.Execute;
+end;
+
 end.