Page 2 of 2

Re: Trap 25 on start

Posted: Sat Jun 06, 2020 3:03 pm
by Ivan Denisov
As reported by Mathieu Westerweele this problem also took place.

I suggested to add

Code: Select all

prt = NIL
just after selecting current printer in Documents.StdDocument.SetView.

Code: Select all

		IF Printers.dir # NIL THEN prt := Printers.dir.Current() ELSE prt := NIL END;
		prt = NIL;   (*  <-----------  *) 
		IF prt # NIL THEN
			prt.SetOrientation(FALSE);
This helped.

So eliminating printer from calculation of document size and margins is solving current issue for this case.
There should be more correct calculations for size and margins of document for this rare printer configuration.
However this is difficult to do without ability of reproducing this in my PC.

Re: Trap 25 on start

Posted: Sat Jun 06, 2020 6:28 pm
by Josef Templ
maybe using assertions in SetPage is too restrictive.
Falling back to a useful default may be the alternative.

In any case, I would like to know where the strange settings come from.
All we need for finding that out is a user that is willing to help us diagnose the problem.

- Josef