Add new IActiveText.HasContent method

delphidabbler · delphidabbler · commit 6fbc69c44731 · 2023-04-08T22:04:20.000+01:00
This method checks whether active text contains any text content. Added
following changes to the active text document format because the
existing IsEmpty returns false when a document contains only ekDocument
elements or only empty block elements.
diff --git a/Src/ActiveText.UMain.pas b/Src/ActiveText.UMain.pas
@@ -190,6 +190,8 @@   TActiveTextAttrNames = record
     ///  <summary>Checks if the active text object contains any elements.
     ///  </summary>
     function IsEmpty: Boolean;
+    ///  <summary>Checks if the active text object has text content.</summary>
+    function HasContent: Boolean;
     ///  <summary>Checks if the active text object contains only plain text.
     ///  </summary>
     ///  <remarks>Plain text is considered to be active text with no action
@@ -504,6 +506,9 @@   TActiveText = class(TInterfacedObject,
     ///  <summary>Checks if the element list is empty.</summary>
     ///  <remarks>Method of IActiveText.</remarks>
     function IsEmpty: Boolean;
+    ///  <summary>Checks if the active text object has text content.</summary>
+    ///  <remarks>Method of IActiveText.</remarks>
+    function HasContent: Boolean;
     ///  <summary>Checks if the active text object contains only plain text.
     ///  </summary>
     ///  <remarks>
@@ -869,6 +874,18 @@ function TActiveText.GetEnumerator: TEnumerator<IActiveTextElem>;
   Result := fElems.GetEnumerator;
 end;
 
+function TActiveText.HasContent: Boolean;
+var
+  Elem: IActiveTextElem;
+  TextElem: IActiveTextTextElem;
+begin
+  Result := False;
+  for Elem in fElems do
+    if Supports(Elem, IActiveTextTextElem, TextElem)
+      and (TextElem.Text <> '') then
+      Exit(True);
+end;
+
 function TActiveText.IsEmpty: Boolean;
 begin
   Result := fElems.Count = 0;
