RE: [DUG]: Quick Report Preview

[Patrick Dunford]

This is my report viewer written in QR2
I can send you the source if you wish

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  qrprntr, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    QRPreview1: TQRPreview;
    Panel1: TPanel;
    GroupBox3: TGroupBox;
    Panel3: TPanel;
    ZoomToFit: TSpeedButton;
    ZoomToWidth: TSpeedButton;
    ZoomFullSize: TSpeedButton;
    OpenDialog1: TOpenDialog;
    PrintDialog1: TPrintDialog;
    GroupBox4: TGroupBox;
    Panel4: TPanel;
    PageFirst: TSpeedButton;
    PagePrev: TSpeedButton;
    PageNext: TSpeedButton;
    PageLast: TSpeedButton;
    GroupBox5: TGroupBox;
    Panel5: TPanel;
    LoadButton: TBitBtn;
    Print: TBitBtn;
    Exit: TBitBtn;
    procedure LoadButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure PrintButtonClick(Sender: TObject);
    procedure ZoomToFitClick(Sender: TObject);
    procedure ZoomToWidthClick(Sender: TObject);
    procedure ZoomFullSizeClick(Sender: TObject);
    procedure PageFirstClick(Sender: TObject);
    procedure PagePrevClick(Sender: TObject);
    procedure PageNextClick(Sender: TObject);
    procedure PageLastClick(Sender: TObject);
    procedure PrintClick(Sender: TObject);
    procedure ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}



procedure TForm1.LoadButtonClick(Sender: TObject);
begin
     if OpenDialog1.Execute then
     begin
          QRPreview1.QRPrinter.Load(OpenDialog1.FileName);
          QRPreview1.ZoomToWidth;
          QRPreview1.UpdateZoom;
          QRPreview1.PageNumber := 1;
          QRPreview1.PreviewImage.PageNumber := 1;
     end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     QRPreview1.QRPrinter:=TQRPrinter.Create;
end;

procedure TForm1.PrintButtonClick(Sender: TObject);
begin
     QRPreview1.QRPrinter.Print;
end;

procedure TForm1.ZoomToFitClick(Sender: TObject);
begin
     QRPreview1.ZoomToFit;
end;

procedure TForm1.ZoomToWidthClick(Sender: TObject);
begin
     QRPreview1.ZoomToWidth;
end;

procedure TForm1.ZoomFullSizeClick(Sender: TObject);
begin
     QRPreview1.Zoom:=100;
end;

procedure TForm1.PageFirstClick(Sender: TObject);
begin
     try
        QRPreview1.PageNumber:=1;
     except
     end;
end;

procedure TForm1.PagePrevClick(Sender: TObject);
begin
     try
        QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
     except
     end;
end;

procedure TForm1.PageNextClick(Sender: TObject);
begin
     try
        QRPreview1.PageNumber:=QRPreview1.PageNumber+1;
     except
     end;
end;

procedure TForm1.PageLastClick(Sender: TObject);
begin
     try
        QRPreview1.PageNumber:=QRPreview1.QRPrinter.PageCount;
     except
     end;
end;

procedure TForm1.PrintClick(Sender: TObject);
begin
     QRPreview1.QRPrinter.Print;
end;

procedure TForm1.ExitClick(Sender: TObject);
begin
     Close;
end;

end.


> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> Behalf Of Mark Howard
> Sent: Wednesday, 2 February 2000 09:19
> To: Multiple recipients of list delphi
> Subject: [DUG]: Quick Report Preview
> 
> 
> Hi
> 
> I am trying to merely display some previously run reports, saved
> in .QRP format. (Using QR V2)
> 
> I have done the following:
> 
> procedure TMain.OwnDetBtnClick(Sender: TObject);
> var RepName: String;
> begin
>      if Sender = BitBtn1 then RepName := 'OwnDet';
>     (some more of this)
> end;
> 
> with ReportFrm do
>      begin
>         QR1.Prepare;
>         QR1.QRPrinter.Load('Reports\'+RepName+'.QRP');
>         QR1.QRPrinter.Preview;
>         QR1.QRPrinter.Free;
>      end;
> end;
> 
> which works fine - except the report displays at about 150% size,
> and when I click on any of the "size" buttons I get an Access
> Violation error.
> 
> Patrick suggested that I should be using a QRPreview component
> bacause that would let me set a zoom % for display.
> 
> Trouble is I can't find any examples of how to use this component
> and anything that I have tried just gives me an Access Violation
> error.
> 
> If anyone has any suggestions based either on the above code or
> examples of the use of QRPreview for this sort of purpose, I
> would be eternally grateful
> 
> TIA
> 
> Mark
> 
> 
> 
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz