From 7fca7e5cdec575e438a59da2c9068a56af0d0dc6 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 14 Nov 2007 22:23:50 +0000
Subject: [PATCH] =?UTF-8?q?Repaso=20al=20proceso=20de=20creaci=C3=B3n=20de?=
 =?UTF-8?q?=20la=20aplicaci=C3=B3n=20para=20quitar=20c=C3=B3digo=20inneces?=
 =?UTF-8?q?ario.?=
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@96 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/ApplicationBase/uFactuGES_App.pas |  2 +-
 Source/Cliente/uBootStrap.pas            |  9 +++------
 Source/Cliente/uPantallaPrincipal.pas    | 18 +++---------------
 3 files changed, 7 insertions(+), 22 deletions(-)

diff --git a/Source/ApplicationBase/uFactuGES_App.pas b/Source/ApplicationBase/uFactuGES_App.pas
index 27bcb3dc..fbfdc829 100644
--- a/Source/ApplicationBase/uFactuGES_App.pas
+++ b/Source/ApplicationBase/uFactuGES_App.pas
@@ -292,7 +292,7 @@ begin
   begin
     ShowHourglassCursor;
     try
-      ShowSplashForm;
+      //ShowSplashForm;
       CargarModulos;
       DoMainForm;
     finally
diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas
index 3f050d94..e5191ae1 100644
--- a/Source/Cliente/uBootStrap.pas
+++ b/Source/Cliente/uBootStrap.pas
@@ -6,9 +6,9 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uSplash, uFactuGES_App, StdCtrls;
 
-    procedure Initialize;
-    procedure Run;
-    procedure Terminate;
+procedure Initialize;
+procedure Run;
+procedure Terminate;
 
 implementation
 
@@ -63,9 +63,6 @@ end;
 procedure Run;
 begin
   AppFactuGES.Run;
-  repeat
-    //Nada
-  until AppFactuGES.Terminated;
 end;
 
 procedure Terminate;
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 320bbe90..1f294e75 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -118,7 +118,6 @@ type
     procedure WMSysCommand(var Msg: TMessage); 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);
@@ -164,7 +163,7 @@ end;
 procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
 begin
   ApplicationEvents.Activate;
-  Caption := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
+  Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
 
   JvNavigationPane.StyleManager := dmBase.StyleManager;
   dmBase.OnThemeChange := Self.OnThemeChange;
@@ -187,7 +186,7 @@ begin
   if Assigned(AppFactuGES.EmpresaActiva) then
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
 
-  Caption := ATitulo;
+  Application.Title := ATitulo;
 
   if dmConexion.HayConexion then 
     TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
@@ -459,7 +458,7 @@ end;
 
 procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
 begin
-  //No tocar, sirve para recuperar el foco el formulario principal cuando
+  // No tocar, sirve para recuperar el foco el formulario principal cuando
   // tenemos varios formularios hijos abiertos a la vez.
   DefaultHandler(Msg);
 end;
@@ -492,17 +491,6 @@ begin
   end;
 end;
 
-procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
-begin
-  // ˇˇˇFallo en Delphi 2007!!!
-  // Cambio los paramátros para obligar a que aparezca el icono en la barra de tareas.
-  inherited CreateParams(Params);
-  with Params do begin
-    ExStyle := ExStyle or WS_EX_APPWINDOW;
-    WndParent := GetDesktopwindow;
-  end;
-end;
-
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
 {  fActualizacion := TfActualizacion.Create(Self);