feature/add-control-erros-and-init-boss

Author: César Cardoso

Samples/Demo01/C4DValidateComponentsDemo01.dpr

@@ -15,7 +15,10 @@ uses
   C4D.Validate.Components.Consts in '..\..\Src\C4D.Validate.Components.Consts.pas',
   C4D.Validate.Components.Language in '..\..\Src\C4D.Validate.Components.Language.pas',
   C4D.Validate.Components.Config in '..\..\Src\C4D.Validate.Components.Config.pas',
-  C4D.Validate.Components.Types in '..\..\Src\C4D.Validate.Components.Types.pas';
+  C4D.Validate.Components.Types in '..\..\Src\C4D.Validate.Components.Types.pas',
+  C4D.Validate.Components.Errors in '..\..\Src\C4D.Validate.Components.Errors.pas',
+  C4D.Validate.Components.ListPair in '..\..\Src\C4D.Validate.Components.ListPair.pas',
+  C4D.Validate.Components.SetFocus in '..\..\Src\C4D.Validate.Components.SetFocus.pas';
 
 {$R *.res}
 

Samples/Demo01/C4DValidateComponentsDemo01.dproj

@@ -115,6 +115,9 @@
         <DCCReference Include="..\..\Src\C4D.Validate.Components.Language.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.Config.pas"/>
         <DCCReference Include="..\..\Src\C4D.Validate.Components.Types.pas"/>
+        <DCCReference Include="..\..\Src\C4D.Validate.Components.Errors.pas"/>
+        <DCCReference Include="..\..\Src\C4D.Validate.Components.ListPair.pas"/>
+        <DCCReference Include="..\..\Src\C4D.Validate.Components.SetFocus.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -84,7 +84,6 @@   TC4DValidateComponentsDemo01ViewMain = class(TForm)
     DBMemo1: TDBMemo;
     pnButtons: TPanel;
     btnValidar: TButton;
-    [NotEmpty]
     PageControl1: TPageControl;
     TabSheet1: TTabSheet;
     Edit2: TEdit;
@@ -144,6 +143,7 @@ procedure TC4DValidateComponentsDemo01ViewMain.FormCreate(Sender: TObject);
 
 procedure TC4DValidateComponentsDemo01ViewMain.bntConfigSaveClick(Sender: TObject);
 begin
+  //OPTIONAL CONFIGURATION
   TC4DValidateComponents
     .Config
     .Language(TLanguageDefault(cBoxConfigLanguage.ItemIndex))

Src/C4D.Validate.Components.Errors.pas

@@ -0,0 +1,88 @@
+unit C4D.Validate.Components.Errors;
+
+interface
+
+uses
+  System.SysUtils,
+  System.Classes,
+  C4D.Validate.Components.ListPair;
+
+type
+  TErros = class
+  private
+    FListPairErros: TListPairStr;
+    constructor Create;
+  public
+    class function GetInstance: TErros;
+    destructor Destroy; override;
+    procedure Clear;
+    procedure Add(const AComponentName, AMsg: string);
+    function GetMessages: string;
+    function HasErros: Boolean;
+    function Count: Integer;
+    function GetNameFirstComponent: string;
+  end;
+
+implementation
+
+var
+  Instance: TErros;
+
+class function TErros.GetInstance: TErros;
+begin
+  if(not Assigned(Instance))then
+    Instance := Self.Create;
+  Result := Instance;
+end;
+
+constructor TErros.Create;
+begin
+  FListPairErros := TListPairStr.Create;
+end;
+
+destructor TErros.Destroy;
+begin
+  FListPairErros.Free;
+  inherited;
+end;
+
+procedure TErros.Clear;
+begin
+  FListPairErros.Clear;
+end;
+
+procedure TErros.Add(const AComponentName, AMsg: string);
+begin
+  FListPairErros.Add(AComponentName, AMsg);
+end;
+
+function TErros.GetMessages: string;
+begin
+  Result := FListPairErros.GetStringsValues;
+end;
+
+function TErros.HasErros: Boolean;
+begin
+  Result := FListPairErros.Count > 0;
+end;
+
+function TErros.Count: Integer;
+begin
+  Result := FListPairErros.Count;
+end;
+
+function TErros.GetNameFirstComponent: string;
+begin
+  Result := '';
+
+  if(FListPairErros.Count > 0)then
+    Result := FListPairErros.Items[0].Key;
+end;
+
+initialization
+
+finalization
+  if(Assigned(Instance))then
+    FreeAndNil(Instance);
+
+end.

Src/C4D.Validate.Components.Length.pas

@@ -28,7 +28,8 @@ implementation
   C4D.Validate.Components.Helpers,
   C4D.Validate.Components.Components,
   C4D.Validate.Components.Consts,
-  C4D.Validate.Components.Language;
+  C4D.Validate.Components.Language,
+  C4D.Validate.Components.Errors;
 
 constructor Length.Create(const AMinLength: Integer);
 begin
@@ -77,10 +78,7 @@ procedure Length.Validar(const ARttiField: TRttiField; const AObject: TObject);
   LText := TC4DValidateComponentsComponents.GetTextFromComponent(LComponent);
   LLength := LText.Length;
   if(LLength < FMinLength)or((FMaxLength > 0)and(LLength > FMaxLength))then
-  begin
-    TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(ARttiField.FormatMsg(Self.GetMsg));
-  end;
+    TErros.GetInstance.Add(LComponent.Name, ARttiField.FormatMsg(Self.GetMsg));
 end;
 
 end.

Src/C4D.Validate.Components.ListPair.pas

@@ -0,0 +1,114 @@
+unit C4D.Validate.Components.ListPair;
+
+interface
+
+uses
+  System.Types,
+  System.SysUtils,
+  System.Classes,
+  System.Generics.Defaults,
+  System.Generics.Collections;
+
+type
+  TListPair<TKey, TValue> = class(TList<TPair<TKey, TValue>>)
+  protected
+    FKeyComparer: IComparer<TKey>;
+    FValueComparer: IComparer<TValue>;
+    function GetValue(Key: TKey): TValue;
+    procedure SetValue(Key: TKey; const Value: TValue);
+    function ComparePair(const Left, Right: TPair<TKey, TValue>): Integer;
+  public
+    constructor Create; overload;
+    procedure Add(const AKey: TKey; const aValue: TValue); overload;
+    function IndexOfKey(const AKey: TKey): Integer;
+    function ContainsKey(const AKey: TKey): Boolean; inline;
+    property Values[Key: TKey]: TValue read GetValue write SetValue;
+  end;
+
+  TListPairStr = class(TListPair<string, string>);
+
+  TListPairStrHelper = class helper for TListPairStr
+    procedure FillStringsWithValues(const AStrings: TStrings);
+    function GetStringsValues: string;
+  end;
+
+implementation
+
+constructor TListPair<TKey, TValue>.Create;
+begin
+  if(FKeyComparer = nil)then
+    FKeyComparer := TComparer<TKey>.Default;
+  if(FValueComparer = nil)then
+    FValueComparer := TComparer<TValue>.Default;
+  inherited Create(TDelegatedComparer <TPair<TKey, TValue>>.Create(ComparePair));
+end;
+
+function TListPair<TKey, TValue>.ComparePair(const Left, Right: TPair<TKey, TValue>): Integer;
+begin
+  Result := FKeyComparer.Compare(Left.Key, Right.Key);
+  if(Result = 0)then
+    Result := FValueComparer.Compare(Left.Value, Right.Value);
+end;
+
+function TListPair<TKey, TValue>.IndexOfKey(const AKey: TKey): Integer;
+var
+  i: Integer;
+begin
+  Result := -1;
+  for i := 0 to Count - 1 do
+  begin
+    if(FKeyComparer.Compare(Items[i].Key, AKey) = 0)then
+    begin
+      Result := i;
+      break;
+    end;
+  end;
+end;
+
+function TListPair<TKey, TValue>.ContainsKey(const AKey: TKey): Boolean;
+begin
+  Result := IndexOfKey(AKey) >= 0;
+end;
+
+function TListPair<TKey, TValue>.GetValue(Key: TKey): TValue;
+var
+  i: Integer;
+begin
+  i := IndexOfKey(Key);
+  if(i >= 0)then
+    Result := Items[i].Value
+  else
+    Result := default(TValue);
+end;
+
+procedure TListPair<TKey, TValue>.Add(const AKey: TKey; const aValue: TValue);
+begin
+  SetValue(AKey, aValue);
+end;
+
+procedure TListPair<TKey, TValue>.SetValue(Key: TKey; const Value: TValue);
+begin
+  inherited Add(TPair<TKey, TValue>.Create(Key, Value));
+end;
+
+{ TListPairStrHelper }
+procedure TListPairStrHelper.FillStringsWithValues(const AStrings: TStrings);
+var
+  LPairErro: TPair<string, string>;
+begin
+  if(Self.Count > 0)then
+    for LPairErro in Self do
+      AStrings.Add('* ' + LPairErro.Value);
+end;
+
+function TListPairStrHelper.GetStringsValues: string;
+var
+  LPairErro: TPair<string, string>;
+begin
+  Result := '';
+  if(Self.Count > 0)then
+    for LPairErro in Self do
+      Result := Result + '* ' + LPairErro.Value + sLineBreak;
+end;
+
+end.

Src/C4D.Validate.Components.MinMaxDate.pas

@@ -27,7 +27,8 @@ implementation
   C4D.Validate.Components.Helpers,
   C4D.Validate.Components.Components,
   C4D.Validate.Components.Consts,
-  C4D.Validate.Components.Language;
+  C4D.Validate.Components.Language,
+  C4D.Validate.Components.Errors;
 
 constructor MinMaxDate.Create(const AMinDate: string);
 begin
@@ -71,10 +72,7 @@ procedure MinMaxDate.Validar(const ARttiField: TRttiField; const AObject: TObjec
   LText := TC4DValidateComponentsComponents.GetTextFromComponent(LComponent);
   LDate := StrToDateDef(LText, 0);
   if(LDate < FMinDate)or((FMaxDate > 0)and(LDate > FMaxDate))then
-  begin
-    TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(ARttiField.FormatMsg(Self.GetMsg));
-  end;
+    TErros.GetInstance.Add(LComponent.Name, ARttiField.FormatMsg(Self.GetMsg));
 end;
 
 end.

Src/C4D.Validate.Components.MinMaxValue.pas

@@ -28,7 +28,8 @@ implementation
   C4D.Validate.Components.Helpers,
   C4D.Validate.Components.Components,
   C4D.Validate.Components.Consts,
-  C4D.Validate.Components.Language;
+  C4D.Validate.Components.Language,
+  C4D.Validate.Components.Errors;
 
 constructor MinMaxValue.Create(const AMinValue: Integer);
 begin
@@ -77,10 +78,7 @@ procedure MinMaxValue.Validar(const ARttiField: TRttiField; const AObject: TObje
   LText := TC4DValidateComponentsComponents.GetTextFromComponent(LComponent);
   LValue := StrToFloatDef(LText, 0);
   if(LValue < FMinValue)or((FMaxValue > 0)and(LValue > FMaxValue))then
-  begin
-    TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(ARttiField.FormatMsg(Self.GetMsg));
-  end;
+    TErros.GetInstance.Add(LComponent.Name, ARttiField.FormatMsg(Self.GetMsg));
 end;
 
 end.

Src/C4D.Validate.Components.NotEmpty.pas

@@ -22,7 +22,8 @@ implementation
 uses
   C4D.Validate.Components.Helpers,
   C4D.Validate.Components.Components,
-  C4D.Validate.Components.Language;
+  C4D.Validate.Components.Language,
+  C4D.Validate.Components.Errors;
 
 constructor NotEmpty.Create;
 begin
@@ -43,10 +44,7 @@ procedure NotEmpty.Validar(const ARttiField: TRttiField; const AObject: TObject)
   LText := TC4DValidateComponentsComponents.GetTextFromComponent(LComponent);
 
   if(LText.Trim.IsEmpty)then
-  begin
-    TC4DValidateComponentsComponents.SetFocu(LComponent);
-    raise Exception.Create(ARttiField.FormatMsg(FMsg));
-  end;
+    TErros.GetInstance.Add(LComponent.Name, ARttiField.FormatMsg(FMsg));
 end;
 
 end.

Src/C4D.Validate.Components.SetFocus.pas

@@ -0,0 +1,53 @@
+unit C4D.Validate.Components.SetFocus;
+
+interface
+
+uses
+  System.SysUtils,
+  System.RTTI,
+  System.Classes,
+  Vcl.Forms,
+  Vcl.Controls,
+  Vcl.ComCtrls;
+
+type
+  TRttiSetFocus = class
+  private
+    class procedure SetFocusComponent(const AWinControl: TWinControl);
+  public
+    class procedure SetFocusComponentName(const AForm: TForm; const AComponentName: string);
+  end;
+
+implementation
+
+class procedure TRttiSetFocus.SetFocusComponentName(const AForm: TForm; const AComponentName: string);
+var
+  LComponent: TComponent;
+begin
+  LComponent := AForm.FindComponent(AComponentName);
+  if(LComponent is TWinControl)then
+    SetFocusComponent(TWinControl(LComponent));
+end;
+
+class procedure TRttiSetFocus.SetFocusComponent(const AWinControl: TWinControl);
+var
+  LParent: TComponent;
+begin
+  LParent := TWinControl(AWinControl).Parent;
+  while(LParent.ClassParent <> TForm)do
+  begin
+    if(LParent is TTabSheet)then
+      if(not TTabSheet(LParent).Showing)then
+        TTabSheet(LParent).Show;
+
+    LParent := TWinControl(LParent).Parent;
+  end;
+
+  try
+    if(TWinControl(AWinControl).CanFocus)then
+      TWinControl(AWinControl).SetFocus;
+  except
+  end;
+end;
+
+end.