From 0dec9720759e7ad017754c264f0e61e6bced53ba Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Sun, 18 Nov 2007 12:02:14 +0000
Subject: [PATCH] =?UTF-8?q?El=20t=C3=ADtulo=20de=20la=20ventana=20principa?=
 =?UTF-8?q?l=20estaba=20mal.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@128 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Cliente/uPantallaPrincipal.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 1f294e75..10f2f4b1 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -164,6 +164,7 @@ procedure TfPantallaPrincipal.FormCreate(Sender: TObject);
 begin
   ApplicationEvents.Activate;
   Application.Title := AppFactuGES.AppName + ' ' + AppFactuGES.AppVersion;
+  Caption := Application.Title;
 
   JvNavigationPane.StyleManager := dmBase.StyleManager;
   dmBase.OnThemeChange := Self.OnThemeChange;
@@ -187,6 +188,7 @@ begin
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
 
   Application.Title := ATitulo;
+  Caption := Application.Title;
 
   if dmConexion.HayConexion then 
     TBXStatusBar1.Panels[0].Caption := 'Conectado a: ' + dmConexion.TargetURL