Tfrxpreview.loadfromfile

Комментарии

• gpi

  May 2010 отредактировано 01:23

  По-моему, получить имя загруженного файла нельзя

  procedure TfrxPreview.LoadFromFile;
  var
    OpenDlg: TOpenDialog;
  begin
    if FRunning then Exit;
    OpenDlg := TOpenDialog.Create(nil);
    try
      OpenDlg.Options := [ofHideReadOnly, ofNoChangeDir];
      OpenDlg.Filter := frxResources.Get('clFP3files') + ' (*.fp3)|*.fp3';
      if OpenDlg.Execute then
      begin
        FWorkspace.Repaint;
        LoadFromFile(OpenDlg.FileName);
      end;
    finally
      OpenDlg.Free;
    end;
  end;
  
  procedure TfrxPreview.LoadFromFile(FileName: String);
  begin
    if FRunning then Exit;
    try
      Lock;
      ShowMessage(frxResources.Get('clLoading'));
      PreviewPages.LoadFromFile(FileName);
    finally
      PageNo := 1;
      UpdateOutline;
      Unlock;
    end;
  end;
  
• gpi

  May 2010 отредактировано 01:23

  А почему бы просто не создать свой диалог открытия файла и получить имя файла?
• g@ns г. Харьков

  May 2010 отредактировано 01:23

  gpi написал: »

  А почему бы просто не создать свой диалог открытия файла и получить имя файла?

  
  я так и делаю, но зачем создавать свой если бы была возможность вытаскивать из FR