From 16a8cfb8c173b2731fa2399a29dce8d6f908edd3 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 21 Feb 2008 19:34:50 +0000
Subject: [PATCH] =?UTF-8?q?Pantalla=20de=20login:=20desactivar=20el=20logi?=
 =?UTF-8?q?n=20autom=C3=A1tico=20cuando=20el=20usuario=20escribe=20algo.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@302 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm | 1 +
 Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
index d0bd09c2..38db70d8 100644
--- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
+++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.dfm
@@ -1056,6 +1056,7 @@ object fEditorLogin: TfEditorLogin
     Width = 278
     Height = 21
     TabOrder = 1
+    OnKeyPress = edtUserKeyPress
   end
   object Button1: TButton
     Left = 16
diff --git a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
index d274eee1..43671067 100644
--- a/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
+++ b/Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas
@@ -32,6 +32,7 @@ type
     procedure Timer1Timer(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure edtUserKeyPress(Sender: TObject; var Key: Char);
   private
     FController : IUsuariosController;
     FIntentos : Integer;
@@ -93,6 +94,12 @@ begin
     Timer1.Enabled := True;
 end;
 
+procedure TfEditorLogin.edtUserKeyPress(Sender: TObject; var Key: Char);
+begin
+  // Desactivar el timer cuando el usuario empieza a escribir
+  Timer1.Enabled := False;
+end;
+
 procedure TfEditorLogin.FormCreate(Sender: TObject);
 begin
   FIntentos := 0;