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

Arreglado el error de maximizado de la ventana principal.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@920 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-03-05 12:14:37 +00:00
parent 56dfc3b4ed
commit 51ad45863e
4 changed files with 58 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -7,8 +7,7 @@ uses
uEmpresasController, uUsuariosController, uHostManager, uModuleController;
type
TDoLoadModulesEvent = procedure;
TDoMainFormEvent = procedure;
TAppFactuGES_Event = procedure;
IAppSplashForm = interface
['{9905DF57-4476-42E6-A7CD-B1479A84E220}']
@ -33,11 +32,14 @@ type
function GetModuleManager : THostManager;
function GetTerminated: Boolean;
function GetLoadModulesEvent : TDoLoadModulesEvent;
procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent);
function GetLoadModulesEvent : TAppFactuGES_Event;
procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
function GetDoMainFormEvent : TDoMainFormEvent;
procedure SetDoMainFormEvent (AMainFormEvent : TDoMainFormEvent);
function GetDoMainFormEvent : TAppFactuGES_Event;
procedure SetDoMainFormEvent (AMainFormEvent : TAppFactuGES_Event);
function GetDoRefreshMainFormEvent : TAppFactuGES_Event;
procedure SetDoRefreshMainFormEvent (ARefreshMainFormEvent : TAppFactuGES_Event);
function GetAppSplashForm : IAppSplashForm;
procedure SetAppSplashForm (AAppSplashForm : IAppSplashForm);
@ -63,11 +65,10 @@ type
property UsuariosController : IUsuariosController read GetUsuariosController;
property AppSplashForm : IAppSplashForm read GetAppSplashForm write SetAppSplashForm;
property ModuleManager : THostManager read GetModuleManager;
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property DoMainFormEvent : TAppFactuGES_Event read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TAppFactuGES_Event read GetLoadModulesEvent write SetLoadModulesEvent;
property DoRefreshMainFormEvent : TAppFactuGES_Event read GetDoRefreshMainFormEvent write SetDoRefreshMainFormEvent;
property Terminated : Boolean read GetTerminated;
procedure ShowCapado;
end;
@ -80,8 +81,9 @@ type
FHostManager : THostManager;
FTerminated : Boolean;
FDoMainFormEvent: TDoMainFormEvent;
FDoLoadModulesEvent: TDoMainFormEvent;
FDoMainFormEvent: TAppFactuGES_Event;
FDoLoadModulesEvent: TAppFactuGES_Event;
FDoRefreshMainFormEvent: TAppFactuGES_Event;
function GetMainForm: TCustomForm;
function GetEmpresasController: IEmpresasController;
@ -94,11 +96,14 @@ type
function GetModuleManager : THostManager;
function GetTerminated: Boolean;
function GetLoadModulesEvent : TDoLoadModulesEvent;
procedure SetLoadModulesEvent (ALoadModulesEvent : TDoLoadModulesEvent);
function GetLoadModulesEvent : TAppFactuGES_Event;
procedure SetLoadModulesEvent (ALoadModulesEvent : TAppFactuGES_Event);
function GetDoMainFormEvent : TDoMainFormEvent;
procedure SetDoMainFormEvent (AMainFormEvent : TDoMainFormEvent);
function GetDoMainFormEvent : TAppFactuGES_Event;
procedure SetDoMainFormEvent (AMainFormEvent : TAppFactuGES_Event);
function GetDoRefreshMainFormEvent : TAppFactuGES_Event;
procedure SetDoRefreshMainFormEvent (ARefreshMainFormEvent : TAppFactuGES_Event);
function GetAppSplashForm : IAppSplashForm;
procedure SetAppSplashForm (AAppSplashForm : IAppSplashForm);
@ -107,6 +112,7 @@ type
procedure RegisterModule(AModuleInfo : TModuleInfo);
protected
procedure DoMainForm;
procedure DoRefreshMainForm;
procedure CargarModulos;
procedure ShowSplashForm;
@ -134,11 +140,10 @@ type
property EmpresasController : IEmpresasController read GetEmpresasController;
property UsuariosController : IUsuariosController read GetUsuariosController;
property ModuleManager : THostManager read GetModuleManager;
property DoMainFormEvent : TDoMainFormEvent read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TDoLoadModulesEvent read GetLoadModulesEvent write SetLoadModulesEvent;
property DoMainFormEvent : TAppFactuGES_Event read GetDoMainFormEvent write SetDoMainFormEvent;
property DoLoadModulesEvent : TAppFactuGES_Event read GetLoadModulesEvent write SetLoadModulesEvent;
property DoRefreshMainFormEvent : TAppFactuGES_Event read GetDoRefreshMainFormEvent write SetDoRefreshMainFormEvent;
property Terminated : Boolean read GetTerminated;
procedure ShowCapado;
end;
var
@ -223,11 +228,16 @@ begin
Result := Application.MainForm;
end;
function TAppFactuGES.GetDoMainFormEvent: TDoMainFormEvent;
function TAppFactuGES.GetDoMainFormEvent: TAppFactuGES_Event;
begin
Result := FDoMainFormEvent;
end;
function TAppFactuGES.GetDoRefreshMainFormEvent: TAppFactuGES_Event;
begin
Result := FDoRefreshMainFormEvent;
end;
function TAppFactuGES.GetAppFullName: String;
begin
Result := uAppInfoUtils.GetAppFullName;
@ -261,7 +271,7 @@ begin
Result := FEmpresasController;
end;
function TAppFactuGES.GetLoadModulesEvent: TDoLoadModulesEvent;
function TAppFactuGES.GetLoadModulesEvent: TAppFactuGES_Event;
begin
Result := FDoLoadModulesEvent;
end;
@ -313,6 +323,14 @@ begin
RegisterModule(AModuleInfo);
end;
procedure TAppFactuGES.DoRefreshMainForm;
begin
if not Assigned(FDoRefreshMainFormEvent) then
raise Exception.Create('Evento para el refresco del formulario principal no asignado (DoRefreshMainForm)');
FDoRefreshMainFormEvent();
end;
procedure TAppFactuGES.RegisterModule(AModuleInfo: TModuleInfo);
begin
AppSplashForm.Mensaje := 'Cargando ''' + AModuleInfo.Module.ModuleName + '''...';
@ -327,6 +345,8 @@ begin
try
CargarModulos;
DoMainForm;
SeleccionarEmpresa;
DoRefreshMainForm;
finally
HideSplashForm;
HideHourglassCursor;
@ -337,11 +357,17 @@ begin
end;
procedure TAppFactuGES.SetDoMainFormEvent(
AMainFormEvent: TDoMainFormEvent);
AMainFormEvent: TAppFactuGES_Event);
begin
FDoMainFormEvent := AMainFormEvent;
end;
procedure TAppFactuGES.SetDoRefreshMainFormEvent(
ARefreshMainFormEvent: TAppFactuGES_Event);
begin
FDoRefreshMainFormEvent := ARefreshMainFormEvent;
end;
procedure TAppFactuGES.SeleccionarEmpresa;
var
JsDialog: TJSDialog;
@ -391,16 +417,11 @@ begin
end;
procedure TAppFactuGES.SetLoadModulesEvent(
ALoadModulesEvent: TDoLoadModulesEvent);
ALoadModulesEvent: TAppFactuGES_Event);
begin
FDoLoadModulesEvent := ALoadModulesEvent;
end;
procedure TAppFactuGES.ShowCapado;
begin
ShowInfoMessage('Sin Acceso', 'Funcionalidad en desarrollo, disculpen las molestias');
end;
procedure TAppFactuGES.ShowSplashForm;
begin
if not Assigned(FAppSplashForm) then

7
Source/Cliente/uBootStrap.pas
View File

@ -55,6 +55,11 @@ begin
end;
end;
procedure DoRefreshMainForm;
begin
fPantallaPrincipal.RefrescarUI;
end;
procedure DoAppMainForm;
begin
Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal);
@ -62,7 +67,6 @@ end;
procedure Initialize;
begin
dmConexion := TdmConexion.Create(NIL);
dmConfiguracion := TdmConfiguracion.Create(NIL);
dmBase := TdmBase.Create(NIL);
@ -73,6 +77,7 @@ begin
AppSplashForm := TAppSplashForm.Create;
DoMainFormEvent := DoAppMainForm;
DoLoadModulesEvent := DoAppLoadModules;
DoRefreshMainFormEvent := DoRefreshMainForm;
end;
NavPaneController := TNavPaneController.Create;

1
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -14,6 +14,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
OldCreateOrder = False
Position = poScreenCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate

14
Source/Cliente/uPantallaPrincipal.pas
View File

@ -123,7 +123,6 @@ type
procedure ShowEmbedded(AEditor : ICustomEditor);
procedure ReleaseEmbedded;
procedure AplicarPerfil;
procedure RefrescarUI;
procedure InicializarUI;
procedure OnThemeChange(Sender: TObject);
procedure ExecuteActionMenu(Sender : TObject);
@ -132,6 +131,7 @@ type
function GetWorkPanel : TWinControl;
procedure CreateParams(var Params: TCreateParams); override;
public
procedure RefrescarUI;
function IsShortcut(var Message: TWMKey): Boolean; override;
procedure OnWorkPanelChanged(AEditor : ICustomEditor);
constructor Create(AOwner: TComponent); override;
@ -187,20 +187,8 @@ begin
end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject);
var
AIDEmpresa : Integer;
begin
InicializarUI;
{ Go full screen }
WindowState := wsMaximized;
ClientWidth := Screen.Width;
ClientHeight := Screen.Height;
Refresh;
//Sacamos la lista de empresas para que el usuario elija con la que va a trabajar
AppFactuGES.SeleccionarEmpresa;
RefrescarUI;
end;
procedure TfPantallaPrincipal.RefrescarUI;