Scale View in Designer

rbuser

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!

nicocizik

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.

--

rbuser

Am 12.12.2017 um 17:28 schrieb Nico Cizik (Digital Metaphors):

Any hint how to calculate the proper percentage?
page.heigthinPixel/window.heigth?

nicocizik

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;

--

rbuser

Nico Cizik (Digital Metaphors) machte diesen Vorschlag :

Works fine!

--


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