Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglos visuales en los grids.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@325 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-12 15:14:09 +00:00
parent abaebda04d
commit ef9df1d20e
2 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Source/GUIBase/uViewGrid.pas
View File

@ -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;

26
Source/GUIBase/uViewGridBase.pas
View File

@ -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;