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

Pantalla principal: arreglado que la pantalla principal no se hace visible cuando se abre la aplicación.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@336 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-03-12 17:50:04 +00:00
parent 10478a6de3
commit 66ebbb91af
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -126,6 +126,7 @@ type
//procedure WMSysCommand(var Msg: TWMSysCommand); 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);
@ -482,6 +483,14 @@ begin
end;
end;
procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
begin
{ ¡¡¡No quitar este procedimiento aunque no haga nada!!!!!
Si se quita, esta pantalla principal se queda en el fondo
después de desaparecer la pantalla de login. }
inherited CreateParams(Params);
end;
procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
begin
{ fActualizacion := TfActualizacion.Create(Self);