From 8d8978999ce2db4f50f18f7212ea36df54869447 Mon Sep 17 00:00:00 2001
From: chaosua <544218+chaosua@users.noreply.github.com>
Date: Sat, 27 Jan 2024 15:28:50 +0200
Subject: [PATCH] update cleaning flags

---
 MainUnit.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/MainUnit.pas b/MainUnit.pas
index 57de70b..d4deebf 100644
--- a/MainUnit.pas
+++ b/MainUnit.pas
@@ -3696,7 +3696,9 @@ procedure TMainForm.ClearFields(Where: TType);
     begin
         if ((Components[i] is TLabeledEdit) or (Components[i] is TJvComboEdit) or (Components[i] is TMemo)) and
            ((Pos('ed'+s+'t',Components[i].Name)=1) or (Pos('ed'+s+'l',Components[i].Name)=1) or (Pos('ed'+s+'o',Components[i].Name)=1) or
-            (Pos('me'+s+'t',Components[i].Name)=1) or (Pos('me'+s+'l',Components[i].Name)=1) or (Pos('me'+s+'o',Components[i].Name)=1)) then
+            (Pos('me'+s+'t',Components[i].Name)=1) or (Pos('me'+s+'l',Components[i].Name)=1) or (Pos('me'+s+'o',Components[i].Name)=1) or
+            (Pos('ed'+s+'riloc',Components[i].Name)=1) or (Pos('ed'+s+'orloc',Components[i].Name)=1) or
+            (Pos('ed'+s+'d',Components[i].Name)=1) or (Pos('ed'+s+'ri',Components[i].Name)=1) or (Pos('ed'+s+'ms',Components[i].Name)=1) ) then
            TCustomEdit(Components[i]).Clear;
         if (Components[i] is TJvListView) and ((Pos('lv'+s+'o',Components[i].Name)=1) or (Pos('lv'+s+'l',Components[i].Name)=1) or (Pos('lv'+s+'t',Components[i].Name)=1)) then
           TCustomListView(Components[i]).Clear;