Как изменить текущую папку?

tavistavis Кировоград
отредактировано 22:14 Раздел: FastReport 2.xx VCL
День добрый. Использую версию FastReport 2.5 Ситуация следующая: пользователь сохраняет сформированный отчет с помощью функции SaveToFile() При этом открывается папка, в которую было выполнено последнее сохранение. Как можно изменить программно текущую папку или установить путь "по умолчанию"?
Благодарю за помощь.

Комментарии

  • gpigpi
    отредактировано 22:14
    Попробуйте модифицировать исходники:
    procedure TfrReport.ShowPreparedReport;
    var
      s: String;
      p: TfrPreviewForm;
    begin
      CurReport := Self;
      MasterReport := Self;
      DocMode := dmPrinting;
      CurBand := nil;
      if EMFPages.Count = 0 then Exit;
      s := frLoadStr(SPreview);
      if Title <> '' then s := s + ' - ' + Title;
      if not (csDesigning in ComponentState) and Assigned(Preview) then
        Preview.Connect(Self)
      else
      begin
        if csDesigning in ComponentState then
          p := TfrPreviewForm.Create(nil) else
          p := TfrPreviewForm.Create(Self);
        if MDIPreview then
        begin
          p.WindowState := wsNormal;
          p.FormStyle := fsMDIChild;
        end;
        p.Caption := s;
        p.SaveDialog.InitialDir := 'C:\';  //добавить
        p.Show_Modal(Self);
        Application.ProcessMessages;
      end;
    end;
    

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.