Add new methods to get default font sizes.

Author: delphidabbler

Src/UFontHelper.pas

@@ -80,6 +80,8 @@   TFontHelper = class(TNoConstructObject)
         @return Handle to cloned font. Caller is responsible for releasing the
           handle.
       }
+    class function GetDefaultFontSize: Integer;
+    class function GetDefaultContentFontSize: Integer;
   strict private
     const
       FallbackFontName = 'Arial';                 // Fallback font name
@@ -158,6 +160,32 @@ class function TFontHelper.FontExists(const FontName: string): Boolean;
   Result := Screen.Fonts.IndexOf(FontName) >= 0;
 end;
 
+class function TFontHelper.GetDefaultContentFontSize: Integer;
+var
+  Font: TFont;
+begin
+  Font := TFont.Create;
+  try
+    SetContentFont(Font);
+    Result := Font.Size;
+  finally
+    Font.Free;
+  end;
+end;
+
+class function TFontHelper.GetDefaultFontSize: Integer;
+var
+  Font: TFont;
+begin
+  Font := TFont.Create;
+  try
+    SetDefaultFont(Font);
+    Result := Font.Size;
+  finally
+    Font.Free;
+  end;
+end;
+
 class function TFontHelper.IsInCommonFontSizeRange(
   const FontSize: Integer): Boolean;
 begin