From d15b15d97c6a2661dfacf5cc07d53dd33ce10ada Mon Sep 17 00:00:00 2001 From: wp_xyz Date: Thu, 30 Jun 2022 15:17:04 +0200 Subject: [PATCH] Tools/Icons_to_HTML: Improvements in layout of HTML table. Refactored CSS. --- images/general_purpose/IconTable.html | 585 +++++++++++++------------- tools/icons_to_html/main.lfm | 6 +- tools/icons_to_html/main.pas | 137 +++--- 3 files changed, 375 insertions(+), 353 deletions(-) diff --git a/images/general_purpose/IconTable.html b/images/general_purpose/IconTable.html index d8bf0626c1..0450acd69e 100644 --- a/images/general_purpose/IconTable.html +++ b/images/general_purpose/IconTable.html @@ -4,28 +4,36 @@ Icons - - - - - - - - + + + - + + + + + + + + + + @@ -34,7 +42,7 @@ - + @@ -43,7 +51,7 @@ - + @@ -52,7 +60,7 @@ - + @@ -61,7 +69,7 @@ - + @@ -70,7 +78,7 @@ - + @@ -79,7 +87,7 @@ - + @@ -88,7 +96,7 @@ - + @@ -97,7 +105,7 @@ - + @@ -106,7 +114,7 @@ - + @@ -115,7 +123,7 @@ - + @@ -124,7 +132,7 @@ - + @@ -133,7 +141,7 @@ - + @@ -142,7 +150,7 @@ - + @@ -151,7 +159,7 @@ - + @@ -160,7 +168,7 @@ - + @@ -169,7 +177,7 @@ - + @@ -178,7 +186,7 @@ - + @@ -187,7 +195,7 @@ - + @@ -196,7 +204,7 @@ - + @@ -205,7 +213,7 @@ - + @@ -214,7 +222,7 @@ - + @@ -223,7 +231,7 @@ - + @@ -232,7 +240,7 @@ - + @@ -241,7 +249,7 @@ - + @@ -250,7 +258,7 @@ - + @@ -259,7 +267,7 @@ - + @@ -268,7 +276,7 @@ - + @@ -277,7 +285,7 @@ - + @@ -286,7 +294,7 @@ - + @@ -295,7 +303,7 @@ - + @@ -304,7 +312,7 @@ - + @@ -313,7 +321,7 @@ - + @@ -322,7 +330,7 @@ - + @@ -331,7 +339,7 @@ - + @@ -340,7 +348,7 @@ - + @@ -349,7 +357,7 @@ - + @@ -358,7 +366,7 @@ - + @@ -367,7 +375,7 @@ - + @@ -376,7 +384,7 @@ - + @@ -385,7 +393,7 @@ - + @@ -394,7 +402,7 @@ - + @@ -403,7 +411,7 @@ - + @@ -412,7 +420,7 @@ - + @@ -421,7 +429,7 @@ - + @@ -430,7 +438,7 @@ - + @@ -439,7 +447,7 @@ - + @@ -448,7 +456,7 @@ - + @@ -457,7 +465,7 @@ - + @@ -466,7 +474,7 @@ - + @@ -475,7 +483,7 @@ - + @@ -484,7 +492,7 @@ - + @@ -493,7 +501,7 @@ - + @@ -502,7 +510,7 @@ - + @@ -511,7 +519,7 @@ - + @@ -520,7 +528,7 @@ - + @@ -529,7 +537,7 @@ - + @@ -538,7 +546,7 @@ - + @@ -547,7 +555,7 @@ - + @@ -556,7 +564,7 @@ - + @@ -565,7 +573,7 @@ - + @@ -574,7 +582,7 @@ - + @@ -583,7 +591,7 @@ - + @@ -592,7 +600,7 @@ - + @@ -601,7 +609,7 @@ - + @@ -610,7 +618,7 @@ - + @@ -619,7 +627,7 @@ - + @@ -628,7 +636,7 @@ - + @@ -637,7 +645,7 @@ - + @@ -646,7 +654,7 @@ - + @@ -655,7 +663,7 @@ - + @@ -664,7 +672,7 @@ - + @@ -673,7 +681,7 @@ - + @@ -682,7 +690,7 @@ - + @@ -691,7 +699,7 @@ - + @@ -700,7 +708,7 @@ - + @@ -709,7 +717,7 @@ - + @@ -718,7 +726,7 @@ - + @@ -727,7 +735,7 @@ - + @@ -736,7 +744,7 @@ - + @@ -745,7 +753,7 @@ - + @@ -754,7 +762,7 @@ - + @@ -763,7 +771,7 @@ - + @@ -772,7 +780,7 @@ - + @@ -781,7 +789,7 @@ - + @@ -790,7 +798,7 @@ - + @@ -799,7 +807,7 @@ - + @@ -808,7 +816,7 @@ - + @@ -817,7 +825,7 @@ - + @@ -826,7 +834,7 @@ - + @@ -835,7 +843,7 @@ - + @@ -844,7 +852,7 @@ - + @@ -853,7 +861,7 @@ - + @@ -862,7 +870,7 @@ - + @@ -871,7 +879,7 @@ - + @@ -880,7 +888,7 @@ - + @@ -889,7 +897,7 @@ - + @@ -898,7 +906,7 @@ - + @@ -907,7 +915,7 @@ - + @@ -916,7 +924,7 @@ - + @@ -925,7 +933,7 @@ - + @@ -934,7 +942,7 @@ - + @@ -943,7 +951,7 @@ - + @@ -952,7 +960,7 @@ - + @@ -961,7 +969,7 @@ - + @@ -970,7 +978,7 @@ - + @@ -979,7 +987,7 @@ - + @@ -988,7 +996,7 @@ - + @@ -997,7 +1005,7 @@ - + @@ -1006,7 +1014,7 @@ - + @@ -1015,7 +1023,7 @@ - + @@ -1024,7 +1032,7 @@ - + @@ -1033,7 +1041,7 @@ - + @@ -1042,7 +1050,7 @@ - + @@ -1051,7 +1059,7 @@ - + @@ -1060,7 +1068,7 @@ - + @@ -1069,7 +1077,7 @@ - + @@ -1078,7 +1086,7 @@ - + @@ -1087,7 +1095,7 @@ - + @@ -1096,7 +1104,7 @@ - + @@ -1105,7 +1113,7 @@ - + @@ -1114,7 +1122,7 @@ - + @@ -1123,7 +1131,7 @@ - + @@ -1132,7 +1140,7 @@ - + @@ -1141,7 +1149,7 @@ - + @@ -1150,7 +1158,7 @@ - + @@ -1159,7 +1167,7 @@ - + @@ -1168,7 +1176,7 @@ - + @@ -1177,7 +1185,7 @@ - + @@ -1186,7 +1194,7 @@ - + @@ -1195,7 +1203,7 @@ - + @@ -1204,7 +1212,7 @@ - + @@ -1213,7 +1221,7 @@ - + @@ -1222,7 +1230,7 @@ - + @@ -1231,7 +1239,7 @@ - + @@ -1240,7 +1248,7 @@ - + @@ -1249,7 +1257,7 @@ - + @@ -1258,7 +1266,7 @@ - + @@ -1267,7 +1275,7 @@ - + @@ -1276,7 +1284,7 @@ - + @@ -1285,7 +1293,7 @@ - + @@ -1294,7 +1302,7 @@ - + @@ -1303,7 +1311,7 @@ - + @@ -1312,7 +1320,7 @@ - + @@ -1321,7 +1329,7 @@ - + @@ -1330,7 +1338,7 @@ - + @@ -1339,7 +1347,7 @@ - + @@ -1348,7 +1356,7 @@ - + @@ -1357,7 +1365,7 @@ - + @@ -1366,7 +1374,7 @@ - + @@ -1375,7 +1383,7 @@ - + @@ -1384,7 +1392,7 @@ - + @@ -1393,7 +1401,7 @@ - + @@ -1402,7 +1410,7 @@ - + @@ -1411,7 +1419,7 @@ - + @@ -1420,7 +1428,7 @@ - + @@ -1429,7 +1437,7 @@ - + @@ -1438,7 +1446,7 @@ - + @@ -1447,7 +1455,7 @@ - + @@ -1456,7 +1464,7 @@ - + @@ -1465,7 +1473,7 @@ - + @@ -1474,7 +1482,7 @@ - + @@ -1483,7 +1491,7 @@ - + @@ -1492,7 +1500,7 @@ - + @@ -1501,7 +1509,7 @@ - + @@ -1510,7 +1518,7 @@ - + @@ -1519,7 +1527,7 @@ - + @@ -1528,7 +1536,7 @@ - + @@ -1537,7 +1545,7 @@ - + @@ -1546,7 +1554,7 @@ - + @@ -1555,7 +1563,7 @@ - + @@ -1564,7 +1572,7 @@ - + @@ -1573,7 +1581,7 @@ - + @@ -1582,7 +1590,7 @@ - + @@ -1591,7 +1599,7 @@ - + @@ -1600,7 +1608,7 @@ - + @@ -1609,7 +1617,7 @@ - + @@ -1618,7 +1626,7 @@ - + @@ -1627,7 +1635,7 @@ - + @@ -1636,7 +1644,7 @@ - + @@ -1645,7 +1653,7 @@ - + @@ -1654,7 +1662,7 @@ - + @@ -1663,7 +1671,7 @@ - + @@ -1672,7 +1680,7 @@ - + @@ -1681,7 +1689,7 @@ - + @@ -1690,7 +1698,7 @@ - + @@ -1699,7 +1707,7 @@ - + @@ -1708,7 +1716,7 @@ - + @@ -1717,7 +1725,7 @@ - + @@ -1726,7 +1734,7 @@ - + @@ -1735,7 +1743,7 @@ - + @@ -1744,7 +1752,7 @@ - + @@ -1753,7 +1761,7 @@ - + @@ -1762,7 +1770,7 @@ - + @@ -1771,7 +1779,7 @@ - + @@ -1780,7 +1788,7 @@ - + @@ -1789,7 +1797,7 @@ - + @@ -1798,7 +1806,7 @@ - + @@ -1807,7 +1815,7 @@ - + @@ -1816,7 +1824,7 @@ - + @@ -1825,7 +1833,7 @@ - + @@ -1834,7 +1842,7 @@ - + @@ -1843,7 +1851,7 @@ - + @@ -1852,7 +1860,7 @@ - + @@ -1861,7 +1869,7 @@ - + @@ -1870,7 +1878,7 @@ - + @@ -1879,7 +1887,7 @@ - + @@ -1888,7 +1896,7 @@ - + @@ -1897,7 +1905,7 @@ - + @@ -1906,7 +1914,7 @@ - + @@ -1915,7 +1923,7 @@ - + @@ -1924,7 +1932,7 @@ - + @@ -1933,7 +1941,7 @@ - + @@ -1942,7 +1950,7 @@ - + @@ -1951,7 +1959,7 @@ - + @@ -1960,7 +1968,7 @@ - + @@ -1969,7 +1977,7 @@ - + @@ -1978,7 +1986,7 @@ - + @@ -1987,7 +1995,7 @@ - + @@ -1996,7 +2004,7 @@ - + @@ -2005,7 +2013,7 @@ - + @@ -2014,7 +2022,7 @@ - + @@ -2023,7 +2031,7 @@ - + @@ -2032,7 +2040,7 @@ - + @@ -2041,7 +2049,7 @@ - + @@ -2050,7 +2058,7 @@ - + @@ -2059,7 +2067,7 @@ - + @@ -2068,7 +2076,7 @@ - + @@ -2077,7 +2085,7 @@ - + @@ -2086,7 +2094,7 @@ - + @@ -2095,7 +2103,7 @@ - + @@ -2104,7 +2112,7 @@ - + @@ -2113,7 +2121,7 @@ - + @@ -2122,7 +2130,7 @@ - + @@ -2131,7 +2139,7 @@ - + @@ -2140,7 +2148,7 @@ - + @@ -2149,7 +2157,7 @@ - + @@ -2158,7 +2166,7 @@ - + @@ -2167,7 +2175,7 @@ - + @@ -2176,7 +2184,7 @@ - + @@ -2185,7 +2193,7 @@ - + @@ -2194,7 +2202,7 @@ - + @@ -2203,7 +2211,7 @@ - + @@ -2212,7 +2220,7 @@ - + @@ -2221,7 +2229,7 @@ - + @@ -2230,7 +2238,7 @@ - + @@ -2239,7 +2247,7 @@ - + @@ -2248,7 +2256,7 @@ - + @@ -2257,7 +2265,7 @@ - + @@ -2266,7 +2274,7 @@ - + @@ -2275,7 +2283,7 @@ - + @@ -2284,7 +2292,7 @@ - + @@ -2293,7 +2301,7 @@ - + @@ -2302,7 +2310,7 @@ - + @@ -2311,7 +2319,7 @@ - + @@ -2320,7 +2328,7 @@ - + @@ -2329,7 +2337,7 @@ - + @@ -2338,7 +2346,7 @@ - + @@ -2347,7 +2355,7 @@ - + @@ -2356,7 +2364,7 @@ - + @@ -2365,7 +2373,7 @@ - + @@ -2374,7 +2382,7 @@ - + @@ -2383,7 +2391,7 @@ - + @@ -2392,7 +2400,7 @@ - + @@ -2401,7 +2409,7 @@ - + @@ -2410,7 +2418,7 @@ - + @@ -2419,7 +2427,7 @@ - + @@ -2428,7 +2436,7 @@ - + @@ -2437,7 +2445,7 @@ - + @@ -2446,7 +2454,7 @@ - + @@ -2455,7 +2463,7 @@ - + @@ -2464,7 +2472,7 @@ - + @@ -2473,9 +2481,8 @@
Name162432364864
Appendix
Add_01Name162432364864
Add_01
Add_02Add_02
Add_03Add_03
Add_04Add_04
Add_05Add_05
Add_06Add_06
Add_07Add_07
Align_01Align_01
Align_02Align_02
Align_03Align_03
Anchor_01Anchor_01
Arrow_01Arrow_01
Arrow_02Arrow_02
Arrow_03Arrow_03
Arrow_04Arrow_04
Arrow_05Arrow_05
Arrow_06Arrow_06
Arrow_07Arrow_07
Arrow_08Arrow_08
Arrow_09Arrow_09
Arrow_10Arrow_10
Arrow_11Arrow_11
Arrow_12Arrow_12
Arrow_13Arrow_13
Arrow_14Arrow_14
Arrow_15Arrow_15
Arrow_16Arrow_16
Arrow_17Arrow_17
Arrow_18Arrow_18
Arrow_19Arrow_19
Arrow_20Arrow_20
Arrow_21Arrow_21
Arrow_22Arrow_22
Arrow_23Arrow_23
Arrow_24Arrow_24
Arrow_25Arrow_25
Arrow_26Arrow_26
Arrow_27Arrow_27
Arrow_28Arrow_28
Attention_01Attention_01
Backward_01Backward_01
Backward_02Backward_02
Barcode_01Barcode_01
Bell_01Bell_01
Book_01Book_01
Book_02Book_02
Calculator_01Calculator_01
Camera_01Camera_01
Cancel_01Cancel_01
Cancel_02Cancel_02
Cancel_03Cancel_03
Chart_01Chart_01
Chart_02Chart_02
Chart_03Chart_03
Chart_04Chart_04
Chart_05Chart_05
Chart_06Chart_06
Chart_07Chart_07
Chart_08Chart_08
Chart_09Chart_09
Chart_10Chart_10
Chart_11Chart_11
Clean_01Clean_01
Cloud_01Cloud_01
Cloud_02Cloud_02
Code_01Code_01
Code_02Code_02
Color_01Color_01
Color_02Color_02
Comment_01Comment_01
Comment_02Comment_02
Copy_01Copy_01
Copy_02Copy_02
Copyright_01Copyright_01
Cube_01Cube_01
Cut_01Cut_01
Cut_02Cut_02
Database_01Database_01
Database_02Database_02
Database_03Database_03
Database_04Database_04
Database_05Database_05
Database_06Database_06
Database_07Database_07
Delete_01Delete_01
Delete_02Delete_02
Download_01Download_01
Edit_01Edit_01
Elements_01Elements_01
Error_01Error_01
Exit_01Exit_01
Exit_02Exit_02
Export_01Export_01
Export_02Export_02
Export_03Export_03
Eye_01Eye_01
Eye_02Eye_02
File_01File_01
File_02File_02
File_03File_03
File_04File_04
File_05File_05
File_06File_06
File_07File_07
File_08File_08
File_09File_09
File_10File_10
File_11File_11
File_12File_12
File_13File_13
File_14File_14
File_15File_15
Flag_01Flag_01
Flash_01Flash_01
Folder_01Folder_01
Folder_02Folder_02
Folder_03Folder_03
Folder_04Folder_04
Folder_05Folder_05
Folder_06Folder_06
Folder_07Folder_07
Folder_08Folder_08
Folder_09Folder_09
Folder_10Folder_10
Folder_11Folder_11
Folder_12Folder_12
Folder_13Folder_13
Font_01Font_01
Font_02Font_02
Font_03Font_03
Font_04Font_04
Font_05Font_05
Font_06Font_06
Font_07Font_07
Font_08Font_08
Font_09Font_09
Font_10Font_10
Font_11Font_11
Font_12Font_12
Font_13Font_13
Font_14Font_14
Font_15Font_15
Font_16Font_16
Font_17Font_17
Font_18Font_18
Font_19Font_19
Font_20Font_20
Forward_01Forward_01
Forward_02Forward_02
Grid_01Grid_01
Grid_02Grid_02
Grid_03Grid_03
Grid_04Grid_04
Grid_05Grid_05
Grid_06Grid_06
Grid_07Grid_07
Grid_08Grid_08
Grid_09Grid_09
Grid_10Grid_10
Grid_11Grid_11
Grid_12Grid_12
Help_01Help_01
Help_02Help_02
Help_03Help_03
Help_04Help_04
Home_01Home_01
Info_01Info_01
Info_02Info_02
Interface_01Interface_01
Light_01Light_01
Light_02Light_02
Light_03Light_03
Link_01Link_01
Lock_01Lock_01
Lock_02Lock_02
Lock_03Lock_03
Lock_04Lock_04
Mail_01Mail_01
Mail_02Mail_02
MapMarker_01MapMarker_01
Menu_01Menu_01
Note_01Note_01
Ok_01Ok_01
Ok_02Ok_02
Ok_03Ok_03
Ok_04Ok_04
Ok_05Ok_05
Open_01Open_01
Open_02Open_02
Paint_01Paint_01
Paperclip_01Paperclip_01
Paste_01Paste_01
Paste_02Paste_02
Pause_01Pause_01
Phone_01Phone_01
Phone_02Phone_02
Picture_01Picture_01
Picture_02Picture_02
Picture_03Picture_03
Picture_04Picture_04
Picture_05Picture_05
Picture_06Picture_06
Picture_07Picture_07
Picture_08Picture_08
Picture_09Picture_09
Picture_10Picture_10
Picture_11Picture_11
Picture_12Picture_12
Picture_13Picture_13
Play_01Play_01
Preview_01Preview_01
Print_01Print_01
Print_02Print_02
Print_03Print_03
Record_01Record_01
Refresh_01Refresh_01
Refresh_02Refresh_02
Refresh_03Refresh_03
Remove_01Remove_01
Remove_02Remove_02
Remove_03Remove_03
Remove_04Remove_04
Remove_05Remove_05
Remove_06Remove_06
Remove_07Remove_07
Repeat_01Repeat_01
Replace_01Replace_01
Replace_02Replace_02
Replace_03Replace_03
Replace_04Replace_04
Save_01Save_01
Save_02Save_02
Save_03Save_03
SaveAs_01SaveAs_01
SaveAs_02SaveAs_02
Search_01Search_01
Search_02Search_02
Search_03Search_03
Search_04Search_04
Search_05Search_05
Setup_01Setup_01
Setup_02Setup_02
Setup_03Setup_03
Setup_04Setup_04
Setup_05Setup_05
Setup_06Setup_06
Sort_01Sort_01
Sort_02Sort_02
Sort_03Sort_03
Sort_04Sort_04
Sound_01Sound_01
Sound_02Sound_02
Star_01Star_01
Stop_01Stop_01
Time_01Time_01
Time_02Time_02
Time_03Time_03
Time_04Time_04
Time_05Time_05
Undo_01Undo_01
User_01User_01
User_02User_02
Warning_01Warning_01
Warning_02Warning_02
Warning_03Warning_03
WiFi_01WiFi_01
Window_01Window_01
Window_02Window_02
Window_03Window_03
Window_04Window_04
Zoom_01Zoom_01
Zoom_02Zoom_02
-
-This folder contains 1632 icons in 272 icon groups with 6 - icon sizes. +
+This folder contains 1632 icons in 272 icon groups with 6 icon sizes.
The images in this folder can be used in Lazarus applications as toolbar or button icons.

