paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 17:57:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

Tools/Icons_to_HTML: Speed-up display of icons in IconTable application. Patch by Roland Hahn.

Browse Source
This commit is contained in:
wp_xyz 2022-09-24 18:49:25 +02:00
parent 78caaf4fc2
commit c0fbe886a0
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tools/icons_to_html/main.lfm
View File

@ -11,6 +11,7 @@ object MainForm: TMainForm
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
ShowHint = True ShowHint = True
LCLVersion = '2.3.0.0'
object DirectoryEdit: TDirectoryEdit object DirectoryEdit: TDirectoryEdit
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = sbtnLastDirs AnchorSideTop.Control = sbtnLastDirs

2
tools/icons_to_html/main.pas
View File

@ -293,7 +293,7 @@ begin
LineStr := ''; LineStr := '';
for isl := StartIdx to i do for isl := StartIdx to i do
if IcoSizeList[isl] = PixSizeList[ips] then 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 if LineStr > '' then
SynEdit.Lines.Add(LineStr) SynEdit.Lines.Add(LineStr)
else else