Aplicación cliente: arreglado fallo al minimizar la pantalla principal.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@159 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/ApplicationBase/Usuarios/Views/uEditorLogin.pas

@@ -112,7 +112,7 @@ end;
 
 procedure TfEditorLogin.FormShow(Sender: TObject);
 begin
-  Self.Caption := Self.Caption + ' - ' + AppFactuGES.AppVersion;
+  Self.Caption := AppFactuGES.AppFullName;
   JvFormStorage1.RestoreFormPlacement;
 
   // Hacer login automática si hay usuario/password y no hay más de una base

Source/ApplicationBase/uFactuGES_App.pas

@@ -26,6 +26,7 @@ type
     function GetEmpresasController: IEmpresasController;
     function GetUsuariosController: IUsuariosController;
     function GetAppName: String;
+    function GetAppFullName: String;
     function GetAppVersion: String;
     function GetUsuarioActivo: IBizUsuario;
     function GetEmpresaActiva: IBizEmpresa;
@@ -53,6 +54,7 @@ type
 
     property AppVersion : String read GetAppVersion;
     property AppName : String read GetAppName;
+    property AppFullName : String read GetAppFullName;
     property MainForm : TCustomForm read GetMainForm;
     property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
     property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
@@ -87,6 +89,7 @@ type
     function GetEmpresasController: IEmpresasController;
     function GetUsuariosController: IUsuariosController;
     function GetAppName: String;
+    function GetAppFullName: String;
     function GetAppVersion: String;
     function GetUsuarioActivo: IBizUsuario;
     function GetEmpresaActiva: IBizEmpresa;
@@ -124,6 +127,7 @@ type
 
     property AppVersion : String read GetAppVersion;
     property AppName : String read GetAppName;
+    property AppFullName : String read GetAppFullName;
     property MainForm : TCustomForm read GetMainForm;
     property EmpresaActiva : IBizEmpresa read GetEmpresaActiva;
     property EjercicioActivo : IBizEjercicio read GetEjercicioActivo;
@@ -244,6 +248,11 @@ begin
   Result := FDoMainFormEvent;
 end;
 
+function TAppFactuGES.GetAppFullName: String;
+begin
+  Result := GetAppName + ' ' + GetAppVersion; 
+end;
+
 function TAppFactuGES.GetAppName: String;
 begin
   Result := FAppInfo.ProductName;
@@ -337,13 +346,7 @@ begin
       HideHourglassCursor;
       HideSplashForm;
     end;
-
+  end; 
-      //InicializarUI;
-      //Application.ProcessMessages;
-      //Visible := True;
-      //AplicarPerfil;
-//        Application.CreateForm();
-  end;
   Application.Run;
   Terminate;
 end;

Source/Cliente/uPantallaPrincipal.dfm

@@ -244,7 +244,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Tag = -9000
       Category = 'Archivo'
       Caption = 'Login'
-      OnExecute = actLoginExecute
     end
     object actAdministracion: TAction
       Tag = -9000

Source/Cliente/uPantallaPrincipal.pas

@@ -94,7 +94,6 @@ type
     procedure FormCreate(Sender: TObject);
     procedure Salir1Click(Sender: TObject);
     procedure actSalirExecute(Sender: TObject);
-    procedure actLoginExecute(Sender: TObject);
     procedure actCambiarPassExecute(Sender: TObject);
     procedure actAcercaExecute(Sender: TObject);
     procedure actConexionExecute(Sender: TObject);
@@ -125,7 +124,7 @@ type
     procedure InicializarUI;
     procedure OnThemeChange(Sender: TObject);
     procedure ExecuteActionMenu(Sender : TObject);
-    procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
+    //procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
   protected
     function GetWorkPanel : TWinControl;
   public
@@ -192,7 +191,7 @@ procedure TfPantallaPrincipal.RefrescarUI;
 var
   ATitulo : String;
 begin
-  ATitulo := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
+  ATitulo := AppFactuGES.GetAppFullName;
 
   if Assigned(AppFactuGES.EmpresaActiva) then
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
@@ -200,7 +199,7 @@ begin
   Application.Title := ATitulo;
   Caption := Application.Title;
 