diff --git a/tools/icons_to_html/main.lfm b/tools/icons_to_html/main.lfm index f0b5feddf8..d268514fde 100644 --- a/tools/icons_to_html/main.lfm +++ b/tools/icons_to_html/main.lfm @@ -13,7 +13,7 @@ object MainForm: TMainForm OnShow = FormShow Position = poScreenCenter ShowHint = True - LCLVersion = '2.3.0.0' + LCLVersion = '2.2.2.0' object DirectoryEdit: TDirectoryEdit AnchorSideLeft.Control = Owner AnchorSideTop.Control = sbtnLastDirs @@ -37,7 +37,6 @@ object MainForm: TMainForm MaxLength = 0 TabOrder = 0 OnChange = DirectoryEditChange - OnEditingDone = DirectoryEditEditingDone end inline SynEdit: TSynEdit AnchorSideLeft.Control = Owner @@ -491,6 +490,7 @@ object MainForm: TMainForm MouseTextActions = <> MouseSelActions = <> VisibleSpecialChars = [vscSpace, vscTabAtLast] + RightEdge = -1 SelectedColor.BackPriority = 50 SelectedColor.ForePriority = 50 SelectedColor.FramePriority = 50 @@ -554,7 +554,7 @@ object MainForm: TMainForm Height = 19 Hint = 'Creates an html page with dark background' Top = 483 - Width = 76 + Width = 78 BorderSpacing.Left = 15 Caption = 'Dark Mode' OnChange = cbDarkModeChange diff --git a/tools/icons_to_html/main.pas b/tools/icons_to_html/main.pas index 1abfa0746e..e61bab362d 100644 --- a/tools/icons_to_html/main.pas +++ b/tools/icons_to_html/main.pas @@ -32,7 +32,6 @@ type procedure bbtnShowClick(Sender: TObject); procedure cbDarkModeChange(Sender: TObject); procedure DirectoryEditChange(Sender: TObject); - procedure DirectoryEditEditingDone(Sender: TObject); procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject); @@ -45,6 +44,7 @@ type LastDirsMax: Integer; procedure InfoMsg(const AMsg: String); procedure ErrorMsg(const AMsg: String); + procedure UpdateLastDirs(D: String); public end; @@ -101,7 +101,7 @@ begin if (popLastDirs.Items[0].Caption = '') and (DirectoryExists(CleanAndExpandDirectory('../../images/general_purpose/'))) then begin popLastDirs.Items[0].Caption := CleanAndExpandDirectory('../../images/general_purpose/'); - popLastDirs.Items[0].Visible := popLastDirs.Items[0].Caption > ''; + popLastDirs.Items[0].Visible := True; end; if DirectoryExists(popLastDirs.Items[0].Caption) then @@ -149,8 +149,9 @@ var PixSizeList: TStringList; InfoTxtList: TStringList; LineStr: String; - SizeStr: String; - TempStr: String; + IcoFile: String; + IcoSize: String; + IcoName: String; DPos: Integer; IntDummy: Integer; i: Integer; @@ -158,12 +159,10 @@ var isl: Integer; StartIdx: Integer = 0; IconGroups: Integer = 0; - BodyFontColor: String = ' color: #000000;'; - BodyBackColor: String = ' background-color: #ffffff;'; - InfoFontColor: String = ' color: #000000;'; - InfoBackColor: String = ' background-color: #ffffe0;'; - HoverFontColor: String = ' color: #ffffff;'; - HoverBackColor: String = ' background-color: #303030;'; + ColorSet1: String = 'color: #000000; background-color: #ffffe0;}'; + ColorSet2: String = 'color: #000000; background-color: #fbfba8;}'; + BodyColors: String = 'color: #000000; background-color: #ffffff;}'; + HoverColors: String = 'color: #ffffff; background-color: #303030;}'; begin try AllFileList := TStringList.Create; @@ -185,20 +184,23 @@ begin AllFileList.Sort; for i := 0 to AllFileList.Count - 1 do begin - TempStr := ChangeFileExt(ExtractFileName(AllFileList.Strings[i]), ''); - DPos := LastDelimiter('_', TempStr); - if DPos > 0 then - begin - SizeStr := RightStr(TempStr, Utf8Length(TempStr) - DPos); - if TryStrToInt(SizeStr, IntDummy) then - begin - IcoFileList.Add(TempStr); - IcoNameList.Add(Utf8Copy(TempStr, 1, DPos - 1)); - IcoSizeList.Add(SizeStr); - if PixSizeList.IndexOf(SizeStr) = -1 then - PixSizeList.Add(SizeStr); - end; - end; + IcoFile := ChangeFileExt(ExtractFileName(AllFileList.Strings[i]), ''); + DPos := LastDelimiter('_', IcoFile); + IcoSize := RightStr(IcoFile, Utf8Length(IcoFile) - DPos); + + if not TryStrToInt(IcoSize, IntDummy) then + IcoSize := ''; + + if IcoSize = '' then + IcoName := IcoFile + else + IcoName := Utf8Copy(IcoFile, 1, DPos - 1); + + IcoFileList.Add(IcoFile); + IcoNameList.Add(IcoName); + IcoSizeList.Add(IcoSize); + if PixSizeList.IndexOf(IcoSize) = -1 then + PixSizeList.Add(IcoSize); end; PixSizeList.Sort; @@ -210,12 +212,10 @@ begin if cbDarkMode.Checked then begin - BodyFontColor := ' color: #ffffff;'; - BodyBackColor := ' background-color: #303030;'; - InfoFontColor := ' color: #ffffff;'; - InfoBackColor := ' background-color: #000000;'; - HoverFontColor := ' color: #000000;'; - HoverBackColor := ' background-color: #ffffff;'; + ColorSet1 := 'color: #ffffff; background-color: #5c0000;}'; + ColorSet2 := 'color: #ffffff; background-color: #000057;}'; + BodyColors := 'color: #ffffff; background-color: #303030;}'; + HoverColors := 'color: #000000; background-color: #ffffff;}'; end; SynEdit.Lines.Clear; @@ -225,21 +225,29 @@ begin SynEdit.Lines.Add('Icons'); SynEdit.Lines.Add(''); SynEdit.Lines.Add(''); SynEdit.Lines.Add(''); SynEdit.Lines.Add(''); SynEdit.Lines.Add(''); + SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); SynEdit.Lines.Add(' '); - SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); for i := 0 to PixSizeList.Count - 1 do - SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); SynEdit.Lines.Add(' '); for i := 0 to IcoFileList.Count - 1 do @@ -247,7 +255,7 @@ begin if (i = IcoFileList.Count - 1) or (IcoNameList[i + 1] <> IcoNameList[i]) then begin SynEdit.Lines.Add(' '); - SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); for ips := 0 to PixSizeList.Count - 1 do begin LineStr := ''; @@ -267,8 +275,8 @@ begin SynEdit.Lines.Add('
Appendix
NameName' + PixSizeList[i] + '' + PixSizeList[i] + '
' + IcoNameList[i] + '' + IcoNameList[i] + '
'); - SynEdit.Lines.Add('
'); - SynEdit.Lines.Add('This folder contains ' + IntToStr(IcoFileList.Count) + ' icons in ' + IntToStr(IconGroups) + ' icon groups with ' + IntToStr(PixSizeList.Count) + LineEnding + ' icon sizes.'); + SynEdit.Lines.Add('
'); + SynEdit.Lines.Add('This folder contains ' + IntToStr(IcoFileList.Count) + ' icons in ' + IntToStr(IconGroups) + ' icon groups with ' + IntToStr(PixSizeList.Count) + ' icon sizes.'); if FileExists(ImgDir + 'lazarus_general_purpose_images.txt') then begin try @@ -289,6 +297,7 @@ begin bbtnSave.Enabled := True; bbtnSave.SetFocus; bbtnShow.Enabled := False; + UpdateLastDirs(ImgDir); finally AllFileList.Free; IcoFileList.Free; @@ -326,38 +335,27 @@ begin Close; end; -procedure TMainForm.DirectoryEditEditingDone(Sender: TObject); -var - i: Integer; +procedure TMainForm.DirectoryEditChange(Sender: TObject); begin if DirectoryExists(DirectoryEdit.Directory) then begin ImgDir := CleanAndExpandDirectory(DirectoryEdit.Directory); bbtnCreateHTML.Enabled := True; - - for i := 0 to LastDirsMax do - if ImgDir = popLastDirs.Items[i].Caption then - begin - popLastDirs.Items[i].MenuIndex := 0; - Exit; - end; - - popLastDirs.Items[LastDirsMax].Caption := ImgDir; - popLastDirs.Items[LastDirsMax].MenuIndex := 0; - end; -end; - -procedure TMainForm.DirectoryEditChange(Sender: TObject); -begin - bbtnCreateHTML.Enabled := DirectoryExists(DirectoryEdit.Directory); + end + else + bbtnCreateHTML.Enabled := False; end; procedure TMainForm.LastDirClick(Sender: TObject); begin if DirectoryExists(TMenuItem(Sender).Caption) then begin + ImgDir := TMenuItem(Sender).Caption; + DirectoryEdit.Directory := ImgDir; TMenuItem(Sender).MenuIndex := 0; - DirectoryEdit.Directory := TMenuItem(Sender).Caption; + bbtnSave.Enabled := False; + bbtnShow.Enabled := False; + SynEdit.Clear; end; end; @@ -369,6 +367,23 @@ begin popLastDirs.PopUp(pt.X, pt.Y); end; +procedure TMainForm.UpdateLastDirs(D: String); +var + i: Integer; +begin + for i := 0 to LastDirsMax do + if D = popLastDirs.Items[i].Caption then + begin + popLastDirs.Items[i].MenuIndex := 0; + Exit; + end; + + popLastDirs.Items[LastDirsMax].Caption := D; + popLastDirs.Items[LastDirsMax].Visible := True; + popLastDirs.Items[LastDirsMax].MenuIndex := 0; + sbtnLastDirs.Enabled := True; +end; + procedure TMainForm.InfoMsg(const AMsg: String); begin TaskDialog.Caption := 'Information';