Home General

Scale View in Designer

edited December 2017 in General
Is it possible to scale the workspaceview in designer
to "zsWholePage" as it can be done for previewing?

--


Hint: We altered the sources!Hint: We altered the sources!

Comments

  • edited December 2017
    Hi Carsten,

    Since many bands and components are dynamically sized, the concept of a
    "page" doesn't fully exist in the designer (with some exceptions).

    1. You can use the zoom setting in the bottom left corner of the
    designer to scale the entire work space. If you size your bands to the
    exact height of a page, you should be able to zoom out to give a "whole
    page" effect. I believe this value is saved with the .ini file so it
    will be consistent.

    2. When designing a page layer, the allotted space is that of a single
    page. This could also be used to zoom to the proper percentage.

    --
    Best Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com
  • edited December 2017
    Am 12.12.2017 um 17:28 schrieb Nico Cizik (Digital Metaphors):

    Any hint how to calculate the proper percentage?
    page.heigthinPixel/window.heigth?
  • edited December 2017
    Hi Carsten,

    In my testing, the following code gave me the effect you are after.

    procedure TForm1.ppDesigner1Show(Sender: TObject);
    var
    liWorkspaceHeight: Integer;
    liPageHeight: Integer;
    begin

    liWorkspaceHeight :=
    ppDesigner1.Form.LayoutManager.WorkspaceView.Scrollbox.Height;
    liPageHeight := ppReport1.PrinterSetup.PageDef.spPrintableHeight;

    ppDesigner1.Form.Scale := Trunc(liWorkspaceHeight/liPageHeight * 100);

    end;

    --
    Best Regards,

    Nico Cizik
    Digital Metaphors
    http://www.digital-metaphors.com
  • edited December 2017
    Nico Cizik (Digital Metaphors) machte diesen Vorschlag :

    Works fine!

    --


    Hint: We altered the sources!Hint: We altered the sources!
This discussion has been closed.