Merge branch 'develop'

Author: Cesar4D

ClientWeb/Src/Login.View.dfm

@@ -1,6 +1,9 @@
 object LoginView: TLoginView
   Width = 640
   Height = 480
+  Caption = 'DelphiWeb - Login'
+  OnCreate = WebFormCreate
+  OnShow = WebFormShow
   object WebLabel1: TWebLabel
     Left = 192
     Top = 80
@@ -19,7 +22,9 @@ object LoginView: TLoginView
     ChildOrder = 1
     ElementID = 'edtEmail'
     HeightPercent = 100.000000000000000000
+    Text = 'admin'
     WidthPercent = 100.000000000000000000
+    OnKeyPress = edtLoginKeyPress
   end
   object edtSenha: TWebEdit
     Left = 232
@@ -29,9 +34,11 @@ object LoginView: TLoginView
     ChildOrder = 2
     ElementID = 'edtPassword'
     HeightPercent = 100.000000000000000000
+    Text = 'admin'
     WidthPercent = 100.000000000000000000
+    OnKeyPress = edtSenhaKeyPress
   end
-  object WebButton1: TWebButton
+  object btnEntrar: TWebButton
     Left = 232
     Top = 272
     Width = 96
@@ -41,7 +48,7 @@ object LoginView: TLoginView
     ElementID = 'btnEntrar'
     HeightPercent = 100.000000000000000000
     WidthPercent = 100.000000000000000000
-    OnClick = WebButton1Click
+    OnClick = btnEntrarClick
   end
   object ckLembrarMe: TWebCheckBox
     Left = 224

ClientWeb/Src/Login.View.pas

@@ -3,22 +3,35 @@
 interface
 
 uses
-  System.SysUtils, System.Classes, JS, Web, WEBLib.Graphics, WEBLib.Controls,
-  WEBLib.Forms, WEBLib.Dialogs, Vcl.Controls, Vcl.StdCtrls, WEBLib.StdCtrls,
+  System.SysUtils,
+  System.Classes,
+  JS,
+  Web,
+  WEBLib.Graphics,
+  WEBLib.Controls,
+  WEBLib.Forms,
+  WEBLib.Dialogs,
+  Vcl.Controls,
+  Vcl.StdCtrls,
+  WEBLib.StdCtrls,
   Main.View;
 
 type
   TLoginView = class(TWebForm)
     WebLabel1: TWebLabel;
     edtLogin: TWebEdit;
     edtSenha: TWebEdit;
-    WebButton1: TWebButton;
+    btnEntrar: TWebButton;
     ckLembrarMe: TWebCheckBox;
-    procedure WebButton1Click(Sender: TObject);
+    procedure btnEntrarClick(Sender: TObject);
+    procedure WebFormShow(Sender: TObject);
+    procedure edtLoginKeyPress(Sender: TObject; var Key: Char);
+    procedure edtSenhaKeyPress(Sender: TObject; var Key: Char);
+    procedure WebFormCreate(Sender: TObject);
   private
-    { Private declarations }
+
   public
-    { Public declarations }
+
   end;
 
 var
@@ -28,7 +41,30 @@ implementation
 
 {$R *.dfm}
 
-procedure TLoginView.WebButton1Click(Sender: TObject);
+procedure TLoginView.WebFormCreate(Sender: TObject);
+begin
+  Application.ThemeColor := clGrayText;
+  Application.Themed := True;
+end;
+
+procedure TLoginView.WebFormShow(Sender: TObject);
+begin
+  edtLogin.SetFocus;
+end;
+
+procedure TLoginView.edtLoginKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    edtSenha.SetFocus;
+end;
+
+procedure TLoginView.edtSenhaKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+    btnEntrar.Click;
+end;
+
+procedure TLoginView.btnEntrarClick(Sender: TObject);
 begin
   if edtLogin.Text <> 'admin' then
   begin

ClientWeb/Src/Main.View.dfm

@@ -11,4 +11,57 @@ object MainView: TMainView
     HeightPercent = 100.000000000000000000
     WidthPercent = 100.000000000000000000
   end
+  object lbImportant: TWebLabel
+    Left = 64
+    Top = 248
+    Width = 63
+    Height = 15
+    Caption = 'lbImportant'
+    ElementID = 'lbImportant'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lbImportantClick
+  end
+  object lbWarning: TWebLabel
+    Left = 72
+    Top = 288
+    Width = 55
+    Height = 15
+    Caption = 'lbWarning'
+    ElementID = 'lbWarning'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lbWarningClick
+  end
+  object lbInformational: TWebLabel
+    Left = 64
+    Top = 328
+    Width = 82
+    Height = 15
+    Caption = 'lbInformational'
+    ElementID = 'lbInformational'
+    HeightPercent = 100.000000000000000000
+    WidthPercent = 100.000000000000000000
+    OnClick = lbInformationalClick
+  end
+  object WebMessageDlg1: TWebMessageDlg
+    Left = 232
+    Top = 279
+    Width = 24
+    Height = 24
+    Buttons = []
+    CustomButtons = <
+      item
+        Caption = 'Sim'
+        ElementClassName = 'text-warning'
+      end
+      item
+        Caption = 'N'#227'o'
+        ElementClassName = 'text-info'
+      end>
+    Opacity = 0.200000000000000000
+    ElementButtonClassName = 'bg-black'
+    ElementDialogClassName = 'bg-dark-subtle'
+    ElementTitleClassName = 'bg-black'
+  end
 end