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

Arreglo para que en el caso de tener varias vistas el grid aplique el quitar agrupaciones a todas y cada una de elllas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@259 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-07-01 10:53:15 +00:00
parent c5078c5925
commit dd91e00af2
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Source/GUIBase/uViewGrid.pas
View File

@ -138,16 +138,19 @@ end;
procedure TfrViewGrid.actQuitarAgrupacionesExecute(Sender: TObject);
var
Columna: TcxGridDBColumn;
i: Integer;
i,j: Integer;
begin
inherited;
for i := 0 to cxGridView.ColumnCount - 1 do
for j := 0 to cxGrid.ViewCount - 1 do
begin
Columna := (cxGridView as TcxGridDBTableView).Columns[i];
if not (Columna.GroupIndex < 0) then
for i := 0 to (cxGrid.Views[j] as tcxGridDBTableView).ColumnCount - 1 do
begin
Columna.GroupIndex := -1;
Columna.Visible := True;
Columna := (cxGrid.Views[j] as TcxGridDBTableView).Columns[i];
if not (Columna.GroupIndex < 0) then
begin
Columna.GroupIndex := -1;
Columna.Visible := True;
end;
end;
end;
end;