Added support for generating CSS line-height property

Author: delphidabbler

Src/UCSSUtils.pas

@@ -417,6 +417,14 @@   TCSS = record
     ///  <returns>string. Required CSS property.</returns>
     class function OverflowProp(const Value: TCSSOverflowValue;
       const Direction: TCSSOverflowDirection = codBoth): string; static;
+
+    ///  <summary>Creates a CSS "line-height" property.</summary>
+    ///  <param name="Percentage">UInt16 [in] Line height as a percentage of
+    ///  font size.</param>
+    ///  <returns>string. Required CSS property.</returns>
+    ///  <remarks>Only the percentage version of line height is supported.
+    ///  </remarks>
+    class function LineHeightProp(const Percentage: UInt16): string; static;
   end;
 
 
@@ -615,6 +623,11 @@ class function TCSS.LengthUnit(const LU: TCSSLengthUnit): string;
   Result := Units[LU];
 end;
 
+class function TCSS.LineHeightProp(const Percentage: UInt16): string;
+begin
+  Result := 'line-height: ' + IntToStr(Percentage) + '%';
+end;
+
 class function TCSS.MarginProp(const Margin: array of Integer): string;
 begin
   Assert(Length(Margin) in [1,2,4],