From 88f6d76cfcf316cc2432d07a05e228c8f5bc307a Mon Sep 17 00:00:00 2001
From: Bart <9132501-flyingsheep@users.noreply.gitlab.com>
Date: Tue, 2 Nov 2021 18:28:19 +0100
Subject: [PATCH] LazUtils: Masks: move TMaskFailCause type inside the
 TMaskBase class. It is not needed outside.

---
 components/lazutils/masks.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/components/lazutils/masks.pas b/components/lazutils/masks.pas
index 0ad2ed9d94..1310a9b8ab 100644
--- a/components/lazutils/masks.pas
+++ b/components/lazutils/masks.pas
@@ -45,13 +45,6 @@ type
     property Code: TMaskExceptionCode read FCode;
   end;
 
-  TMaskFailCause = (
-    mfcSuccess,
-    mfcMatchStringExhausted,
-    mfcMaskExhausted,
-    mfcMaskNotMatch,
-    mfcUnexpectedEnd
-  );
 
   TMaskOpCode=(mocAnyChar,          //treat ? as a wildcard to match exactly one char
                mocAnyCharOrNone,    //treat [?] to match any char or the absence of a char
@@ -178,6 +171,13 @@ type
       CharsGroupBegin=10,
       CharsGroupEnd=11
     );
+    TMaskFailCause = (
+      mfcSuccess,
+      mfcMatchStringExhausted,
+      mfcMaskExhausted,
+      mfcMaskNotMatch,
+      mfcUnexpectedEnd
+    );
     const GROW_BY=100;
     procedure Add(aLength: integer; aData: PBYTE);
     procedure Add(aValue: integer);