Solved

Delphi 6 Quick Report Zoom to fit

Posted on 2009-05-05
1
3,715 Views
Last Modified: 2013-11-22
I have Delphi 6 pro with Quick Report 3.09

I want to default the preview to Zoomtofit and have tried the following :-

uses .... QrPrev,qrprntr,Qrctrls, QuickRpt;

QuickReport1.PrevInitialZoom := qrZoomToFit;

But keep getting PrevInitialZoom is undeclared ???

Is it possible to call this method with my versions ???


Please advise

Thanks

Shane


 
 
0
Comment
Question by:Hornwood
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 2

Accepted Solution

by:
Bongos earned 500 total points
ID: 24315988
Hi Shane

That property is not available in your version of the components (nor is it available in my D6 version 3.62 QR components). I've tried previously to have a look at this but never managed to get it to work. I've attached a snippet of what I was playing with. I was trying to control the standard QR preview window by creating my own and then setting the zoom properties or clicking the button programmatically. None of it seemed to work so I just abandoned it.

Pat
uses ......qrprntr, qrprev;
 
type
  TForm2 = class(TForm)
    QuickRep1: TQuickRep;
    PageHeaderBand1: TQRBand;
    DetailBand1: TQRBand;
    PageFooterBand1: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    procedure QuickRep1Preview(Sender: TObject);
  private
    FPrev: TQRStandardPreview;
  public
   procedure RunReport;
  end;
 
procedure TForm2.RunReport;
begin
  quickrep1.onPreview := quickrep1Preview;
  QuickRep1.Preview;
end;
 
procedure TForm2.QuickRep1Preview(Sender: TObject);
begin
  FPrev := TQRStandardPreview.CreatePreview(Self, TQRPrinter(Sender));
  FPrev.QRPreview.ZoomToFit;
  try
    FPrev.QRPreview.ZoomState := qrZoomToFit;
    FPrev.Show;
    FPrev.QRPreview.ZoomState := qrZoomToFit;
    FPrev.QRPreview.ZoomToFit;
 
  finally
    //FPrev.Free;
  end;
end;

Open in new window

0

Featured Post

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of questions regard threads in Delphi.   One of the more specific questions is how to show progress of the thread.   Updating a progressbar from inside a thread is a mistake. A solution to this would be to send a synchronized message to the…
In this tutorial I will show you how to use the Windows Speech API in Delphi. I will only cover basic functions such as text to speech and controlling the speed of the speech. SAPI Installation First you need to install the SAPI type library, th…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question