Merge pull request #6 from PlimSistemas/master

Permitir LowerCase para Usuário no Demo e Alterar ContentType
juliosenha · Oct 2, 2020 · 09ccde4 · 09ccde4
2 parents 60a9f47 + ab32977
commit 09ccde4
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 1 deletion.
diff --git a/samples/src/view/View.Samples.dfm b/samples/src/view/View.Samples.dfm
@@ -153,7 +153,6 @@ object FrmSamples: TFrmSamples
       Top = 194
       Width = 269
       Height = 21
-      CharCase = ecLowerCase
       TabOrder = 6
     end
     object edtPassword: TEdit

diff --git a/src/Mail4Delphi.Intf.pas b/src/Mail4Delphi.Intf.pas
@@ -20,6 +20,7 @@ interface
     function AddAttachment(const AFile: string): IMail;
     function Auth(const AValue: Boolean): IMail;
     function SSL(const AValue: Boolean): IMail;
+    function ContentType(const AValue: string): IMail;
     function Clear: IMail;
     function SendMail: Boolean;
     function SetUpEmail: Boolean;

diff --git a/src/Mail4Delphi.pas b/src/Mail4Delphi.pas
@@ -42,6 +42,7 @@   TMail = class(TInterfacedObject, IMail)
     function AddAttachment(const AFile: string): IMail;
     function Auth(const AValue: Boolean): IMail;
     function SSL(const AValue: Boolean): IMail;
+    function ContentType(const AValue: string): IMail;
     function Clear: IMail;
     function SendMail: Boolean;
     class function New: IMail;
@@ -162,6 +163,12 @@ function TMail.Clear: IMail;
   Result := Self;
 end;
 
+function TMail.ContentType(const AValue: string): IMail;
+begin
+  FIdText.ContentType := AValue;
+  Result := Self;
+end;
+
 constructor TMail.Create;
 begin
   FIdSSLIOHandlerSocket := TIdSSLIOHandlerSocketOpenSSL.Create(nil);