| blob | 2f8eeabee0b4bdfcbd16b334b0cc06aa04064700 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: g_stylist.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:40 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* Owner : wolfram.garten@sun.com
35 '*
36 '* short description :
37 '*
38 '*******************************************************************
39 '*
40 ' #1 tFormatStylistFlyer
41 ' #1 tFormatStylistDocuments
42 ' #1 tFormatStylistTemplatesUse
43 ' #1 tFormatStylistTemplateCreate
44 ' #1 tFormatStylistTemplateSelect
45 ' #1 tFormatStylistTemplateNew
46 ' #1 tiFormatStylist
47 ' #1 tFormatStylist
48 ' #1 hWalkTheStyles
49 '*
50 '\*******************************************************************
52 testcase tFormatStylistFlyer
53 Dim xPos%
54 Dim yPos%
55 Dim xSize%
56 Dim ySize%
58 printlog " - Format/Stylist : using all possible things to manipulate the flyer"
59 '/// open application ///'
60 Call hNewDocument
61 Kontext "Gestalter"
62 '/// Check if stylist is there. Expected: not there ///'
63 if Gestalter.NotExists = false Then
64 qaErrorLog " - Expected Stylist to be closed; But is Open. Check tests."
65 else
66 hTypekeys "<F11>" '/// open stylist by pressing key [F11] ///'
67 sleep 1
68 end if
69 Kontext "Gestalter"
70 if Gestalter.NotExists then
71 Warnlog " No stylist popped up using F11; opening now via slotID"
72 FormatStylist
73 end if
74 '///+ save stylist position and size ///'
75 xPos% = Gestalter.GetPosX
76 yPos% = Gestalter.GetPosY
77 xSize% = Gestalter.GetSizeX
78 ySize% = Gestalter.GetSizeY
79 '///+ if Stylist is docked; undock ///'
80 if Gestalter.IsDocked then Gestalter.UnDock
81 printlog " - '///move stylist ///"
82 '///+ move stylist to 10,10 ///'
83 Gestalter.Move 10, 10
84 Sleep 1
85 '///+ move stylist to 300,400 ///'
86 Gestalter.Move 300, 400
87 Sleep 1
88 '///+ move stylist to 590,790 ///'
89 Gestalter.Move 590, 790
90 Sleep 1
91 '///+ move stylist back to saved start position ///'
92 Gestalter.Move xPos%, yPos%
93 Sleep 1
95 printlog " - '///size stylist ///"
96 '///+ change size to 200,200 ///'
97 Gestalter.Size 200, 200
98 Sleep 1
99 '///+ change size to 300,400 ///'
100 Gestalter.Size 300, 400
101 Sleep 1
102 '///+ change size to 150,250 ///'
103 Gestalter.Size 150, 250
104 Sleep 1
105 '///+ change size back to saved size ///'
106 Gestalter.Size xSize%, ySize%
107 Sleep 1
109 printlog " - Close stylist reopen stylist, check if appearence is same as before"
110 '/// save stylist position and size ///'
111 xPos% = Gestalter.GetPosX
112 yPos% = Gestalter.GetPosY
113 xSize% = Gestalter.GetSizeX
114 ySize% = Gestalter.GetSizeY
115 '/// close stylist Format->Stylist ///'
116 FormatStylist
117 Sleep 1
118 '/// open stylist Format->Stylist ///'
119 FormatStylist
120 sleep (1)
121 if xPos% <> Gestalter.GetPosX then Warnlog "The x-Pos. has changed : Should be -> '"+ xPos% + "' Is -> '"+ Gestalter.GetPosX +"'."
122 if yPos% <> Gestalter.GetPosY then Warnlog "The y-Pos. has changed : Should be -> '"+ yPos% + "' Is -> '"+ Gestalter.GetPosY +"'."
123 if xSize% <> Gestalter.GetSizeX then Warnlog "The x-Size has changed : Should be -> '"+ xSize% + "' Is -> '"+ Gestalter.GetSizeX +"'."
124 if ySize% <> Gestalter.GetSizeY then Warnlog "The y-Size has changed : Should be -> '"+ ySize% + "' Is -> '"+ Gestalter.GetSizeY +"'."
126 printlog " - dock stylist"
127 '/// dock stylist ///'
128 Gestalter.Dock
129 Sleep 1
130 if (NOT Gestalter.IsDocked) then
131 warnlog " stylist not docked but should"
132 endif
133 '/// UNdock stylist ///'
134 if (Gestalter.IsDocked) Then
135 Gestalter.UnDock
136 endif
137 Sleep 1
139 printlog " - maximize/minimize stylist"
140 '/// minimize stylist ///'
141 Gestalter.Minimize
142 Sleep 1
143 '/// maximize stylist ///'
144 Gestalter.Maximize
145 Sleep 1
146 if (NOT Gestalter.IsMax) then
147 warnlog " The stylist did not return to maximized state"
148 endif
149 '/// close stylist ///'
150 Gestalter.Close
151 Call hCloseDocument
153 endcase 'tFormatStylistFlyer
154 '--------------------------------------------------------
155 testcase tFormatStylistDocuments
157 Dim xPos% as Integer
158 Dim yPos% as Integer
159 Dim xSize% as Integer
160 Dim ySize% as Integer
162 printlog " - Format/Stylist : check methods with more than 1 document"
163 Call hNewDocument
164 printlog " - Open stylist, check stylist in another document"
165 FormatStylist
166 Call hNewDocument
167 Kontext "Gestalter"
168 if (Gestalter.NotExists) then
169 warnlog " There is no stylist in the new document"
170 FormatStylist
171 endif
173 printlog " - Close all documents, reopen 1"
174 FileClose
175 Sleep 2
176 FileClose
177 Sleep 2
178 hNewDocument
179 Kontext "Gestalter"
180 if (Gestalter.NotExists) then
181 warnlog " There is no stylist in the new document"
182 endif
184 printlog " - stylist in a document docked, in a new rechecked"
185 Gestalter.Dock
186 Sleep 3
187 hNewDocument
188 sleep 3
189 Kontext "Gestalter"
190 if NOT Gestalter.IsDocked then
191 warnlog " In the new document is the stylist not docked"
192 endif
194 printlog " - Close all documents, reopen one and check the docked stylist"
195 FileClose
196 Sleep 2
197 FileClose
198 Sleep 2
199 Kontext "Gestalter"
200 hNewDocument
201 Kontext "Gestalter"
202 if NOT Gestalter.IsDocked then
203 warnlog " In the new document is the stylist not docked"
204 endif
206 printlog " - Close stylist using F11"
207 Gestalter.Undock
208 Sleep 1
209 hTypeKeys "<F11>"
210 Kontext "Gestalter"
211 if Gestalter.exists then
212 warnlog " Stylist still exists - closing again"
213 Gestalter.Close
214 end if
215 Call hCloseDocument
217 endcase 'tFormatStylistDocuments
218 '--------------------------------------------------------
219 testcase tFormatStylistTemplatesUse
221 Dim i as Integer
222 Dim save as integer
224 printlog "- Format/Stylist : use all templates"
225 hNewDocument
226 sleep 1
227 FormatStylist
228 sleep 1
229 Kontext "Gestalter"
230 if (Gestalter.NotExists) then
231 warnlog " There is no stylist open, trying again now"
232 FormatStylist
233 endif
234 printlog " - Presentation-templates"
235 if (Lcase (gApplication) = "IMPRESS") then
236 TBGestalter.Click Praesentationsvorlagen
237 endif
238 save = Gruppenliste.GetSelIndex
239 for i=1 to Gruppenliste.GetItemCount
240 Gruppenliste.Select i
241 Sleep 1
242 next i
244 TBGestalter.Click Grafikvorlagen
245 Sleep 2
246 printlog " - Graphic-templates"
247 for i=1 to Gruppenliste.GetItemCount
248 Gruppenliste.Select i
249 Sleep 1
250 next i
251 sleep 1
252 Gruppenliste.Select save
254 Gestalter.Close
256 sleep 3
257 Call hCloseDocument
259 endcase 'tFormatStylistTemplatesUse
260 '--------------------------------------------------------
261 testcase tFormatStylistTemplateCreate
263 goto endsub
264 dim i
265 dim Zaehler
267 printlog "- Format/stylist :Create template and use it"
268 Call hNewDocument
269 sleep 3
270 printlog " - create template for paragraph"
271 FormatStylesCatalog
272 Kontext "VorlagenKatalog"
273 sleep 2
274 printlog " " + Vorlagen.GetItemCount
275 Vorlagen.Select 1
276 sleep 3
277 Neu.Click
278 sleep 2
279 Kontext
280 Active.SetPage TabVerwalten
281 Kontext "TabVerwalten"
282 VorlagenName.SetText "ATesttool"
283 TabVerwalten.OK
284 sleep 2
285 Kontext "VorlagenKatalog"
286 sleep 1
287 VorlagenKatalog.Close
288 sleep 1
290 Printlog " - New created template will be deleted now"
291 FormatStylesCatalog
292 sleep 1
293 Kontext "Vorlagenkatalog"
294 sleep 1
295 Vorlagen.Select 1
296 sleep 1
297 zaehler=Ansicht.getItemCount
298 i=0
299 do
300 inc i
301 loop while ((Ansicht.getItemText(i) <> "ATesttool") AND (i <= zaehler))
302 if i>zaehler then
303 warnlog " error"
304 endif
305 Ansicht.Select i
306 sleep 1
307 Ansicht.TypeKeys "<SPACE>"
308 sleep 1
309 Loeschen.Click
310 Kontext "Active"
311 Active.Yes
312 sleep 1
313 Kontext "Vorlagenkatalog"
314 Vorlagenkatalog.Close
315 sleep 1
316 Kontext "DocumentDraw"
317 gMouseClick 90,90
318 sleep 1
319 Call hCloseDocument
320 sleep 1
322 endcase 'tFormatStylistTemplateCreate
323 '--------------------------------------------------------
324 testcase tFormatStylistTemplateSelect
326 dim i as integer
327 dim sListDown(21) as string
328 dim sListUp(21) as string
329 dim sTemp as string
331 printlog " - Format/Stylist : select template"
332 Call hNewDocument
333 hTextrahmenErstellen ("This is a formatted text <Shift Home>",20,20,80,30)
334 printlog " - format text"
335 FormatCharacter
336 Kontext
337 Active.SetPage TabFont
338 Kontext "TabFont"
339 TabFont.OK
341 printlog " - choose format using stylist"
342 FormatStylist
343 Kontext "Gestalter"
344 sleep 1
345 ' going from bottom to top
346 Vorlagenliste.TypeKeys "<End>"
347 for i = 1 to 20
348 ListAppend(sListUp(), Vorlagenliste.GetText)
349 Vorlagenliste.TypeKeys "<Up>"
350 next i
351 ' going from top to bottom
352 Vorlagenliste.TypeKeys "<Home>"
353 for i = 1 to 20
354 ListAppend(sListDown(), Vorlagenliste.GetText)
355 Vorlagenliste.TypeKeys "<Down>"
356 next i
357 ' delete double entries in both lists (up/down)
358 sTemp = sListUp(20)
359 for i = 19 to 1 step -1
360 if (sListUp(i) = sTemp) then
361 printlog i
362 ListDelete(sListUp(), i+1)
363 endif
364 sTemp = sListUp(i)
365 next i
366 sTemp = sListDown(20)
367 for i = 19 to 1 step -1
368 if (sListDown(i) = sTemp) then
369 ListDelete(sListDown(), i+1)
370 endif
371 sTemp = sListDown(i)
372 next i
373 ' if there are double entries...
374 if (ListCount(sListUp()) <> ListCount(sListDown())) then
375 if (iSprache = 82) then ' WorkAround BUG: #111652#
376 warnLog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
377 elseif (iSprache = 07) then
378 warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
379 else
380 warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
381 endif
382 for i = ListCount(sListUp()) to 1 step -1
383 printlog "* " + i + ": '" + sListUp(i) + "'"
384 next i
385 endif
386 ' here this method has to stay, because it will also find some errors;
387 ' the method, that works even with an error in the list is shown in testcase tFormatStylistTemplateNew
388 hDoubleClickInList ( Vorlagenliste, glLocale (3) )
389 Gestalter.Close
391 printlog " - check Format"
392 FormatArea
393 Kontext
394 Active.SetPage TabArea
395 Kontext "TabArea"
396 'TODO: TBO check criteria, that right template is used....
397 ' ???? if Farbe.IsChecked then Printlog "Standard template is used"
398 TabArea.OK
399 sleep 2
400 hCloseDocument
402 endcase 'tFormatStylistTemplateSelect
403 '---------------------------------------------------------
404 testcase tFormatStylistTemplateNew
406 dim sListDown(21) as string
407 dim sListUp(21) as string
408 dim sTemp as string
409 dim i as integer
411 printlog "- Format/Stylist : New template from selection"
412 Call hNewDocument
413 hTextrahmenErstellen ("This text will soon be formatted and thereafter made as template",20,20,80,40)
414 sleep 1
415 hTypeKeys "<Return><Up><Shift End>"
416 FormatCharacter
417 Kontext
418 Active.SetPage TabFont
419 Kontext "TabFont"
420 TabFont.OK
422 printlog " - Create template from selection"
423 FormatStylist
424 Kontext "Gestalter"
425 TBGestalter.Click Grafikvorlagen
426 Sleep 1
427 TBGestalterRight.Click AusSelektion
428 Kontext "VorlageErzeugen"
429 VorlagenName.SetText "Testtool"
430 VorlageErzeugen.OK
431 printlog " - assign new graphic template to selected text"
432 hTextrahmenErstellen ("This is another text",40,40,70,50)
433 hTypeKeys "<Return><Up><Shift End>"
434 Kontext "Gestalter"
435 TBGestalter.Click Grafikvorlagen
436 sleep 1
437 ' test BUG: #111652# ' find illegal double entries in template list
438 ' going from bottom to top
439 Vorlagenliste.TypeKeys "<End>"
440 for i = 1 to 20
441 sTemp = Vorlagenliste.GetText
442 ListAppend(sListUp(), sTemp)
443 Vorlagenliste.TypeKeys "<Up>"
444 next i
445 ' going from top to bottom
446 Vorlagenliste.TypeKeys "<Home>"
447 for i = 1 to 20
448 ListAppend(sListDown(), Vorlagenliste.GetText)
449 Vorlagenliste.TypeKeys "<Down>"
450 next i
451 ' delete double entries in both lists (up/down)
452 sTemp = sListUp(20)
453 for i = 19 to 1 step -1
454 if (sListUp(i) = sTemp) then
455 ListDelete(sListUp(), i+1)
456 endif
457 sTemp = sListUp(i)
458 next i
459 sTemp = sListDown(20)
460 for i = 19 to 1 step -1
461 if (sListDown(i) = sTemp) then
462 ListDelete(sListDown(), i+1)
463 endif
464 sTemp = sListDown(i)
465 next i
466 ' if any double entries...
467 if (ListCount(sListUp()) <> ListCount(sListDown())) then
468 if (iSprache = 82) then ' WorkAround BUG: #111652#
469 warnLog "82: There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
470 elseif (iSprache = 07) then
471 warnlog "There are missing entries in the list. Will be fixed in CWS the 06.02.2006. - FHA" 'Russian TODO -FHA
472 else
473 warnlog "There are double entries in the list! Up: " + ListCount(sListUp()) + "; Down: " +ListCount(sListDown())
474 for i = ListCount(sListDown()) to 1 step -1
475 printlog " - " + i + " " + sListDown(i)
476 next i
477 for i = ListCount(sListUp()) to 1 step -1
478 printlog " - " + i + " " + sListUp(i)
479 next i
480 endif
481 endif
482 Vorlagenliste.TypeKeys "<End>"
483 i = 0
484 do
485 inc i
486 sTemp = Vorlagenliste.GetText
487 Vorlagenliste.TypeKeys "<Up>"
488 loop while (("Testtool" <> sTemp) AND (i<20))
489 Vorlagenliste.TypeKeys "<Return>"
490 Kontext "Gestalter"
491 Gestalter.Close
493 Printlog " - check template"
494 FormatCharacter
495 Kontext
496 Active.SetPage TabFont
497 Kontext "TabFont"
498 TabFont.OK
499 hTypeKeys ("<escape>",2)
500 hCloseDocument
502 endcase 'tFormatStylistTemplateNew
503 '--------------------------------------------------------
504 testcase tiFormatStylist
506 Dim Num1 as integer ' graphics : first line indent ; the one with 0,6cm in the summary
507 Dim Num2 as integer ' presentations : background ; just one tabpage pops up: Area
508 Dim Num3 as integer ' : background objects ; Line pops up
509 Dim Num4 as integer ' : notes ; font 20
510 Dim Num5 as integer ' : outline 1 ; where 9 items exist of
512 select case iSprache
513 case 01: Num1 = 3 : Num2 = 1 : Num3 = 2 : Num4 = 3 : Num5 = 4
514 case 07: Num1 = 3 : Num2 = 4 : Num3 = 2 : Num4 = 3 : Num5 = 1 'Russian TODO -FHA
515 case 31: Num1 = 1 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 5
516 case 33: Num1 = 3 : Num2 = 1 : Num3 = 3 : Num4 = 2 : Num5 = 5
517 case 34: Num1 = 2 : Num2 = 10 : Num3 = 12 : Num4 = 3 : Num5 = 4
518 case 36: Num1 = 2 : Num2 = 3 : Num3 = 4 : Num4 = 10 : Num5 = 6
519 case 39: Num1 = 2 : Num2 = 3 : Num3 = 2 : Num4 = 1 : Num5 = 5
520 case 45: Num1 = 11 : Num2 = 2 : Num3 = 2 : Num4 = 13 : Num5 = 5
521 case 46: Num1 = 2 : Num2 = 2 : Num3 = 3 : Num4 = 1 : Num5 = 4
522 case 48: Num1 = 11 : Num2 = 13 : Num3 = 11 : Num4 = 1 : Num5 = 5
523 case 49: Num1 = 1 : Num2 = 10 : Num3 = 11 : Num4 = 14 : Num5 = 1
524 case 55: Num1 = 4 : Num2 = 12 : Num3 = 11 : Num4 = 10 : Num5 = 1
525 ' case 81: Num1 = 9 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 1 Asian languages not testable, because locale dependant :-(
526 ' case 82: Num1 = 6 : Num2 = 11 : Num3 = 12 : Num4 = 10 : Num5 = 1
527 ' case 86: Num1 = 15 : Num2 = 13 : Num3 = 14 : Num4 = 12 : Num5 = 2
528 ' case 88: Num1 = 4 : Num2 = 13 : Num3 = 14 : Num4 = 3 : Num5 = 4
529 case else :
530 if (bAsianLan = FALSE) then
531 Warnlog "For the language " + iSprache +" nothing is prepared yet: find numbers of entries in stylist and insert here"
532 else
533 qaErrorLog "The Asian-office-languages aren't supported yet."
534 endif
535 goto endsub
536 end select
538 Call hNewDocument
539 sleep 2
540 Kontext "Gestalter"
541 if Gestalter.Exists Then
542 Warnlog "- Stylist exists, perhaps not closed last time a Impress doc was open"
543 Gestalter.Close
544 end if
545 sleep 1
547 FormatStylist
548 Kontext "Gestalter"
549 Grafikvorlagen.Click
550 sleep 1
551 Vorlagenliste.Select Num1 ' num1
552 sleep 1
553 Printlog "- open Grafic template Dialogs using the context menue , checking if all resources exist"
554 Vorlagenliste.OpenContextMenu
555 sleep 1
556 hMenuSelectNr (2)
557 sleep 1
558 call hWalkTheStyles
559 Kontext
560 Messagebox.SetPage TabText
561 Kontext "TabText"
562 sleep 1
563 TabText.Cancel
564 sleep 1
566 if (Ucase(gApplication) = "IMPRESS") AND (iSprache <> 07) then 'Russian TODO -FHA
567 Kontext "Gestalter"
568 Printlog "- presentation templates"
569 sleep 1
570 Praesentationsvorlagen.Click
572 Vorlagenliste.Select Num2
573 sleep 1
574 Vorlagenliste.OpenContextMenu
575 sleep 1
576 hMenuSelectNr (1)
577 sleep 1
578 Kontext
579 if Messagebox.exists (5) then
580 try
581 ' Messagebox.SetPage TabArea
582 Kontext "TabArea"
583 if TabArea.Exists = false then
584 warnlog "Where is TabArea?"
585 else
586 Printlog "TabArea exists, good."
587 TabArea.Cancel
588 endif
589 catch
590 warnlog "there might be another systemlocale -> I can't select the entries in the stylist via numbers :-("
591 endcatch
592 else
593 warnlog "tab area/Messagebox doesn't exist :-("
594 endif
595 Kontext "Gestalter"
596 sleep 1
598 Vorlagenliste.Select Num3
599 sleep 1
600 Vorlagenliste.OpenContextMenu
601 sleep 1
602 hMenuSelectNr (1)
603 sleep 1
604 call hWalkTheStyles (1,1)
605 Kontext
606 Messagebox.SetPage TabEinzuegeUndAbstaende
607 Kontext "TabEinzuegeUndAbstaende"
608 sleep 1
609 TabEinzuegeUndAbstaende.Cancel
610 sleep 1
611 Kontext "Gestalter"
612 sleep 1
614 Vorlagenliste.Select Num4
615 sleep 1
616 Vorlagenliste.OpenContextMenu
617 sleep 1
618 hMenuSelectNr (1)
619 sleep 1
620 Kontext
621 Messagebox.SetPage TabFont
622 kontext "TabFont"
623 Kontext
624 Messagebox.SetPage TabFontEffects
625 kontext "TabFontEffects"
626 Kontext
627 Messagebox.SetPage TabEinzuegeUndAbstaende
628 kontext "TabEinzuegeUndAbstaende"
629 sleep 1
630 TabEinzuegeUndAbstaende.Cancel
631 sleep 1
632 Kontext "Gestalter"
633 sleep 1
635 Vorlagenliste.Select Num5
636 sleep 1
637 Vorlagenliste.OpenContextMenu
638 sleep 1
639 hMenuSelectNr (1)
640 sleep 1
641 Kontext
642 Messagebox.SetPage TabFont
643 kontext "TabFont"
644 Kontext
645 Messagebox.SetPage TabFontEffects
646 kontext "TabFontEffects"
647 Kontext
648 Messagebox.SetPage TabEinzuegeUndAbstaende
649 kontext "TabEinzuegeUndAbstaende"
650 sleep 1
651 Kontext
652 Messagebox.SetPage TabBullet
653 Kontext "TabBullet"
654 sleep 1
655 Kontext
656 Messagebox.SetPage TabNumerierungsart
657 Kontext "TabNumerierungsart"
658 sleep 1
659 Kontext
660 Messagebox.SetPage TabGrafiken
661 Kontext "TabGrafiken"
662 sleep 1
663 Kontext
664 Messagebox.SetPage TabOptionenNumerierung
665 Kontext "TabOptionenNumerierung"
666 sleep 1
667 TabOptionenNumerierung.Cancel
668 sleep 1
669 endif
670 hTypeKeys "<F11>"
671 sleep 1
672 Kontext "Gestalter"
673 if Gestalter.Exists Then Warnlog "- Stylist could not be closed pressing F11"
674 Call hCloseDocument
676 endcase 'tiFormatStylist
677 '---------------------------------------------------------
678 sub hWalkTheStyles (optional a as integer,optional b as integer)
679 ' TODO: TBO DialogTest should go to Recource test!
680 dim i as integer
682 if isMissing (a) then a=1
683 if isMissing (b) then b=2
684 i=1
685 if a <= i AND i <= b then
686 Kontext
687 Messagebox.SetPage TabLinie
688 kontext "TabLinie"
689 Call DialogTest ( TabLinie )
690 Kontext
691 Messagebox.SetPage TabArea
692 kontext "TabArea"
693 Call DialogTest ( TabArea, 1 )
694 FillOptions.Select 1 ' NoFill.Check
695 Call DialogTest ( TabArea, 1 )
696 FillOptions.Select 2
697 Call DialogTest ( TabArea, 2 )
698 FillOptions.Select 3
699 Call DialogTest ( TabArea, 3 )
700 FillOptions.Select 4
701 Call DialogTest ( TabArea, 4 )
702 FillOptions.Select 5
703 Call DialogTest ( TabArea, 5 )
704 Kontext
705 Messagebox.SetPage TabSchatten
706 kontext "TabSchatten"
707 Anzeigen.check
708 Call DialogTest ( TabSchatten )
709 Kontext
710 Messagebox.SetPage TabTransparenz
711 kontext "TabTransparenz"
712 KeineTransparenz.Check
713 LineareTransparenz.Check
714 Transparenzverlauf.Check
715 Kontext
716 Messagebox.SetPage TabFont
717 kontext "TabFont"
718 Call DialogTest ( TabFont )
719 Kontext
720 Messagebox.SetPage TabFontEffects
721 kontext "TabFontEffects"
722 Kontext
723 Messagebox.SetPage TabEinzuegeUndAbstaende
724 kontext "TabEinzuegeUndAbstaende"
725 Call DialogTest ( TabEinzuegeUndAbstaende )
726 endif
727 i=2
728 if a <= i AND i <= b then
729 Kontext
730 Messagebox.SetPage TabVerwalten
731 kontext "TabVerwalten"
732 Call DialogTest ( TabVerwalten )
733 Kontext
734 Messagebox.SetPage TabText
735 Kontext "TabText"
736 Call DialogTest ( TabText )
737 Kontext
738 Messagebox.SetPage TabLauftext
739 Kontext "TabLauftext"
740 Call DialogTest ( TabLauftext )
741 Kontext
742 Messagebox.SetPage TabBemassung
743 Kontext "TabBemassung"
744 Call DialogTest ( TabBemassung )
745 Kontext
746 Messagebox.setpage TabVerbinder
747 Kontext "TabVerbinder"
748 Call Dialogtest ( TabVerbinder )
749 Kontext
750 Messagebox.setpage TabAusrichtungAbsatz
751 Kontext "TabAusrichtungAbsatz"
752 Links.Check
753 Rechts.Check
754 Zentriert.Check
755 Blocksatz.Check
756 Kontext
757 Messagebox.setpage TabTabulator
758 Kontext "TabTabulator"
759 Neu.click
760 AlleLoeschen.click
761 Neu.click
762 Loeschen.click
763 endif
764 i=3
765 if a <= i AND i <= b then
766 Kontext
767 Messagebox.SetPage TabBullet
768 Kontext "TabBullet"
769 sleep 1
770 Call DialogTest (TabBullet)
771 sleep 1
772 Kontext
773 Messagebox.SetPage TabNumerierungsart
774 Kontext "TabNumerierungsart"
775 sleep 1
776 Call DialogTest (TabNumerierungsart)
777 sleep 1
778 Kontext
779 Messagebox.SetPage TabGrafiken
780 Kontext "TabGrafiken"
781 sleep 1
782 Call DialogTest (TabGrafiken)
783 sleep 1
784 Kontext
785 Messagebox.SetPage TabOptionenNumerierung
786 Kontext "TabOptionenNumerierung"
787 sleep 1
788 Call DialogTest (TabOptionenNumerierung)
789 sleep 1
790 endif
792 end sub 'hWalkTheStyles
793 '---------------------------------------------------------
794 testcase tFormatStylist
796 Dim sTemp as String
797 dim sSettings(20,3) ' control_name; control_type; value
798 dim i as integer
799 dim abctemp
801 Call hNewDocument
802 sleep 5
804 hTextrahmenErstellen ("I hate mondays...",20,20,80,40)
805 sleep 1
806 FormatStylist
807 sleep 1
808 Kontext "Stylist"
809 if (Stylist.NotExists) then
810 qaErrorLog "There is no stylist open, trying again now"
811 FormatStylist
812 endif
813 sleep 1
814 Vorlagenliste.TypeKeys "<End>"
815 Vorlagenliste.TypeKeys "<Up>"
816 Vorlagenliste.TypeKeys "<Up>"
817 sleep 1
818 Vorlagenliste.OpenContextMenu
819 sleep 1
820 hMenuSelectNr 1
821 sleep 1
822 Kontext
823 if Messagebox.exists (5) then
824 Messagebox.SetPage TabVerwalten
825 Kontext "TabVerwalten"
826 VorlagenName.SetText "1Newtheme"
827 sTemp = VorlagenName.getText
828 VerknuepftMit.getSelText
829 Bereich.getSelText
830 TabVerwalten.OK
831 endif
832 sleep 1
833 Kontext "Stylist"
834 hSelectInList(Vorlagenliste,sTemp)
835 sleep 1
836 Vorlagenliste.OpenContextMenu
837 sleep 1
838 hMenuSelectNr 2
839 sleep 1
840 Kontext
841 if Messagebox.exists (5) then
842 Messagebox.SetPage TabVerwalten
843 Kontext "TabVerwalten"
844 VorlagenName.setText("1Test")
845 TabVerwalten.OK
846 endif
847 sleep 1
849 ' hTextrahmenErstellen ("I hate mondays..., too",60,60,80,60)
850 ' sleep 1
851 ' FormatArea
852 ' i = 1
853 ' kontext "tabArea"
854 '' temp = Hatching
855 ' abctemp = 666666
856 ' printlog isobject(abctemp)
857 ' printlog isnumeric(abctemp)
858 ' sSettings(i,1) = Hatching
859 ' printlog isobject(sSettings(i,1))
860 ' printlog isnumeric(sSettings(i,1))
861 ' sSettings(i,2) = "CheckBox"
862 ' sSettings(i,3) = True
863 ' inc (i)
864 '' printlog " " + i
865 ' dim asgc as boolean
866 ' asgc = true
867 '' hWalkTheStyles2(asgc, sSettings(), temp)
868 ' ' hWalkTheStyles2(abctemp)
869 ' Kontext "TabArea"
870 ' TabArea.OK
871 Kontext "Stylist"
872 if (Stylist.NotExists) then
873 ErrorLog "There is no stylist open, should be."
874 else
875 hTypekeys "<F11>"
876 Kontext "Stylist"
877 if (Stylist.Exists) then
878 ErrorLog "The Stylist should be closed now."
879 endif
880 endif
881 Call hCloseDocument
883 endcase 'tFormatStylist
884 '--------------------------------------------------------
885 function hSelectInList (window, sEntry as String) as Boolean
887 Dim i as Integer
888 Dim sTemp as String
889 Dim sLastTemp as String
891 window.TypeKeys "<End>"
892 sTemp = ""
893 do
894 sLastTemp = sTemp
895 sTemp = window.GetText
896 window.TypeKeys "<Up>"
897 loop while ((sEntry <> sTemp) AND (sLastTemp <> sTemp))
898 if (sEntry = sTemp) then
899 window.TypeKeys "<Return>"
900 hSelectInList = TRUE
901 else
902 hSelectInList = FALSE
903 endif
905 end function 'hSelectInList
906 '---------------------------------------------------------
907 function hWalkTheStyles2 (atemp)
909 'function hWalkTheStyles2 (bSet as boolean, aSettings(), atemp as variant) as string
910 dim i as integer
911 dim x as integer
912 dim itemp
913 dim bSet
914 dim aSettings(5,5)
915 ' dim atemp
917 i=1
918 Kontext
919 printlog aSettings(i,3)
920 printlog aSettings(i,2)
921 printlog val(aSettings(i,1))
922 printlog atemp
923 Messagebox.SetPage TabArea
924 kontext "TabArea"
925 'press button standard :-))))))
926 atemp = Hatching
927 printlog atemp
929 if aSettings(i,3) then
930 itemp = val(aSettings(i,1))
931 printlog isobject(atemp)
932 printlog isNumeric(atemp)
933 Hatching.check
934 atemp.check
936 else
937 ' aSettings(i,1).Uncheck
938 endif
939 'print "baeh"
940 i=2
941 Kontext
942 Messagebox.SetPage TabSchatten
943 kontext "TabSchatten"
945 Kontext
946 Messagebox.SetPage TabVerwalten
947 kontext "TabVerwalten"
948 i=2
949 Kontext
950 Messagebox.SetPage TabLinie
951 kontext "TabLinie"
952 'Context: *Line; Line Styles; Arrow Styles
953 i=3
954 Kontext
955 Messagebox.SetPage TabArea
956 kontext "TabArea"
957 'Context: *Area; *Shadow; Transparency; Colors; Gradients; Hatching; Bitmaps
958 i=4
959 Kontext
960 Messagebox.SetPage TabSchatten
961 kontext "TabSchatten"
962 i=5
963 Kontext
964 Messagebox.SetPage TabTransparenz
965 kontext "TabTransparenz"
966 i=6
967 Kontext
968 Messagebox.SetPage TabFont
969 kontext "TabFont"
970 'Context: *Font; *Font Effect; Position
971 i=7
972 Kontext
973 Messagebox.SetPage TabFontEffects
974 kontext "TabFontEffects"
975 i=8
976 Kontext
977 Messagebox.SetPage TabEinzuegeUndAbstaende
978 kontext "TabEinzuegeUndAbstaende"
979 'Context: *Indents & Spacing; *Alignment; *Tabs
980 i=9
981 Kontext
982 Messagebox.SetPage TabText
983 Kontext "TabText"
984 'Context: *Text; *Text Animation
985 i=10
986 Kontext
987 Messagebox.SetPage TabLauftext
988 Kontext "TabLauftext"
989 i=11
990 Kontext
991 Messagebox.SetPage TabBemassung
992 Kontext "TabBemassung"
993 i=12
994 Kontext
995 Messagebox.setpage TabVerbinder
996 Kontext "TabVerbinder"
997 i=13
998 Kontext
999 Messagebox.setpage TabAusrichtungAbsatz
1000 Kontext "TabAusrichtungAbsatz"
1001 i=14
1002 Kontext
1003 Messagebox.setpage TabTabulator
1004 Kontext "TabTabulator"
1006 ' Messagebox.SetPage TabBullet
1007 ' Kontext "TabBullet"
1008 ' sleep 1
1009 ' Call DialogTest (TabBullet)
1010 ' sleep 1
1011 ' Kontext
1012 ' Messagebox.SetPage TabNumerierungsart
1013 ' Kontext "TabNumerierungsart"
1014 ' sleep 1
1015 ' Call DialogTest (TabNumerierungsart)
1016 ' sleep 1
1017 ' Kontext
1018 ' Messagebox.SetPage TabGrafiken
1019 ' Kontext "TabGrafiken"
1020 ' sleep 1
1021 ' Call DialogTest (TabGrafiken)
1022 ' sleep 1
1023 ' Kontext
1024 ' Messagebox.SetPage TabOptionenNumerierung
1025 ' Kontext "TabOptionenNumerierung"
1026 ' sleep 1
1027 ' Call DialogTest (TabOptionenNumerierung)
1028 ' sleep 1
1029 end function 'hWalkTheStyles2