Заголовок окна предварительного просмотра

Комментарии

• -=Den=-

  August 2006 отредактировано 00:14

  Имя файла открытого в певью не сохраняется, поэтому придется вызывать свой диалог.

  interface
  
  uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, frxClass,frxPreview,frxPreviewPages,frxRes;
  
  type
    TForm1 = class(TForm)
      frxReport1: TfrxReport;
      procedure FormCreate(Sender: TObject);
      procedure frxReport1Preview(Sender: TObject);
      procedure NewOnClick(Sender: TObject);
    end;
  
  var
    Form1: TForm1;
  
  
  implementation
  
  {$R *.dfm}
  
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    frxReport1.ShowReport();
  end;
  
  
  procedure TForm1.frxReport1Preview(Sender: TObject);
  begin
    if frxReport1.PreviewForm is TfrxPreviewForm then
       begin
        TfrxPreviewForm(frxReport1.PreviewForm).OpenB.OnClick := NewOnClick;
        TfrxPreviewForm(frxReport1.PreviewForm).RightMenu.Items[1].OnClick := NewOnClick;
       end;
  end;
  
  procedure TForm1.NewOnClick(Sender: TObject);
    var
    OpenDlg: TOpenDialog;
  begin
    if frxReport1.Engine.Running then Exit;
    OpenDlg := TOpenDialog.Create(nil);
    try
      OpenDlg.Options := [ofHideReadOnly];
      OpenDlg.Filter := frxResources.Get('clFP3files') + ' (*.fp3)|*.fp3';
      if OpenDlg.Execute then
      begin
        TfrxPreview(frxReport1.Preview).LoadFromFile(OpenDlg.FileName);
        frxReport1.PreviewForm.Caption := OpenDlg.FileName;
      end;
    finally
      OpenDlg.Free;
    end;
  end;
  
  end.
  
• KVas

  August 2006 отредактировано 00:14

  Все как доктор прописал.. Спасибо за оперативный толковый ответ.