Как включить дерево данных по умолчанию?

Ravend

Привет, All!

Подскажите как настроить внешний вид из кода, в FR передается DataSet требуется чтоб во вкладке Data(Поля БД) дерево отображалось по умолчанию, и пользователю не приходилось лазить в Отчеты->Данные отчета чтоб проставить там галочку, в дезайнере ничего подобного не нашел.

Спасибо.

GloThin

написал:

Подскажите как настроить внешний вид из кода,

Внешний вид чего - дизайнера? То есть из приложения ты запускаешь дизайнер?

Ravend

GloThin написал:

GloThin написал:

Подскажите как настроить внешний вид из кода,

Внешний вид чего - дизайнера? То есть из приложения ты запускаешь дизайнер?

запускается строка

frxReport1.DesignReport;

GloThin

То есть на форме у тебя есть Dataset, данные с которого используются, чтобы включить его при запуске дизайнера и не ставить галочку, надо до запуска дизайнера выполнить следующую строку:
frxreport1.DataSets.Add(frxDBDataset1);

Ravend

GloThin написал:

То есть на форме у тебя есть Dataset, данные с которого используются, чтобы включить его при запуске дизайнера и не ставить галочку, надо до запуска дизайнера выполнить следующую строку:
frxreport1.DataSets.Add(frxDBDataset1);

спасибо за ответы, но
это я и так делаю, прада есть ньюансы, реп хранится в БД в виде потока, и при вызове LoadFromStream обнуляется DataSets.Count, а на него завязано есть ли DataSet'ы отображаемые или нет, возникает вопрос, как после его чистки опять поднять нужные DataSet'ы ведь они по прежнему хранятся в нем, только в другом списке

пока ковыряю исходники дальше %/

GloThin

написал:

возникает вопрос, как после его чистки опять поднять нужные DataSet'ы ведь они по прежнему хранятся в нем, только в другом списке

А поподробнее об этом или приведи пример кода, после которого происходит очистка... Постараюсь помочь...

Ravend

GloThin написал:

А поподробнее об этом или приведи пример кода, после которого происходит очистка... Постараюсь помочь...

  ...
  rep.DataSets.Add(dsData);
  ...

rep.DataSets.Count = 1

function TfmMy.LoadReport : boolean;
var
  PrintData: TStream;
  DataString : string;
begin
  if ds.RecordCount > 0 then begin
    PrintData := TMemoryStream.Create;
    try
      DataString := ds.FieldByName('_Data').asString;
      PrintData.WriteBuffer(DataString[1], Length(DataString));
      if PrintData.Size > 0 then begin
        PrintData.Position := 0;
        rep.LoadFromStream(PrintData); --- !!!! после этого rep.DataSets.Count = 0
      end else begin
        rep.Clear;
      end;
    finally
      PrintData.Free;
    end;
    result := true;
  end else
    result := false;
end;

см.

procedure TfrxComponent.LoadFromStream(Stream: TStream);

в модуле frxClass эта функция зачищает данные