From b88ee68df56b8c57e896ba720b9ad2fdf5d7de31 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 15 Oct 2008 18:48:14 +0000
Subject: [PATCH] Modulo nuevo para los informes estadisticos e informes que ya
 tenian anteriormente

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@686 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/GUIBase/uViewPreview.dfm | 2 ++
 Source/GUIBase/uViewPreview.pas | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/Source/GUIBase/uViewPreview.dfm b/Source/GUIBase/uViewPreview.dfm
index 52e3be36..2bc9d8f7 100644
--- a/Source/GUIBase/uViewPreview.dfm
+++ b/Source/GUIBase/uViewPreview.dfm
@@ -6,5 +6,7 @@ inherited frViewPreview: TfrViewPreview
     Height = 214
     Align = alClient
     OutlineVisible = False
+    OutlineWidth = 121
+    ThumbnailVisible = False
   end
 end
diff --git a/Source/GUIBase/uViewPreview.pas b/Source/GUIBase/uViewPreview.pas
index c16f3764..de4f478c 100644
--- a/Source/GUIBase/uViewPreview.pas
+++ b/Source/GUIBase/uViewPreview.pas
@@ -18,6 +18,7 @@ type
   private
     function GetPreview: TfrxPreview;
   public
+    procedure Refresh; override;  
     property Preview : TfrxPreview read GetPreview;
   end;
 
@@ -32,6 +33,12 @@ begin
   Result := frxPreview;
 end;
 
+procedure TfrViewPreview.Refresh;
+begin
+  inherited;
+  frxPreview.RefreshReport;
+end;
+
 initialization
   RegisterClass(TfrViewPreview);