From 4af239470bbcc0aee9e9da0bc9535d03e62ba2f4 Mon Sep 17 00:00:00 2001 From: wp_xyz Date: Sat, 30 Apr 2022 23:59:13 +0200 Subject: [PATCH] images: Add tool by Roland Hahn ("IconTable") to create an html page from the general-purpose images. --- images/general_purpose/IconTable.html | 667 ++++++++++++++++++++++++++ tools/icons_to_html/IconTable.ico | Bin 0 -> 5886 bytes tools/icons_to_html/IconTable.lpi | 142 ++++++ tools/icons_to_html/IconTable.lpr | 22 + tools/icons_to_html/main.lfm | 603 +++++++++++++++++++++++ tools/icons_to_html/main.pas | 160 ++++++ 6 files changed, 1594 insertions(+) create mode 100644 images/general_purpose/IconTable.html create mode 100644 tools/icons_to_html/IconTable.ico create mode 100644 tools/icons_to_html/IconTable.lpi create mode 100644 tools/icons_to_html/IconTable.lpr create mode 100644 tools/icons_to_html/main.lfm create mode 100644 tools/icons_to_html/main.pas diff --git a/images/general_purpose/IconTable.html b/images/general_purpose/IconTable.html new file mode 100644 index 0000000000..3e523a0df4 --- /dev/null +++ b/images/general_purpose/IconTable.html @@ -0,0 +1,667 @@ + + + +Icons + + + + +
+The images in this folder can be used in Lazarus applications as toolbar or button icons.

+They come in several sizes as required by the LCL scaling for high-dpi screens:

+- 16x16, 24x24 and 32x32 pixels for "small" images, and
+- 24x24, 36x36 and 48x48 pixels for "medium" sized images, and
+- 32x32, 48x48 and 64x64 pixels for "large" images.

+The images were kindly provided by Roland Hahn.

