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

Комментарии

• GloThin

  September 2005 отредактировано 06:45

  написал:

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

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

  September 2005 отредактировано 06:45

  GloThin написал:

  GloThin написал:

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

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

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

  frxReport1.DesignReport;
  
• GloThin

  September 2005 отредактировано 06:45

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

  September 2005 отредактировано 06:45

  GloThin написал:

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

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

  September 2005 отредактировано 06:45

  написал:

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

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

  September 2005 отредактировано September 2005

  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 эта функция зачищает данные