?
Solved

Delphi 6 Quick Report Zoom to fit

Posted on 2009-05-05
1
Medium Priority
?
3,892 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 1500 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

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

Question has a verified solution.

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

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…
Suggested Courses

649 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