Introduce new sub to change default page layout

This commit is contained in:
Helge Delfs 2009-12-11 06:54:40 +00:00
parent 2869d8238c
commit 56c617e490

View file

@ -409,3 +409,21 @@ function wDeleteAutotext(vAutotextName as string) as boolean
next ik
end function
sub wChangeDefaultView()
' #i107038: This code forces the writer to display one page only which is
' zoomed to pagewidth, filling the entire - previously maximized - window.
' This is required because the VCL Testtool might eventually draw objects
' outside the document window depending on display size
Call hNewDocument
ViewZoom
Kontext "Massstab"
Vergroesserung100.check
Singlepage.check
Massstab.Ok
Call hCloseDocument
end sub