'encoding UTF-8 Do not remove or change this line! '************************************************************************** ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. ' ' Copyright 2000, 2010 Oracle and/or its affiliates. ' ' OpenOffice.org - a multi-platform office productivity suite ' ' This file is part of OpenOffice.org. ' ' OpenOffice.org is free software: you can redistribute it and/or modify ' it under the terms of the GNU Lesser General Public License version 3 ' only, as published by the Free Software Foundation. ' ' OpenOffice.org is distributed in the hope that it will be useful, ' but WITHOUT ANY WARRANTY; without even the implied warranty of ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ' GNU Lesser General Public License version 3 for more details ' (a copy is included in the LICENSE file that accompanied this code). ' ' You should have received a copy of the GNU Lesser General Public License ' version 3 along with OpenOffice.org. If not, see ' ' for a copy of the LGPLv3 License. ' '/************************************************************************ '* '* Owner : wolfram.garten@oracle.com '* '* short description : '* '\****************************************************************************** testcase tiDatei_Fuer_Anordnen_Erstellen dim sTemp as string dim i as integer dim zaehler as integer '/// This function creates the document, that will be used as reference and working object inthe following cases :-) ///' '///'Dim Datei ' somewhere global :-) defined in calling sub! :sub im_107c_ /// call hNewDocument call sSelectEmptyLayout '/// new document ///' if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file for Zaehler = 1 to 3 '/// create 3 overlapping objects ///' Kontext Select Case Zaehler Case 1: WL_SD_Wuerfel gMouseMove (20,5, 80,60) '/// cubicel 20,5, 80,60 /// Printlog " Object start ---------------------- "+ Zaehler +" cubicel " Case 2: WL_SD_RechteckVoll gMouseMove (40,35, 90,90) '/// rectangel 40,35, 90,90 /// Printlog " Object start ---------------------- "+ Zaehler +" rectangel " Case 3: WL_SD_Torus gMouseMove (1,35, 60,95) '/// donut ;-) 1,35, 60,95 /// Printlog " Object start ---------------------- "+ Zaehler +" donut " End Select sleep (1) FormatArea '/// assign different area properties for created objects (use rnd function)///' sleep (1) kontext Select Case Zaehler Case 1: active.SetPage TabFarbverlaeufe kontext "TabFarbverlaeufe" Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1) printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText TabFarbverlaeufe.OK Case 2: active.SetPage TabSchraffuren kontext "TabSchraffuren" Tabelle.Select Int((Tabelle.GetItemCount * Rnd) + 1) printlog "test tbo-------------------------------------------------color of object : "+Tabelle.GetSelText TabSchraffuren.OK Case 3: active.SetPage TabFarben kontext "TabFarben" Farbe.Select Int((Farbe.GetItemCount * Rnd) + 1) printlog "test tbo-------------------------------------------------color of object : "+Farbe.GetSelText TabFarben.OK End Select sleep 1 ContextPositionAndSize '/// save position and size values into varialbes ///' sleep (1) kontext active.SetPage TabPositionAndSize kontext "TabPositionAndSize" '/// the variables : Ueber_Text_[1-3] get set here ! with x position of object/// Select Case Zaehler Case 1: Ueber_Text_1 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText Case 2: Ueber_Text_2 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText Case 3: Ueber_Text_3 = PositionX.GetText : printlog "xpos: "+zaehler+": "+PositionX.GetText End Select TabPositionAndSize.OK gMouseClick 96,5 next Zaehler sleep 1 call hFileSaveAsKill (Datei) '/// save document ///' printlog "OK saved at ", Datei sleep 1 '/// select in default order and take Position X in mind ;-) ///' '///+ has to be from bottom to top: cubicel, rectangel, donut ///' sPrintCheckOrder (TRUE) call hCloseDocument '/// close document ///' endcase 'tiDatei_Fuer_Anordnen_Erstellen '------------------------------------------------------------------------------- testcase tdContextSendBackward dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///' hTypeKeys ("") '/// Send Backward / [Strg]+[-] -> one level more to the back ///' WL_TB_ANORDNUNG_WeiterNachHinten '///+ has to be from bottom to top: rectangel cubicel donut ///' sleep 2 sPrintCheckOrder '/// deselect all ///' hTypeKeys ("") sleep 2 '/// select the middle object: cubical, with keys: [TAB],[TAB] ///' hTypeKeys ("") sleep 2 sTemp = fGetPositionX if sTemp <> Ueber_Text_1 then warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";" end if '/// close document ///' Call hCloseDocument endif sleep 2 endcase 'tdContextSendBackward '------------------------------------------------------------------------------- testcase tdContextBringForward dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the middle object: rectangle, with keys: [TAB],[TAB] ///' hTypeKeys ("") '/// Bring Forward / [Strg]+[+] -> one level more to the front ///' WL_TB_ANORDNUNG_WeiterNachVorn '/// has to be from bottom to top: cubicel donut rectangel ///' sleep 1 sPrintCheckOrder '/// select the middle object: donut, with keys: [TAB],[TAB] ///' hTypeKeys ("") sleep 2 sTemp = fGetPositionX if sTemp <> Ueber_Text_3 then warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";" end if sleep 1 '/// close document ///' Call hCloseDocument endif endcase 'tdContextBringForward '------------------------------------------------------------------------------- testcase tdContextSendToBack dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///' hTypeKeys ("") '/// Send to Back / [Strg]+[Shift]+[-] -> backmost object ///' OL_DRAW_GanzNachHinten '/// has to be from bottom to top: rectangel cubicel donut ///' sleep 3 sPrintCheckOrder '/// select the middle object: cubical, with keys: [TAB],[TAB] ///' hTypeKeys ("") sleep 1 sTemp = fGetPositionX if sTemp <> Ueber_Text_1 then warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_1+";" end if sleep 3 '/// close document ///' Call hCloseDocument endif endcase 'tdContextSendToBack '------------------------------------------------------------------------------- testcase tdContextBringToFront dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the bottom object: cubical, with keys: [TAB] ///' hTypeKeys ("") '/// Bring to Front / [Strg]+[Shift]+[+] -> frontmost object ///' OL_DRAW_GanzNachVorn '/// has to be from bottom to top: rectangel, donut, cubicel ///' sPrintCheckOrder '/// select the middle object: donut, with keys: [TAB],[TAB] ///' hTypeKeys ("") sleep 1 sTemp = fGetPositionX if sTemp <> Ueber_Text_3 then warnlog "Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";" end if sleep 3 '/// close document ///' Call hCloseDocument endif endcase 'tdContextBringToFront '------------------------------------------------------------------------------- testcase tdContextInFrontOfObject dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///' hTypeKeys ("") '/// In Front of object ///' OL_DRAW_VorDasObjekt '/// left click the cubicel with the mouse ///' gMouseClick 50,5 '/// has to be from bottom to top: cubicel, donut, rectangel ///' sPrintCheckOrder sleep 1 '/// select the middle object: donut, with keys: [TAB],[TAB] ///' hTypeKeys ("") sTemp = fGetPositionX if sTemp <> Ueber_Text_3 then printlog "DISABLED the WARNLOG, because mouseaction is not always the same :-( : Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";" end if '/// close document ///' Call hCloseDocument endif endcase 'tdContextInFrontOfObject '------------------------------------------------------------------------------- testcase tdContextBehindObject dim sTemp as string '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// select the top object: donut, with keys: [TAB],[TAB],[TAB] ///' hTypeKeys ("") '/// Behind object ///' OL_DRAW_HinterDasObjekt sleep 1 '/// left click the cubicel with the mouse ///' gMouseClick 50,5 '/// has to be from bottom to top: donut, cubicel, rectangel ///' sPrintCheckOrder sleep 1 '/// select the bottom object: donut, with keys: [TAB] ///' hTypeKeys ("") sTemp = fGetPositionX if sTemp <> Ueber_Text_3 then printlog "DISABLED the WARNLOG, because mouseaction is not always tthe same Arrangement is wrong; is: "+sTemp+"; should: "+Ueber_Text_3+";" end if '/// close document ///' Call hCloseDocument endif endcase 'tdContextBehindObject '------------------------------------------------------------------------------- testcase tdContextReverse dim sTemp as string dim sTemp2 as string dim i as integer '/// open created document 'with 3 figures' ///' if (hFileOpen (Datei)) then sleep 10 sPrintCheckOrder (TRUE) '/// Edit->Select All ///' EditSelectAll sleep 3 '/// Reverse ///' WL_TB_ANORDNUNG_Vertauschen sPrintCheckOrder '/// select in default order and take Position X in mind ;-) ///' hTypeKeys ("") for i = 1 to 3 hTypeKeys ("") sTemp = fGetPositionX Select Case i Case 1: sTemp2 = Ueber_Text_3 Case 2: sTemp2 = Ueber_Text_2 Case 3: sTemp2 = Ueber_Text_1 End Select if sTemp <> sTemp2 then warnlog " - " + i + " Arrangement is wrong; is: "+sTemp+"; should: "+sTemp2+";" end if next i '/// close document ///' Call hCloseDocument '/// close document ///' endif endcase 'tdContextReverse '-------------------------------------------------------------------------------