Tfrxpreview.loadfromfile

g@ns

Доброго времени суток!

на форме лежит TfrxPreview и созданный для него ToolBar

по кнопке открыть

TfrxPreview.loadFromFile;

Как после этого получить имя загруженного файла?

gpi

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

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

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

g@ns

gpi написал: »

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

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