Change to restore default font size when bad value assigned.

Setting highlighter font size preference to an out of range value
resets the preference to its default value.

Author: delphidabbler

Src/Hiliter.UAttrs.pas

@@ -107,7 +107,11 @@   THiliteAttrs = class(TInterfacedObject,
     ///  <remarks>Method of IHiliteAttrs.</remarks>
     function GetFontSize: Integer;
     ///  <summary>Sets size of highlighter font.</summary>
-    ///  <remarks>Method of IHiliteAttrs.</remarks>
+    ///  <remarks>
+    ///  <para>If font size is out of range of supported sizes then the
+    ///  highlighter font is reset to its default value.</para>
+    ///  <para>Method of IHiliteAttrs.</para>
+    ///  </remarks>
     procedure SetFontSize(const AFontSize: Integer);
     ///  <summary>Resets highlighter font name and size to default values.
     ///  </summary>
@@ -307,7 +311,10 @@ procedure THiliteAttrs.SetFontName(const AFontName: string);
 
 procedure THiliteAttrs.SetFontSize(const AFontSize: Integer);
 begin
-  fFontSize := AFontSize;
+  if TFontHelper.IsInCommonFontSizeRange(AFontSize) then
+    fFontSize := AFontSize
+  else
+    fFontSize := cDefFontSize;
 end;
 
 { THiliteElemAttrs }