Use prettier "Consolas" as default font for TSynMemo editors, when available, as an alternative to the old-stylish "Courier New".

This commit is contained in:
Ansgar Becker
2014-06-17 04:41:06 +00:00
parent c4e66fbb32
commit 9c0daf0ef3

View File

@ -3054,7 +3054,10 @@ begin
InitSetting(asRestoreLastUsedDB, 'RestoreLastUsedDB', 0, True);
InitSetting(asLastUsedDB, 'lastUsedDB', 0, False, '', True);
InitSetting(asTreeBackground, 'TreeBackground', clNone, False, '', True);
InitSetting(asFontName, 'FontName', 0, False, 'Courier New');
if Screen.Fonts.IndexOf('Consolas') > -1 then
InitSetting(asFontName, 'FontName', 0, False, 'Consolas')
else
InitSetting(asFontName, 'FontName', 0, False, 'Courier New');
InitSetting(asFontSize, 'FontSize', 9);
InitSetting(asTabWidth, 'TabWidth', 3);
InitSetting(asDataFontName, 'DataFontName', 0, False, 'Tahoma');