1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
7 ' OpenOffice.org - a multi-platform office productivity suite
9 ' This file is part of OpenOffice.org.
11 ' OpenOffice.org is free software: you can redistribute it and/or modify
12 ' it under the terms of the GNU Lesser General Public License version 3
13 ' only, as published by the Free Software Foundation.
15 ' OpenOffice.org is distributed in the hope that it will be useful,
16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ' GNU Lesser General Public License version 3 for more details
19 ' (a copy is included in the LICENSE file that accompanied this code).
21 ' You should have received a copy of the GNU Lesser General Public License
22 ' version 3 along with OpenOffice.org. If not, see
23 ' <http://www.openoffice.org/license.html>
24 ' for a copy of the LGPLv3 License.
26 '/************************************************************************
28 '* owner : helge.delfs@oracle.com
30 '* short description : Test the functionality of Page Formatting / Page Styles
32 '\*******************************************************************
34 global gSeperator
as String
35 global gMeasurementUnit
as String
42 use
"writer\tools\includes\w_tools.inc"
43 use
"writer\tools\includes\w_tool3.inc"
44 use
"writer\tools\includes\w_tool7.inc"
45 use
"writer\optional\includes\tools\tools1.inc"
46 use
"writer\optional\includes\tools\tools2.inc"
47 use
"writer\optional\includes\formatpage\w_formatpage1.inc"
48 use
"writer\optional\includes\formatpage\w_formatpage2.inc"
49 use
"writer\optional\includes\formatpage\w_formatpage3.inc"
50 use
"writer\optional\includes\formatpage\w_formatpage4.inc"
52 printlog
Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartZeit
)
53 printlog
Chr(13) + "******* Writer - Level 1 - Test *******"
54 printlog
Chr(13) + " - Test of page function -"
56 Call hStatusIn ( "writer", "w_FormatPage.bas" , "Page" )
58 Call wOptionsUndo ( "All" ) ' Sets all writer-options to default
59 'Software Configuration:
60 'Getting the decimal seperator from global function
61 gSeperator
= GetDecimalSeperator()
62 'Setting the measurement unit to centimeters.
63 gMeasurementUnit
= fSetMeasurementToCM()
128 Printlog
Chr(13) + "End of Level 1 Test (Format page):"
129 Printlog
"Duration: "+ WieLange ( StartZeit
)
130 Printlog
"Date: " + Date + " Time: " + Time
135 use
"global\system\includes\master.inc"
136 use
"global\system\includes\gvariabl.inc"
138 gApplication
= "WRITER"