feature/mensagem-mostar-uma-por-vez

Author: César Cardoso

Samples/Demo01/Src/Utils/C4D.ValidateComponents.Demo01.Utils.pas

@@ -30,6 +30,11 @@ class procedure TUtils.ClearAllFieldsForm(const AForm: TForm);
   for i := 0 to Pred(AForm.ComponentCount) do
   begin
     LComponent := AForm.Components[i];
+
+    if(LComponent is TWinControl)then
+      if(TWinControl(LComponent).Parent.Name = 'pnConfigBack')then
+        Continue;
+
     if(LComponent is TEdit)then
       TEdit(LComponent).Clear
     else if(LComponent is TMemo)then

Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.dfm

@@ -465,7 +465,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
         end
       end
       object tabConfig: TTabSheet
-        Caption = 'Config (opcional)'
+        Caption = 'Config (optional)'
         ImageIndex = 1
         object pnConfigBack: TPanel
           Left = 0
@@ -476,6 +476,7 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           BevelOuter = bvNone
           ParentBackground = False
           TabOrder = 0
+          ExplicitTop = 2
           object Label13: TLabel
             Left = 16
             Top = 16
@@ -485,13 +486,18 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           end
           object ckConfigDisplayComponentNameIfNotFieldDisplay: TCheckBox
             Left = 16
-            Top = 57
-            Width = 465
+            Top = 59
+            Width = 457
             Height = 17
+            Hint = 
+              'Exibir o nome do componente se o Custom Attribute FieldDisplay n' +
+              #227'o for informado (padr'#227'o Sim)'
             Caption = 
               'Display component name if FieldDisplay Custom Attributes are not' +
               ' provided (default True)'
             Checked = True
+            ParentShowHint = False
+            ShowHint = True
             State = cbChecked
             TabOrder = 0
           end
@@ -510,13 +516,26 @@ object C4DValidateComponentsDemo01ViewMain: TC4DValidateComponentsDemo01ViewMain
           end
           object bntConfigSave: TButton
             Left = 16
-            Top = 80
+            Top = 96
             Width = 113
             Height = 25
             Caption = 'Save'
             TabOrder = 2
             OnClick = bntConfigSaveClick
           end
+          object ckConfigShowOneErrorAtATime: TCheckBox
+            Left = 16
+            Top = 75
+            Width = 217
+            Height = 17
+            Hint = 'Mostrar um erro por cada vez (padr'#227'o sim)'
+            Caption = 'Show one error at a time (default True)'
+            Checked = True
+            ParentShowHint = False
+            ShowHint = True
+            State = cbChecked
+            TabOrder = 3
+          end
         end
       end
     end

Samples/Demo01/Src/View/C4D.ValidateComponents.Demo01.View.Main.pas

@@ -121,6 +121,7 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     ckConfigDisplayComponentNameIfNotFieldDisplay: TCheckBox;
     cBoxConfigLanguage: TComboBox;
     bntConfigSave: TButton;
+    ckConfigShowOneErrorAtATime: TCheckBox;
     procedure btnValidarClick(Sender: TObject);
     procedure btnClearAllFieldsClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -148,7 +149,8 @@ procedure TC4DValidateComponentsDemo01ViewMain.bntConfigSaveClick(Sender: TObjec
   TC4DValidateComponents
     .Config
     .Language(TLanguageDefault(cBoxConfigLanguage.ItemIndex))
-    .DisplayComponentNameIfNotFieldDisplay(ckConfigDisplayComponentNameIfNotFieldDisplay.Checked);
+    .DisplayComponentNameIfNotFieldDisplay(ckConfigDisplayComponentNameIfNotFieldDisplay.Checked)
+    .ShowOneErrorAtATime(ckConfigShowOneErrorAtATime.Checked);
 end;
 
 procedure TC4DValidateComponentsDemo01ViewMain.btnClearAllFieldsClick(Sender: TObject);

Src/C4D.Validate.Components.Config.pas

@@ -11,13 +11,16 @@   TC4DValidateComponentsConfig = class
   private
     FLanguage: TLanguageDefault;
     FDisplayComponentNameIfNotFieldDisplay: Boolean;
+    FShowOneErrorAtATime: Boolean;
     constructor Create;
   public
     class function GetInstance: TC4DValidateComponentsConfig;
     function Language: TLanguageDefault; overload;
     function Language(const Value: TLanguageDefault): TC4DValidateComponentsConfig; overload;
     function DisplayComponentNameIfNotFieldDisplay: Boolean; overload;
     function DisplayComponentNameIfNotFieldDisplay(const Value: Boolean): TC4DValidateComponentsConfig; overload;
+    function ShowOneErrorAtATime: Boolean; overload;
+    function ShowOneErrorAtATime(const Value: Boolean): TC4DValidateComponentsConfig; overload;
   end;
 
 implementation
@@ -29,6 +32,7 @@ constructor TC4DValidateComponentsConfig.Create;
 begin
   FLanguage := TLanguageDefault.ptBR;
   FDisplayComponentNameIfNotFieldDisplay := True;
+  FShowOneErrorAtATime := True;
 end;
 
 class function TC4DValidateComponentsConfig.GetInstance: TC4DValidateComponentsConfig;
@@ -60,6 +64,17 @@ function TC4DValidateComponentsConfig.DisplayComponentNameIfNotFieldDisplay(cons
   FDisplayComponentNameIfNotFieldDisplay := Value;
 end;
 
+function TC4DValidateComponentsConfig.ShowOneErrorAtATime: Boolean;
+begin
+  Result := FShowOneErrorAtATime;
+end;
+
+function TC4DValidateComponentsConfig.ShowOneErrorAtATime(const Value: Boolean): TC4DValidateComponentsConfig;
+begin
+  Result := Self;
+  FShowOneErrorAtATime := Value;
+end;
+
 initialization
 
 finalization

Src/C4D.Validate.Components.pas

@@ -74,8 +74,8 @@ class procedure TC4DValidateComponents.Validate(AInstanceClass: TComponentClass;
           MinMaxDate(LCustomAttribute).Validar(LRttiField, AForm);
       end;
 
-      if(TErros.GetInstance.HasErros)and(True)then
-        Break
+      if(TErros.GetInstance.HasErros)and(Self.Config.ShowOneErrorAtATime)then
+        Break;
     end;
   finally
     LRttiContext.Free;