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

El título de la ventana principal estaba mal.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@128 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-11-18 12:02:14 +00:00
parent 0573ae8d93
commit 0dec972075
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Cliente/uPantallaPrincipal.pas
View File

@ -164,6 +164,7 @@ procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
begin begin
ApplicationEvents.Activate; ApplicationEvents.Activate;
Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion; Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
Caption := Application.Title;
JvNavigationPane.StyleManager := dmBase.StyleManager; JvNavigationPane.StyleManager := dmBase.StyleManager;
dmBase.OnThemeChange := Self.OnThemeChange; dmBase.OnThemeChange := Self.OnThemeChange;
@ -187,6 +188,7 @@ begin
ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo; ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
Application.Title := ATitulo; Application.Title := ATitulo;
Caption := Application.Title;
if dmConexion.HayConexion then if dmConexion.HayConexion then
TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL