From ef9df1d20e8eb5176930da5cdbd1e99acf912db5 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 12 Nov 2008 15:14:09 +0000
Subject: [PATCH] Arreglos visuales en los grids.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@325 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/GUIBase/uViewGrid.pas     |  7 +++++--
 Source/GUIBase/uViewGridBase.pas | 26 ++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 2 deletions(-)

diff --git a/Source/GUIBase/uViewGrid.pas b/Source/GUIBase/uViewGrid.pas
index 5dc8fe63..0038bcef 100644
--- a/Source/GUIBase/uViewGrid.pas
+++ b/Source/GUIBase/uViewGrid.pas
@@ -113,8 +113,11 @@ end;
 procedure TfrViewGrid.OnChangeValoresFiltro(Sender: TObject);
 begin
   cxGridView.DataController.Filter.BeginUpdate;
-  RefrescarFiltro;
-  cxGridView.DataController.Filter.EndUpdate;
+  try
+  	RefrescarFiltro;
+  finally
+  	cxGridView.DataController.Filter.EndUpdate;
+  end;
 end;
 
 procedure TfrViewGrid.Preview;
diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas
index c34300e1..2a4e4196 100644
--- a/Source/GUIBase/uViewGridBase.pas
+++ b/Source/GUIBase/uViewGridBase.pas
@@ -89,6 +89,7 @@ type
     FFilter: string;
     FOnFilterChanged : TNotifyEvent;
     FGridStatus : TcxGridStatus;
+    procedure BestFitAllColumns;
   protected
     FOnDblClick: TNotifyEvent;
     FPopupMenu: TPopupMenu;
@@ -177,10 +178,35 @@ end;
 
 { TfrViewGrid }
 
+procedure TfrViewGridBase.BestFitAllColumns;
+var
+  i : Integer ;
+
+begin
+  ShowHourglassCursor;
+  _FocusedView.BeginUpdate;
+
+  try
+    for i := 0 to _FocusedView.VisibleColumnCount-1 do
+    begin
+      _FocusedView.VisibleColumns[i].ApplyBestFit;
+      if (_FocusedView.VisibleColumns[i].BestFitMaxWidth > 0) and
+         (_FocusedView.VisibleColumns[i].Width > _FocusedView.VisibleColumns[i].BestFitMaxWidth) then
+          _FocusedView.VisibleColumns[i].Width := _FocusedView.VisibleColumns[i].BestFitMaxWidth;
+    end;
+  finally
+    _FocusedView.EndUpdate;
+    HideHourglassCursor;
+  end;
+end;
+
 procedure TfrViewGridBase.AjustarAncho;
 begin
   if Assigned(_FocusedView) then
+  begin
+  	BestFitAllColumns;
     _FocusedView.ApplyBestFit;
+  end;
 end;
 
 procedure TfrViewGridBase.AnadirOtrosFiltros;