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

Sacar pantalla de splash cuando está cargando la aplicación.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@798 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-09 16:39:48 +00:00
parent 8c0c292d03
commit 33fcd26d39
3 changed files with 1040 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -166,10 +166,12 @@ end;
procedure TAppFactuGES.CargarModulos; procedure TAppFactuGES.CargarModulos;
begin begin
UpdateSplashForm;
if not Assigned(FDoLoadModulesEvent) then if not Assigned(FDoLoadModulesEvent) then
raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)'); raise Exception.Create('Evento para la carga de los módulos de la aplicación no asignado (CargarModulos)');
FDoLoadModulesEvent(); FDoLoadModulesEvent();
UpdateSplashForm;
end; end;
constructor TAppFactuGES.Create; constructor TAppFactuGES.Create;
@ -319,12 +321,13 @@ begin
if UsuariosController.StartLogin then if UsuariosController.StartLogin then
begin begin
ShowHourglassCursor; ShowHourglassCursor;
ShowSplashForm;
try try
CargarModulos; CargarModulos;
DoMainForm; DoMainForm;
finally finally
HideHourglassCursor;
HideSplashForm; HideSplashForm;
HideHourglassCursor;
end; end;
end; end;
Application.Run; Application.Run;

1044
Source/Cliente/uSplash.dfm
View File

File diff suppressed because it is too large Load Diff

2
Source/Cliente/uSplash.pas
View File

@ -10,7 +10,7 @@ type
TSplashScreen = class(TForm) TSplashScreen = class(TForm)
Panel1: TPanel; Panel1: TPanel;
lblTexto: TLabel; lblTexto: TLabel;
Image1: TImage; Image2: TImage;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
end; end;