-  if dmConexion.HayConexion then 
+  if dmConexion.HayConexion then
     TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
   else
     TBXStatusBar1.Panels[0].Caption := 'Desconectado';
@@ -308,71 +307,45 @@ var
   AListaEmpresas : IBizEmpresa;
   i : Integer;
 begin
-  for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
+  ShowHourglassCursor;
-    MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
-
-  MainMenuController.SortMenuByTag;
-  MainMenuController.InitMainMenu;
-
-  for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
-    NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
-
-  NavPaneController.InitNavPane;
-
   try
-    AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
+    for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
-    if Assigned(AListaEmpresas) then
+      MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
-    begin
+
-      AListaEmpresas.Active := True;
+    MainMenuController.SortMenuByTag;
-      if AListaEmpresas.RecordCount = 1 then
+    MainMenuController.InitMainMenu;
+
+    for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
+      NavPaneController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
+
+    NavPaneController.InitNavPane;
+
+    try
+      AListaEmpresas := AppFactuGES.EmpresasController.BuscarTodos;
+      if Assigned(AListaEmpresas) then
       begin
-        // Oculto la página de inicio para que no parezca
+        AListaEmpresas.Active := True;
-        // que se pueden manejar varias empresas.
+        if AListaEmpresas.RecordCount = 1 then
-        JvNavigationPane.ActivePageIndex := 1;
+        begin
-        pagInicio.PageList := NIL;
+          // Oculto la página de inicio para que no parezca
-        pagInicio.Visible := False;
+          // que se pueden manejar varias empresas.
+          JvNavigationPane.ActivePageIndex := 1;
+          pagInicio.PageList := NIL;
+          pagInicio.Visible := False;
+        end;
       end;
+
+    finally
+      AListaEmpresas.Close;
+      AListaEmpresas := NIL;
     end;
-
+    RefrescarUI;
   finally
-    AListaEmpresas.Close;
+    HideHourglassCursor;
-    AListaEmpresas := NIL;
   end;
-
-  RefrescarUI;
 end;
 
 
-procedure TfPantallaPrincipal.actLoginExecute(Sender: TObject);
-begin
-//--  HostManager.UnloadModules;
-
-{--  try
-    if AppFactuGES.UsuariosController.StartLogin then
-    begin
-      ShowHourglassCursor;
-//      SplashScreen.Update;
-      Application.ProcessMessages;
-      CargarModulos;
-      try
-        InicializarUI;
-        Application.ProcessMessages;
-        Visible := True;
-        AplicarPerfil;
-      finally
-        HideHourglassCursor;
-      end;
-    end
-    else
-      Close;
-  finally
-//    SplashScreen.Update;
-//    SplashScreen.Hide;
-//    SplashScreen.Release;
-  end;
---}
-end;
-
 procedure TfPantallaPrincipal.actMenuComprasExecute(Sender: TObject);
 begin
   //
@@ -468,12 +441,23 @@ begin
   AppFactuGES.UsuariosController.VerUsuarios
 end;
 
-procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
+{procedure TfPantallaPrincipal.WMSysCommand(var Msg: TWMSysCommand);
-begin
+begin}
-  // No tocar, sirve para recuperar el foco el formulario principal cuando
+  // sirve para recuperar el foco el formulario principal cuando
   // tenemos varios formularios hijos abiertos a la vez.
-  DefaultHandler(Msg);
+{  case (Msg.cmdtype and $FFF0) of
-end;
+    SC_MINIMIZE:  begin
+                    ShowWindow(handle, SW_MINIMIZE);
+                    Msg.result := 0;
+                  end;
+    SC_RESTORE:   begin
+                    ShowWindow(handle, SW_RESTORE);
+                    Msg.result := 0;
+                  end;
+    else
+      DefaultHandler(Msg);
+  end;
+end;}
 
 constructor TfPantallaPrincipal.Create(AOwner: TComponent);
 begin
@@ -528,7 +512,7 @@ procedure TfPantallaPrincipal.actAcercaExecute(Sender: TObject);
 begin
   with TfAcercaDe.Create(NIL) do
     try
-      //--HostManager := Self.HostManager;
+      HostManager := AppFactuGES.ModuleManager;
       ShowModal;
     finally
       Free;