+License:
+Creative Commons CC0 1.0 Universal
+(freely available, no restrictions in usage) +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Add_01
Add_02
Add_03
Add_04
Arrow_01
Cancel_01
Cancel_02
Copy_01
Copy_02
Copyright_01
Cut_01
Delete_01
Download_01
Edit_01
Error_01
Exit_01
Exit_02
Export_01
File_01
File_02
File_03
Folder_01
Folder_02
Folder_03
Help_01
Help_02
Help_03
Info_01
Menu_01
Ok_01
Ok_02
Ok_03
Ok_04
Open_01
Open_02
Paint_01
Paste_01
Print_01
Print_02
Print_03
Refresh_01
Refresh_02
Refresh_03
Remove_01
Remove_02
Remove_03
Remove_04
Repeat_01
Replace_01
Replace_02
Replace_03
Save_01
Save_02
SaveAs_01
Search_01
Search_02
Search_03
Setup_01
Setup_02
Setup_03
Setup_04
Setup_05
Setup_06
Time_01
Time_02
Time_03
Time_04
Undo_01
Window_01
Zoom_01
Zoom_02
+ + diff --git a/tools/icons_to_html/IconTable.ico b/tools/icons_to_html/IconTable.ico new file mode 100644 index 0000000000000000000000000000000000000000..d1e1b3acfe0b9c674be5f8c944c47786de5660f9 GIT binary patch literal 5886 zcmeH~u?oUK42FNDDyV}l&Yi?fH($fm?Qn2XaCLPN90lPa}^xog*p`4 zs}~R)nzXs$_%Eg3rO6ejxXYN18zbC%fV(kpZk%77^SsyQgsTOb3qos2XgeQn2;(hb zegy)MuM7bflYTpRhU`rwe%dP5*S^bR9an@hwJjxgUGy!V6>;j+uz@OGMT)$#{ zBV2D-Uk}%hSRaM!Sq`Y)x4+6K$qnU`aL|0vd`MSIX+Fffpqh?Q%+s)5Q2(Xq* literal 0 HcmV?d00001 diff --git a/tools/icons_to_html/IconTable.lpi b/tools/icons_to_html/IconTable.lpi new file mode 100644 index 0000000000..9253567b99 --- /dev/null +++ b/tools/icons_to_html/IconTable.lpi @@ -0,0 +1,142 @@ + + + + + + + + + + + + <Scaled Value="True"/> + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + <XPManifest> + <DpiAware Value="True"/> + </XPManifest> + <Icon Value="0"/> + </General> + <BuildModes Count="2"> + <Item1 Name="Debug" Default="True"/> + <Item2 Name="Release"> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <Target> + <Filename Value="IconTable"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="D:\LazarusProg\rhsUnit\"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <CodeGeneration> + <SmartLinkUnit Value="True"/> + <Optimizations> + <OptimizationLevel Value="2"/> + </Optimizations> + </CodeGeneration> + <Linking> + <Debugging> + <GenerateDebugInfo Value="False"/> + <DebugInfoType Value="dsDwarf2Set"/> + </Debugging> + <LinkSmart Value="True"/> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + </Item2> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + <UseFileFilters Value="True"/> + </PublishOptions> + <RunParams> + <FormatVersion Value="2"/> + </RunParams> + <RequiredPackages Count="3"> + <Item1> + <PackageName Value="SynEditDsgn"/> + </Item1> + <Item2> + <PackageName Value="SynEdit"/> + </Item2> + <Item3> + <PackageName Value="LCL"/> + </Item3> + </RequiredPackages> + <Units Count="2"> + <Unit0> + <Filename Value="IconTable.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + <Unit1> + <Filename Value="main.pas"/> + <IsPartOfProject Value="True"/> + <ComponentName Value="MainForm"/> + <HasResources Value="True"/> + <ResourceBaseClass Value="Form"/> + </Unit1> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <PathDelim Value="\"/> + <Target> + <Filename Value="IconTable"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <OtherUnitFiles Value="D:\LazarusProg\rhsUnit\"/> + <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <Parsing> + <SyntaxOptions> + <IncludeAssertionCode Value="True"/> + </SyntaxOptions> + </Parsing> + <CodeGeneration> + <Checks> + <IOChecks Value="True"/> + <RangeChecks Value="True"/> + <OverflowChecks Value="True"/> + <StackChecks Value="True"/> + </Checks> + <VerifyObjMethodCallValidity Value="True"/> + <Optimizations> + <OptimizationLevel Value="0"/> + </Optimizations> + </CodeGeneration> + <Linking> + <Debugging> + <DebugInfoType Value="dsDwarf2Set"/> + <UseHeaptrc Value="True"/> + <TrashVariables Value="True"/> + <UseExternalDbgSyms Value="True"/> + </Debugging> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/tools/icons_to_html/IconTable.lpr b/tools/icons_to_html/IconTable.lpr new file mode 100644 index 0000000000..8ef9e73fe8 --- /dev/null +++ b/tools/icons_to_html/IconTable.lpr @@ -0,0 +1,22 @@ +program IconTable; + +{$mode objfpc}{$H+} + +uses + {$IFDEF UNIX}{$IFDEF UseCThreads} + cthreads, + {$ENDIF}{$ENDIF} + Interfaces, // this includes the LCL widgetset + Forms, main + { you can add units after this }; + +{$R *.res} + +begin + RequireDerivedFormResource := True; + Application.Scaled:=True; + Application.Initialize; + Application.CreateForm(TMainForm, MainForm); + Application.Run; +end. + diff --git a/tools/icons_to_html/main.lfm b/tools/icons_to_html/main.lfm new file mode 100644 index 0000000000..646cfff60f --- /dev/null +++ b/tools/icons_to_html/main.lfm @@ -0,0 +1,603 @@ +object MainForm: TMainForm + Left = 1036 + Height = 515 + Top = 208 + Width = 600 + Caption = 'IconTable' + ClientHeight = 515 + ClientWidth = 600 + Constraints.MinHeight = 515 + Constraints.MinWidth = 600 + OnShow = FormShow + Position = poScreenCenter + LCLVersion = '2.3.0.0' + object btnCreateHTML: TButton + AnchorSideRight.Control = btnSave + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 374 + Height = 25 + Top = 480 + Width = 95 + Anchors = [akRight, akBottom] + AutoSize = True + BorderSpacing.Right = 8 + BorderSpacing.Bottom = 10 + Caption = 'Create HTML' + Default = True + OnClick = btnCreateHTMLClick + TabOrder = 0 + end + object DirectoryEdit: TDirectoryEdit + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = Owner + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + Left = 10 + Height = 23 + Top = 10 + Width = 580 + ShowHidden = False + ButtonWidth = 23 + NumGlyphs = 1 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Left = 10 + BorderSpacing.Top = 10 + BorderSpacing.Right = 10 + MaxLength = 0 + TabOrder = 3 + end + object btnSave: TButton + AnchorSideRight.Control = btnClose + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 477 + Height = 25 + Top = 480 + Width = 50 + Anchors = [akRight, akBottom] + AutoSize = True + BorderSpacing.Right = 8 + BorderSpacing.Bottom = 10 + Caption = 'Save' + OnClick = btnSaveClick + TabOrder = 1 + end + object btnClose: TButton + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 535 + Height = 25 + Top = 480 + Width = 55 + Anchors = [akRight, akBottom] + AutoSize = True + BorderSpacing.Right = 10 + BorderSpacing.Bottom = 10 + Cancel = True + Caption = 'Close' + OnClick = btnCloseClick + TabOrder = 2 + end + inline SynEdit: TSynEdit + AnchorSideLeft.Control = Owner + AnchorSideTop.Control = DirectoryEdit + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = Owner + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = btnClose + Left = 10 + Height = 427 + Top = 43 + Width = 580 + BorderSpacing.Left = 10 + BorderSpacing.Top = 10 + BorderSpacing.Right = 10 + BorderSpacing.Bottom = 10 + Anchors = [akTop, akLeft, akRight, akBottom] + Font.Height = -12 + Font.Name = 'Courier New' + Font.Pitch = fpFixed + Font.Quality = fqCleartype + ParentColor = False + ParentFont = False + TabOrder = 4 + Gutter.Width = 55 + Gutter.MouseActions = <> + RightGutter.Width = 0 + RightGutter.MouseActions = <> + Highlighter = SynHTMLSyn + Keystrokes = < + item + Command = ecUp + ShortCut = 38 + end + item + Command = ecSelUp + ShortCut = 8230 + end + item + Command = ecScrollUp + ShortCut = 16422 + end + item + Command = ecDown + ShortCut = 40 + end + item + Command = ecSelDown + ShortCut = 8232 + end + item + Command = ecScrollDown + ShortCut = 16424 + end + item + Command = ecLeft + ShortCut = 37 + end + item + Command = ecSelLeft + ShortCut = 8229 + end + item + Command = ecWordLeft + ShortCut = 16421 + end + item + Command = ecSelWordLeft + ShortCut = 24613 + end + item + Command = ecRight + ShortCut = 39 + end + item + Command = ecSelRight + ShortCut = 8231 + end + item + Command = ecWordRight + ShortCut = 16423 + end + item + Command = ecSelWordRight + ShortCut = 24615 + end + item + Command = ecPageDown + ShortCut = 34 + end + item + Command = ecSelPageDown + ShortCut = 8226 + end + item + Command = ecPageBottom + ShortCut = 16418 + end + item + Command = ecSelPageBottom + ShortCut = 24610 + end + item + Command = ecPageUp + ShortCut = 33 + end + item + Command = ecSelPageUp + ShortCut = 8225 + end + item + Command = ecPageTop + ShortCut = 16417 + end + item + Command = ecSelPageTop + ShortCut = 24609 + end + item + Command = ecLineStart + ShortCut = 36 + end + item + Command = ecSelLineStart + ShortCut = 8228 + end + item + Command = ecEditorTop + ShortCut = 16420 + end + item + Command = ecSelEditorTop + ShortCut = 24612 + end + item + Command = ecLineEnd + ShortCut = 35 + end + item + Command = ecSelLineEnd + ShortCut = 8227 + end + item + Command = ecEditorBottom + ShortCut = 16419 + end + item + Command = ecSelEditorBottom + ShortCut = 24611 + end + item + Command = ecToggleMode + ShortCut = 45 + end + item + Command = ecCopy + ShortCut = 16429 + end + item + Command = ecPaste + ShortCut = 8237 + end + item + Command = ecDeleteChar + ShortCut = 46 + end + item + Command = ecCut + ShortCut = 8238 + end + item + Command = ecDeleteLastChar + ShortCut = 8 + end + item + Command = ecDeleteLastChar + ShortCut = 8200 + end + item + Command = ecDeleteLastWord + ShortCut = 16392 + end + item + Command = ecUndo + ShortCut = 32776 + end + item + Command = ecRedo + ShortCut = 40968 + end + item + Command = ecLineBreak + ShortCut = 13 + end + item + Command = ecSelectAll + ShortCut = 16449 + end + item + Command = ecCopy + ShortCut = 16451 + end + item + Command = ecBlockIndent + ShortCut = 24649 + end + item + Command = ecLineBreak + ShortCut = 16461 + end + item + Command = ecInsertLine + ShortCut = 16462 + end + item + Command = ecDeleteWord + ShortCut = 16468 + end + item + Command = ecBlockUnindent + ShortCut = 24661 + end + item + Command = ecPaste + ShortCut = 16470 + end + item + Command = ecCut + ShortCut = 16472 + end + item + Command = ecDeleteLine + ShortCut = 16473 + end + item + Command = ecDeleteEOL + ShortCut = 24665 + end + item + Command = ecUndo + ShortCut = 16474 + end + item + Command = ecRedo + ShortCut = 24666 + end + item + Command = ecGotoMarker0 + ShortCut = 16432 + end + item + Command = ecGotoMarker1 + ShortCut = 16433 + end + item + Command = ecGotoMarker2 + ShortCut = 16434 + end + item + Command = ecGotoMarker3 + ShortCut = 16435 + end + item + Command = ecGotoMarker4 + ShortCut = 16436 + end + item + Command = ecGotoMarker5 + ShortCut = 16437 + end + item + Command = ecGotoMarker6 + ShortCut = 16438 + end + item + Command = ecGotoMarker7 + ShortCut = 16439 + end + item + Command = ecGotoMarker8 + ShortCut = 16440 + end + item + Command = ecGotoMarker9 + ShortCut = 16441 + end + item + Command = ecSetMarker0 + ShortCut = 24624 + end + item + Command = ecSetMarker1 + ShortCut = 24625 + end + item + Command = ecSetMarker2 + ShortCut = 24626 + end + item + Command = ecSetMarker3 + ShortCut = 24627 + end + item + Command = ecSetMarker4 + ShortCut = 24628 + end + item + Command = ecSetMarker5 + ShortCut = 24629 + end + item + Command = ecSetMarker6 + ShortCut = 24630 + end + item + Command = ecSetMarker7 + ShortCut = 24631 + end + item + Command = ecSetMarker8 + ShortCut = 24632 + end + item + Command = ecSetMarker9 + ShortCut = 24633 + end + item + Command = EcFoldLevel1 + ShortCut = 41009 + end + item + Command = EcFoldLevel2 + ShortCut = 41010 + end + item + Command = EcFoldLevel3 + ShortCut = 41011 + end + item + Command = EcFoldLevel4 + ShortCut = 41012 + end + item + Command = EcFoldLevel5 + ShortCut = 41013 + end + item + Command = EcFoldLevel6 + ShortCut = 41014 + end + item + Command = EcFoldLevel7 + ShortCut = 41015 + end + item + Command = EcFoldLevel8 + ShortCut = 41016 + end + item + Command = EcFoldLevel9 + ShortCut = 41017 + end + item + Command = EcFoldLevel0 + ShortCut = 41008 + end + item + Command = EcFoldCurrent + ShortCut = 41005 + end + item + Command = EcUnFoldCurrent + ShortCut = 41003 + end + item + Command = EcToggleMarkupWord + ShortCut = 32845 + end + item + Command = ecNormalSelect + ShortCut = 24654 + end + item + Command = ecColumnSelect + ShortCut = 24643 + end + item + Command = ecLineSelect + ShortCut = 24652 + end + item + Command = ecTab + ShortCut = 9 + end + item + Command = ecShiftTab + ShortCut = 8201 + end + item + Command = ecMatchBracket + ShortCut = 24642 + end + item + Command = ecColSelUp + ShortCut = 40998 + end + item + Command = ecColSelDown + ShortCut = 41000 + end + item + Command = ecColSelLeft + ShortCut = 40997 + end + item + Command = ecColSelRight + ShortCut = 40999 + end + item + Command = ecColSelPageDown + ShortCut = 40994 + end + item + Command = ecColSelPageBottom + ShortCut = 57378 + end + item + Command = ecColSelPageUp + ShortCut = 40993 + end + item + Command = ecColSelPageTop + ShortCut = 57377 + end + item + Command = ecColSelLineStart + ShortCut = 40996 + end + item + Command = ecColSelLineEnd + ShortCut = 40995 + end + item + Command = ecColSelEditorTop + ShortCut = 57380 + end + item + Command = ecColSelEditorBottom + ShortCut = 57379 + end> + MouseActions = <> + MouseTextActions = <> + MouseSelActions = <> + VisibleSpecialChars = [vscSpace, vscTabAtLast] + SelectedColor.BackPriority = 50 + SelectedColor.ForePriority = 50 + SelectedColor.FramePriority = 50 + SelectedColor.BoldPriority = 50 + SelectedColor.ItalicPriority = 50 + SelectedColor.UnderlinePriority = 50 + SelectedColor.StrikeOutPriority = 50 + BracketHighlightStyle = sbhsBoth + BracketMatchColor.Background = clNone + BracketMatchColor.Foreground = clNone + BracketMatchColor.Style = [fsBold] + FoldedCodeColor.Background = clNone + FoldedCodeColor.Foreground = clGray + FoldedCodeColor.FrameColor = clGray + MouseLinkColor.Background = clNone + MouseLinkColor.Foreground = clBlue + LineHighlightColor.Background = clNone + LineHighlightColor.Foreground = clNone + inline SynLeftGutterPartList1: TSynGutterPartList + object SynGutterMarks1: TSynGutterMarks + Width = 24 + MouseActions = <> + end + object SynGutterLineNumber1: TSynGutterLineNumber + Width = 15 + MouseActions = <> + MarkupInfo.Background = clBtnFace + MarkupInfo.Foreground = clNone + DigitCount = 2 + ShowOnlyLineNumbersMultiplesOf = 1 + ZeroStart = False + LeadingZeros = False + end + object SynGutterChanges1: TSynGutterChanges + Width = 4 + MouseActions = <> + ModifiedColor = 59900 + SavedColor = clGreen + end + object SynGutterSeparator1: TSynGutterSeparator + Width = 2 + MouseActions = <> + MarkupInfo.Background = clWhite + MarkupInfo.Foreground = clGray + end + object SynGutterCodeFolding1: TSynGutterCodeFolding + MouseActions = <> + MarkupInfo.Background = clNone + MarkupInfo.Foreground = clGray + MouseActionsExpanded = <> + MouseActionsCollapsed = <> + end + end + end + object TaskDialog: TTaskDialog + Buttons = <> + RadioButtons = <> + Left = 72 + Top = 392 + end + object SynHTMLSyn: TSynHTMLSyn + DefaultFilter = 'HTML Document (*.htm,*.html)|*.htm;*.html' + Enabled = False + Left = 304 + Top = 224 + end +end diff --git a/tools/icons_to_html/main.pas b/tools/icons_to_html/main.pas new file mode 100644 index 0000000000..bcbb05f1ec --- /dev/null +++ b/tools/icons_to_html/main.pas @@ -0,0 +1,160 @@ +unit main; + +{$mode objfpc}{$H+} + +interface + +uses + Classes, SysUtils, Forms, Controls, Dialogs, StdCtrls, EditBtn, FileUtil, + LazUTF8, LazFileUtils, UITypes, SynEdit, SynHighlighterHTML; + +type + + { TMainForm } + + TMainForm = class(TForm) + btnCreateHTML: TButton; + btnSave: TButton; + btnClose: TButton; + DirectoryEdit: TDirectoryEdit; + SynEdit: TSynEdit; + SynHTMLSyn: TSynHTMLSyn; + TaskDialog: TTaskDialog; + procedure btnCloseClick(Sender: TObject); + procedure btnCreateHTMLClick(Sender: TObject); + procedure btnSaveClick(Sender: TObject); + procedure FormShow(Sender: TObject); + private + + public + + end; + +var + MainForm: TMainForm; + +implementation + +{$R *.lfm} + +{ TMainForm } + +procedure TMainForm.FormShow(Sender: TObject); +begin + DirectoryEdit.Text := CleanAndExpandDirectory('../../images/general_purpose/'); +end; + +procedure TMainForm.btnCreateHTMLClick(Sender: TObject); +var + FileList: TStringList; + PixSizeStr: String; + i: Integer; +begin + SynEdit.Lines.BeginUpdate; + try + SynEdit.Lines.Clear; + SynEdit.Lines.Add('<!DOCTYPE html>'); + SynEdit.Lines.Add('<html lang="de">'); + SynEdit.Lines.Add('<head>'); + SynEdit.Lines.Add('<title>Icons'); + SynEdit.Lines.Add(''); + SynEdit.Lines.Add(''); + SynEdit.Lines.Add(''); + SynEdit.Lines.Add(''); + SynEdit.Lines.Add('
'); + SynEdit.Lines.Add('The images in this folder can be used in Lazarus applications as toolbar or button icons.

