Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso al proceso de creación de la aplicación para quitar código innecesario.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@96 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-14 22:23:50 +00:00
parent 35f3ae7c97
commit 7fca7e5cde
3 changed files with 7 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -292,7 +292,7 @@ begin
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
ShowSplashForm; //ShowSplashForm;
CargarModulos; CargarModulos;
DoMainForm; DoMainForm;
finally finally

9
Source/Cliente/uBootStrap.pas
View File

@ -6,9 +6,9 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uSplash, uFactuGES_App, StdCtrls; Dialogs, uSplash, uFactuGES_App, StdCtrls;
procedure Initialize; procedure Initialize;
procedure Run; procedure Run;
procedure Terminate; procedure Terminate;
implementation implementation
@ -63,9 +63,6 @@ end;
procedure Run; procedure Run;
begin begin
AppFactuGES.Run; AppFactuGES.Run;
repeat
//Nada
until AppFactuGES.Terminated;
end; end;
procedure Terminate; procedure Terminate;

18
Source/Cliente/uPantallaPrincipal.pas
View File

@ -118,7 +118,6 @@ type
procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND; procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;
protected protected
function GetWorkPanel : TWinControl; function GetWorkPanel : TWinControl;
procedure CreateParams(var Params: TCreateParams); override;
public public
function IsShortcut(var Message: TWMKey): Boolean; override; function IsShortcut(var Message: TWMKey): Boolean; override;
procedure OnWorkPanelChanged(AEditor : ICustomEditor); procedure OnWorkPanelChanged(AEditor : ICustomEditor);
@ -164,7 +163,7 @@ end;
procedure TfPantallaPrincipal.FormCreate(Sender: TObject); procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
begin begin
ApplicationEvents.Activate; ApplicationEvents.Activate;
Caption := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion; Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
JvNavigationPane.StyleManager := dmBase.StyleManager; JvNavigationPane.StyleManager := dmBase.StyleManager;
dmBase.OnThemeChange := Self.OnThemeChange; dmBase.OnThemeChange := Self.OnThemeChange;
@ -187,7 +186,7 @@ begin
if Assigned(AppFactuGES.EmpresaActiva) then if Assigned(AppFactuGES.EmpresaActiva) then
ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo; ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
Caption := ATitulo; Application.Title := ATitulo;
if dmConexion.HayConexion then if dmConexion.HayConexion then
TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL
@ -459,7 +458,7 @@ end;
procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage); procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
begin 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. // tenemos varios formularios hijos abiertos a la vez.
DefaultHandler(Msg); DefaultHandler(Msg);
end; end;
@ -492,17 +491,6 @@ begin
end; end;
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); procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
begin begin
{ fActualizacion := TfActualizacion.Create(Self); { fActualizacion := TfActualizacion.Create(Self);