Issue #448: Get old Silk icons back into a second TImageCollection, a…

…nd let the user chose his preferred icon pack in Preferences > General
HeidiSQL · Jan 27, 2019 · 07de1dc · 07de1dc
1 parent aa05409
commit 07de1dc
Show file tree

Hide file tree

Showing 5 changed files with 5,557 additions and 397 deletions.
diff --git a/source/apphelpers.pas b/source/apphelpers.pas
@@ -171,7 +171,7 @@   TQueryThread = class(TThread)
     asPromptSaveFileOnTabClose, asWarnUnsafeUpdates, asQueryWarningsMessage,
     asCompletionProposal, asCompletionProposalWidth, asCompletionProposalNbLinesInWindow, asAutoUppercase,
     asTabsToSpaces, asFilterPanel, asAllowMultipleInstances, asFindDialogSearchHistory, asGUIFontName, asGUIFontSize,
-    asTheme,
+    asTheme, asIconPack,
     asFindDialogReplaceHistory, asMaxQueryResults, asLogErrors,
     asLogUserSQL, asLogSQL, asLogInfos, asLogDebug, asFieldColorNumeric,
     asFieldColorReal, asFieldColorText, asFieldColorBinary, asFieldColorDatetime, asFieldColorSpatial,
@@ -3619,6 +3619,7 @@ constructor TAppSettings.Create;
   InitSetting(asGUIFontName,                      'GUIFontName',                           0, False, '');
   InitSetting(asGUIFontSize,                      'GUIFontSize',                           8);
   InitSetting(asTheme,                            'Theme',                                 0, False, 'Windows');
+  InitSetting(asIconPack,                         'IconPack',                              0, False, 'Icons8');
   InitSetting(asMaxQueryResults,                  'MaxQueryResults',                       10);
   InitSetting(asLogErrors,                        'LogErrors',                             0, True);
   InitSetting(asLogUserSQL,                       'LogUserSQL',                            0, True);