'); + SynEdit.Lines.Add('They come in several sizes as required by the LCL scaling for high-dpi screens:

'); + SynEdit.Lines.Add('- 16x16, 24x24 and 32x32 pixels for "small" images, and
'); + SynEdit.Lines.Add('- 24x24, 36x36 and 48x48 pixels for "medium" sized images, and
'); + SynEdit.Lines.Add('- 32x32, 48x48 and 64x64 pixels for "large" images.

'); + SynEdit.Lines.Add('The images were kindly provided by Roland Hahn.

'); + SynEdit.Lines.Add('License:
'); + SynEdit.Lines.Add('Creative Commons CC0 1.0 Universal
'); + SynEdit.Lines.Add('(freely available, no restrictions in usage)'); + SynEdit.Lines.Add('
'); + SynEdit.Lines.Add(''); + + Screen.BeginWaitCursor; + FileList := TStringList.Create; + try + FindAllFiles(FileList, DirectoryEdit.Text, '*.png', False); + if FileList.Count > 0 then + begin + FileList.Sort; + for i := 0 to FileList.Count - 1 do + begin + FileList.Strings[i] := ChangeFileExt(ExtractFileName(FileList.Strings[i]), ''); + PixSizeStr := RightStr(FileList.Strings[i], 3); + if PixSizeStr = '_16' then + begin + SynEdit.Lines.Add(' '); + SynEdit.Lines.Add(' '); + end; + SynEdit.Lines.Add(' '); + if PixSizeStr = '_64' then + SynEdit.Lines.Add(' '); + end; + end else + begin + SynEdit.Lines.Clear; + TaskDialog.Caption := 'Error'; + TaskDialog.MainIcon := tdiError; + TaskDialog.Title := 'Error'; + TaskDialog.CommonButtons := [tcbOk]; + TaskDialog.DefaultButton := tcbOk; + TaskDialog.Text := 'No png image files found in ' + DirectoryEdit.Text; + TaskDialog.Execute; + exit; + end; + + finally + FileList.Free; + Screen.EndWaitCursor; + end; + + SynEdit.Lines.Add('
' + Utf8Copy(FileList.Strings[i], 1, UTF8Length(FileList.Strings[i]) - 3) + '
'); + SynEdit.Lines.Add(''); + SynEdit.Lines.Add(''); + + finally + SynEdit.Lines.EndUpdate; + end; +end; + +procedure TMainForm.btnSaveClick(Sender: TObject); +var + fn: String; +begin + fn := AppendPathDelim(DirectoryEdit.Text) + 'IconTable.html'; + try + SynEdit.Lines.SaveToFile(fn); + except + TaskDialog.Caption := 'Error'; + TaskDialog.MainIcon := tdiError; + TaskDialog.Title := 'Error'; + TaskDialog.CommonButtons := [tcbOk]; + TaskDialog.DefaultButton := tcbOk; + TaskDialog.Text := 'The file could not be saved as: ' + fn; + TaskDialog.Execute; + Exit; + end; + TaskDialog.Caption := 'Information'; + TaskDialog.MainIcon := tdiInformation; + TaskDialog.Title := 'Information'; + TaskDialog.CommonButtons := [tcbOk]; + TaskDialog.DefaultButton := tcbOk; + TaskDialog.Text := 'Saved as: ' + fn; + TaskDialog.Execute; +end; + +procedure TMainForm.btnCloseClick(Sender: TObject); +begin + Close; +end; + +end.