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

Комментарии

• mister

  October 2011 отредактировано 02:37

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

  October 2011 отредактировано 02:37

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

  December 2011 отредактировано 02:37

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

  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 толку мало. Плюс помни что его имя тоже копируется. Не забудь изменить.