Отключение сортировки в Cross-tab динамически

mister

По дефолту у кросс-таба стоит сортировка по строкам и столбцам, и суммирование по ячейкам.

Как скинуть все в None программно (кросс-таб создается динамически).
Чтобы было как на скрине, только не ручками менять, а динамически.

mister

все еще актуально и нужно решение)

mister

Может быть как-то можно с уже созданного cross-tab'а скопировать параметры на тот, который создаю динамически?

Shtopor

Отключить сортировку:

var
  Cross: TfrxCrossView;
...
    Cross.ColumnSort[0]:=soNone;
    Cross.RowSort[0]:=soNone;

Ну а скопировать компонент можно так:

procedure CopyCross;
var
  f: TFileStream;
  Cross: TfrxCrossView;
begin
Cross:=frxReport1.FindObject('Cross1') as TfrxCrossView;
// Пишем компонент в файл
  try
    f := TFileStream.Create('stream.vcl', fmcreate);
    f.WriteComponent(Cross);
  finally
    f.Free;
  end;
...
// Читаем его из файла
  try
    f := TFileStream.Create('stream.vcl', fmOpenRead);
    f.ReadComponent(Cross);
  finally
    f.Free;
  end;
end;

На самом деле от копирования CrossTab толку мало. Плюс помни что его имя тоже копируется. Не забудь изменить.