paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 08:37:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

icons_to_html: Restored German translation broken after 9bd8fbdd2d

Browse Source
This commit is contained in:
wp_xyz 2024-10-21 22:51:35 +02:00
parent 2c4ac0fb42
commit 38ce55d2e3
1 changed files with 24 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
tools/icons_to_html/main.pas
View File

@ -419,31 +419,33 @@ begin
IcoFileList.Count, IconGroups, PixSizeList.Count
]));
if cbTranslatedHTML.Checked then
begin
HTMLLines.Add('<hr>');
HTMLLines.Add('<p>' + rsInfoText1 + '</p>');
HTMLLines.Add('<p>' + rsInfoText2 + '</p>');
HTMLLines.Add('<ul>');
HTMLLines.Add(' <li>' + rsSizeInfoSmall + '</li>');
HTMLLines.Add(' <li>' + rsSizeInfoMedium + '</li>');
HTMLLines.Add(' <li>' + rsSizeInfoLarge + '</li>');
HTMLLines.Add('</ul>');
HTMLLines.Add('<p>' + Format(rsImagesWereProvidedBy, [Link(URL_RolandHahn, URL_RolandHahn)]) + '</p>');
HTMLLines.Add('<p>' + Format(rsLicense, [License_CC0]) + '<br>');
HTMLLines.Add(Link(URL_CC0, URL_CC0) + '<br>');
HTMLLines.Add(rsFreelyAvailable + '</p>');
end else
if FileExists(ImgDirectory + InfoTextFileName) then
begin
try
InfoTxtList := TStringList.Create;
InfoTxtList.LoadFromFile(ImgDirectory + InfoTextFileName);
if cbTranslatedHTML.Checked then
begin
HTMLLines.Add('<hr>');
for i := 0 to InfoTxtList.Count - 1 do
HTMLLines.Add(InfoTxtList[i] + '<br>');
finally
InfoTxtList.Free;
HTMLLines.Add('<p>' + rsInfoText1 + '</p>');
HTMLLines.Add('<p>' + rsInfoText2 + '</p>');
HTMLLines.Add('<ul>');
HTMLLines.Add(' <li>' + rsSizeInfoSmall + '</li>');
HTMLLines.Add(' <li>' + rsSizeInfoMedium + '</li>');
HTMLLines.Add(' <li>' + rsSizeInfoLarge + '</li>');
HTMLLines.Add('</ul>');
HTMLLines.Add('<p>' + Format(rsImagesWereProvidedBy, [Link(URL_RolandHahn, URL_RolandHahn)]) + '</p>');
HTMLLines.Add('<p>' + Format(rsLicense, [License_CC0]) + '<br>');
HTMLLines.Add(Link(URL_CC0, URL_CC0) + '<br>');
HTMLLines.Add(rsFreelyAvailable + '</p>');
end else
begin
InfoTxtList := TStringList.Create;
try
InfoTxtList.LoadFromFile(ImgDirectory + InfoTextFileName);
HTMLLines.Add('<hr>');
for i := 0 to InfoTxtList.Count - 1 do
HTMLLines.Add(InfoTxtList[i] + '<br>');
finally
InfoTxtList.Free;
end;
end;
end;
HTMLLines.Add('</div>');