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

- Funcion BestFitAllColumns para mejor ajuste de las columnas.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@610 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-23 15:43:34 +00:00
parent 02017c27da
commit f0afbc004c
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
Source/GUIBase/uViewGridBase.pas
View File

@ -93,6 +93,7 @@ type
FFilter: string;
FOnFilterChanged : TNotifyEvent;
FGridStatus : TcxGridStatus;
procedure BestFitAllColumns;
protected
FOnDblClick: TNotifyEvent;
FPopupMenu: TPopupMenu;
@ -196,29 +197,36 @@ begin
RegisterCustomContainer(TfrViewGridBase);
end;
procedure BestFitAllColumns (TheView:TcxGridDBTableView; ALimit:Integer = 0);
{ TfrViewGrid }
procedure TfrViewGridBase.BestFitAllColumns;
var
i : Integer ;
begin
for i := 0 to TheView.VisibleColumnCount-1 do
begin
//TheView.VisibleColumns[i].BestFitMaxWidth := 0;
TheView.VisibleColumns[i].ApplyBestFit;
if (ALimit > 0) then
ShowHourglassCursor;
_FocusedView.BeginUpdate;
try
for i := 0 to _FocusedView.ColumnCount-1 do
begin
if (TheView.VisibleColumns[i].Width > ALimit) then
TheView.VisibleColumns[i].Width := ALimit;
_FocusedView.Columns[i].ApplyBestFit;
if _FocusedView.Columns[i].BestFitMaxWidth > 0 then
begin
if (_FocusedView.Columns[i].Width > _FocusedView.Columns[i].BestFitMaxWidth) then
_FocusedView.Columns[i].Width := _FocusedView.Columns[i].BestFitMaxWidth;
end;
end;
finally
_FocusedView.EndUpdate;
HideHourglassCursor;
end;
End;
{ TfrViewGrid }
end;
procedure TfrViewGridBase.AjustarAncho;
begin
if Assigned(_FocusedView) then
begin
_FocusedView.ApplyBestFit;
BestFitAllColumns;
//_FocusedView.ApplyBestFit;
end;
end;