From 66ebbb91afd1316a20897f82646c5cf1aa61dc54 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 12 Mar 2008 17:50:04 +0000
Subject: [PATCH] =?UTF-8?q?Pantalla=20principal:=20arreglado=20que=20la=20?=
 =?UTF-8?q?pantalla=20principal=20no=20se=20hace=20visible=20cuando=20se?=
 =?UTF-8?q?=20abre=20la=20aplicaci=C3=B3n.?=
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@336 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Cliente/uPantallaPrincipal.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index dd9947f9..73f7ebea 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -126,6 +126,7 @@ type
     //procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
   protected
     function GetWorkPanel : TWinControl;
+    procedure CreateParams(var Params: TCreateParams); override;    
   public
     function IsShortcut(var Message: TWMKey): Boolean; override;
     procedure OnWorkPanelChanged(AEditor : ICustomEditor);
@@ -482,6 +483,14 @@ begin
   end;
 end;
 
+procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
+begin
+  { ¡¡¡No quitar este procedimiento aunque no haga nada!!!!!
+    Si se quita, esta pantalla principal se queda en el fondo
+    después de desaparecer la pantalla de login. }
+  inherited CreateParams(Params);
+end;
+
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
 {  fActualizacion := TfActualizacion.Create(Self);