| blob | 3f7de7586078dd92c6bf04b2d9b9959c6654675e |
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: c_upd_formatmenu3.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-16 08:06:07 $
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 : oliver.craemer@sun.com
35 '*
36 '* short description : Resource Test - Format Menu Part III
37 '*
38 '************************************************************************
39 '*
40 ' #1 tFormatGraphicPositionAndSize
41 ' #1 tFormatGraphicLine
42 ' #1 tFormatGraphicArea
43 ' #1 tFormatGraphicText
44 ' #1 tFormatGraphicPoints
45 '*
46 '\***********************************************************************
48 sub c_upd_formatmenu3
50 Printlog Chr(13) + "--------- Format Menu Part III (c_upd_formatmenu3.inc) ---------"
52 call tFormatGraphicPositionAndSize
53 call tFormatGraphicLine
54 call tFormatGraphicArea
55 call tFormatGraphicText
56 call tFormatGraphicPoints
58 end sub
60 '-----------------------------------------------------------
62 testcase tFormatGraphicPositionAndSize
63 '///<u><b>Format - Graphic – Position and Size</b></u>
65 '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
66 printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
67 Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ))
68 '/// If the file is not editable, click the edit button on standardbar
69 printlog "If the file is not editable, click the edit button on standardbar"
70 call sMakeReadOnlyDocumentEditable
71 '/// Select first object by Navigator
72 printlog " Select first object by Navigator"
73 Call fNavigatorSelectObject ("drawing objects", 1)
74 '/// Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'
75 printlog " Open 'Position and Size' – dialog by 'Format – Graphic – Position and Size'"
76 FormatTransform
78 printlog
79 '/// Switch to tabpage 'Position and Size'
80 printlog " Switch to tabpage 'Position and Size'"
81 Kontext
82 Active.SetPage TabPositionAndSize
83 Kontext "TabPositionAndSize"
84 Call DialogTest ( TabPositionAndSize )
85 '/// Uncheck 'Position'
86 printlog " Uncheck 'Position'"
87 ProtectPosition.Uncheck
88 '/// Check 'Size'
89 printlog " Uncheck 'Size'"
90 ProtectSize.Uncheck
91 '/// Increase 'Position X'
92 printlog " Increase 'Position X'"
93 PositionX.More
94 '/// Decrease 'Position Y'
95 printlog " Decrease 'Position Y'"
96 PositionY.Less
97 '/// Increase 'Width'
98 printlog " Increase 'Width'"
99 Width.More
100 '/// Decrease 'Height'
101 printlog " Decrease 'Height'"
102 Height.Less
103 '/// Check 'Keep ratio'
104 printlog " Check 'Keep ratio'"
105 KeepRatio.Check
107 printlog ""
108 '/// Switch to tabpage 'Rotation'
109 printlog " Switch to tabpage 'Rotation'"
110 Kontext
111 Active.SetPage TabDrehung
112 Kontext "TabDrehung"
113 Call DialogTest ( TabDrehung )
114 '/// Increase 'Position X'
115 printlog " Increase 'Position X'"
116 PositionX.More
117 '/// Decrease 'Position Y'
118 printlog " Decrease 'Position Y'"
119 PositionY.Less
120 '/// Increase 'Angle'
121 printlog " Increase 'Angle'"
122 Winkel.More
123 '/// Switch to tabpage 'Slant & Corner Radius'
124 printlog " Switch to tabpage 'Slant & Corner Radius'"
125 Kontext
126 Active.SetPage TabSchraegstellen
127 Kontext "TabSchraegstellen"
128 Call DialogTest ( TabSchraegstellen )
129 '/// Increase radius
130 printlog " Increase radius"
131 Radius.More
132 '/// Increase angle
133 printlog " Increase angle"
134 Winkel.More
135 '/// Close 'Position and Size' – dialog by 'Cancel'
136 printlog " Close 'Position and Size' – dialog by 'Cancel'"
137 TabSchraegstellen.Close
138 '/// Close document
139 printlog " Close document"
140 call hCloseDocument
142 endcase
144 '-----------------------------------------------------------
146 testcase tFormatGraphicLine
147 '///<u><b>Format - Graphic - Line</b></u>
149 Dim sTitle as string
151 '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
152 printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
153 Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ))
154 '/// If the file is not editable, click the edit button on standardbar
155 printlog "If the file is not editable, click the edit button on standardbar"
156 call sMakeReadOnlyDocumentEditable
157 '/// Select first object by Navigator
158 printlog " Select first object by Navigator"
159 Call fNavigatorSelectObject ("drawing objects", 1)
160 '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
161 printlog " Open 'Format – Line' dialog by 'Format – Graphic – Line'"
162 FormatLine
163 '/// Switch to tabpage 'Line'
164 printlog " Switch to tabpage 'Line'"
165 Kontext
166 active.setpage TabLinie
167 Kontext "TabLinie"
168 Call DialogTest ( TabLinie )
169 '/// Verify that the 'Style' listbox for 'Line properties' is not empty
170 printlog " Verify that the 'Style' listbox for 'Line properties' is not empty"
171 If Stil.GetItemCount < 1 then
172 warnlog "The listbox for styles is empty"
173 end if
174 '/// Verify that the 'Color' listbox for 'Line properties' is not empty
175 printlog " Verify that the 'Color' listbox for 'Line properties' is not empty"
176 If Farbe.GetItemCount < 1 then
177 warnlog "The listbox for colors is empty"
178 end if
179 '/// Increase 'Width'
180 printlog " Increase 'Width'"
181 Breite.More
182 '/// Increase 'Transparency'
183 printlog " Increase 'Transparency'"
184 Transparenz.More
185 '/// Uncheck 'Synchronize ends'
186 printlog " Uncheck 'Synchronize ends'"
187 EndenSynchronisieren.Uncheck
188 '/// Verify that the left 'Style' listbox for 'Arrow Styles' is not empty
189 printlog " Verify that the left 'Style' listbox for 'Arrow Styles' is not empty"
190 If StilLinks.GetItemCount < 1 then
191 warnlog "The listbox for styles is empty"
192 end if
193 printlog "Choose second entry"
194 StilLinks.Select 2
195 '/// Verify that the right 'Style' listbox for 'Arrow Styles' is not empty
196 printlog " Verify that the right 'Style' listbox for 'Arrow Styles' is not empty"
197 If StilRechts.GetItemCount < 1 then
198 warnlog "The listbox for styles is empty"
199 end if
200 printlog "Choose second entry"
201 StilRechts.Select 2
202 '/// Check the left 'Center' checkbox
203 printlog " Check the left 'Center' checkbox"
204 ZentriertLinks.Check
205 '/// Check the right 'Center' checkbox
206 printlog " Check the right 'Center' checkbox"
207 ZentriertRechts.Check
208 '/// Verify that the 'Style' listbox for 'Corner Style' is not empty
209 printlog " Verify that the 'Style' listbox for 'Corner Style' is not empty"
210 If CornerStyle.GetItemCount < 1 then
211 warnlog "The listbox for styles is empty"
212 end if
214 printlog ""
215 '/// Switch to tabpage 'Line Styles'
216 printlog " Switch to tabpage 'Line Styles'"
217 Kontext
218 active.setpage TabLinienstile
219 Kontext "TabLinienstile"
220 Call DialogTest ( TabLinienstile )
221 '/// Verify that the 'Line Style' listbox is not empty
222 printlog " Verify that the 'Line Style' listbox is not empty"
223 If Linienstil.GetItemCount < 1 then
224 warnlog "The listbox for styles is empty"
225 end if
226 '/// Choose first entry in left 'Type' listbox
227 printlog " Choose second entry in left 'Type' listbox"
228 TypLinks.Select 2
229 '/// Choose second entry in right 'Type' listbox
230 printlog " Choose second entry in right 'Type' listbox"
231 TypRechts.Select 2
232 '/// Increase left 'Number'
233 printlog " Increase left 'Number'"
234 AnzahlLinks.More
235 '/// Decrease right 'Number'
236 printlog " Decrease right 'Number'"
237 AnzahlRechts.Less
238 '/// Increase left 'Length'
239 printlog " Increase left 'Length'"
240 LaengeLinks.More
241 '/// Decrease right 'Length'
242 printlog " Decrease right 'Length'"
243 LaengeRechts.Less
244 '/// Increase 'Spacing'
245 printlog " Increase 'Spacing'"
246 Abstand.More
247 '/// Check 'Fit to line width'
248 printlog " Check 'Fit to line width'"
249 AnLinienbreite.Check
250 '/// Press 'Add' button
251 printlog " Press 'Add' button"
252 Hinzufuegen.Click
253 Kontext "NameDlg"
254 Call DialogTest ( NameDlg )
255 '/// Enter string 'Testlinestyle'
256 printlog " Enter string 'Testlinestyle'"
257 Eingabefeld.SetText "Testlinestyle"
258 '/// Close 'Name' dialog with 'Cancel'
259 printlog " Close 'Name' dialog with 'Cancel'"
260 NameDlg.Cancel
261 Kontext "TabLinienstile"
262 '/// Press 'Modify' button
263 printlog " Press 'Modify' button"
264 Aendern.Click
265 Kontext "NameDlg"
266 '/// Close 'Name' dialog with 'Cancel'
267 printlog " Close 'Name' dialog with 'Cancel'"
268 NameDlg.Cancel
269 Kontext "TabLinienstile"
270 '/// Press 'Delete' button
271 printlog " Press 'Delete' button"
272 Loeschen.Click
273 Kontext "Active"
274 '/// Close messagebox with 'No'
275 printlog " Close messagebox with 'No'"
276 Active.No
277 Kontext "TabLinienstile"
278 '/// Press 'Open' button
279 printlog " Press 'Open' button"
280 Oeffnen.click
281 Kontext "OeffnenDlg"
282 '/// Close 'Open' dialog with 'Cancel'
283 printlog " Close 'Open' dialog with 'Cancel'"
284 OeffnenDlg.Cancel
285 Kontext "TabLinienstile"
286 '/// Press 'Save' button
287 printlog " Press 'Save' button"
288 Speichern.click
289 Kontext "SpeichernDlg"
290 '/// Close 'Save' dialog with 'Cancel'
291 printlog " Close 'Save' dialog with 'Cancel'"
292 SpeichernDlg.Cancel
293 Kontext "TabLinienstile"
295 printlog ""
296 '/// Switch to tabpage 'Arrow Styles'
297 printlog " Switch to tabpage 'Arrow Styles'"
298 Kontext
299 active.setpage TabLinienenden
300 Kontext "Active"
301 If Active.Exists then
302 Kontext "Linienstil"
303 Linienstil.Cancel
304 end if
305 Kontext "TabLinienenden"
306 Call DialogTest ( TabLinienenden )
307 '/// Set 'Titel' to 'Test'
308 printlog " Set 'Titel' to 'Test'"
309 'To get the Office back to the default the title must be memorized for restoring
310 sTitle = Textfeld.GetText
311 Textfeld.SetText "Test"
312 '/// Verify that the 'Arrow style' listbox is not empty
313 printlog " Verify that the 'Arrow style' listbox is not empty"
314 If Liste.GetItemCount < 1 then
315 warnlog "The style listbox is empty"
316 end if
317 '/// Press 'Add' button
318 printlog " Press 'Add' button"
319 Hinzufuegen.click
320 Kontext "NameDlg"
321 '/// Enter string 'Testlinestyle'
322 printlog " Enter string 'Testlinestyle'"
323 Eingabefeld.SetText "Testlinestyle"
324 '/// Close 'Name' dialog with 'Cancel'
325 printlog " Close 'Name' dialog with 'Cancel'"
326 NameDlg.Cancel
327 Kontext "TabLinienenden"
328 '/// Press 'Modify' button
329 printlog " Press 'Modify' button"
330 Aendern.Click
331 '/// Press 'Modify' button again
332 printlog " Press 'Modify' button again"
333 Aendern.Click
334 '/// Close messagebox with 'OK'
335 printlog " Close messagebox with 'OK'"
336 Kontext
337 if Active.exists (2) then
338 active.OK
339 end if
340 Kontext "NameDlg"
341 '/// Enter original title to restore defaults
342 printlog " Enter original title to restore defaults"
343 Eingabefeld.SetText sTitle
344 '/// Close 'Name' dialog with 'OK'
345 printlog " Close 'Name' dialog with 'OK'"
346 NameDlg.OK
347 Kontext "TabLinienenden"
348 '/// Press 'Delete' button
349 printlog " Press 'Delete' button"
350 Loeschen.Click
351 Kontext "Active"
352 '/// Close messagebox with 'No'
353 printlog " Close messagebox with 'No'"
354 active.no
355 Kontext "TabLinienenden"
356 '/// Press 'Open' button
357 printlog " Press 'Open' button"
358 Oeffnen.Click
359 Kontext "OeffnenDLG"
360 Kontext "Active"
361 If Active.Exists then
362 Active.No
363 end if
364 Kontext "OeffnenDLG"
365 '/// Close 'Open' dialog with 'Cancel'
366 printlog " Close 'Open' dialog with 'Cancel'"
367 OeffnenDLG.Cancel
368 Kontext "TabLinienenden"
369 '/// Press 'Save' button
370 printlog " Press 'Save' button"
371 Speichern.click
372 Kontext "SpeichernDLG"
373 '/// Close 'Save' dialog with 'Cancel'
374 printlog " Close 'Save' dialog with 'Cancel'"
375 SpeichernDLg.Cancel
376 Kontext "TabLinienenden"
377 '/// Close dialog with 'Cancel'
378 printlog " Close dialog with 'Cancel'"
379 TabLinienenden.Cancel
380 '/// Close document
381 printlog " Close document"
382 Call hCloseDocument
384 endcase
386 '-----------------------------------------------------------
388 testcase tFormatGraphicArea
389 '///<u><b>Format - - Graphic - Area</b></u>
391 '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
392 printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
393 Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ))
394 '/// If the file is not editable, click the edit button on standardbar
395 printlog "If the file is not editable, click the edit button on standardbar"
396 call sMakeReadOnlyDocumentEditable
397 '/// Select first object by Navigator
398 printlog " Select first object by Navigator"
399 Call fNavigatorSelectObject ("drawing objects", 1)
400 '/// Open 'Format – Area' dialog by 'Format – Area'
401 printlog " Open 'Format – Area' dialog by 'Format – Area'"
402 FormatArea
404 printlog ""
405 '/// Switch to tabpage 'Area'
406 printlog " Switch to tabpage 'Area'"
407 Kontext
408 active.SetPage TabArea
409 Kontext "TabArea"
410 '/// Choose first entry (None) in 'Fill' listbox
411 printlog " Choose first entry (None) in 'Fill' listbox"
412 FillOptions.Select 1
413 Call DialogTest ( TabArea,1 )
414 '/// Choose second entry (Color) in 'Fill' listbox
415 printlog " Choose second entry (Color) in 'Fill' listbox"
416 FillOptions.Select 2
417 Call DialogTest ( TabArea,2 )
418 '/// Verify that the 'Color' listbox has items
419 printlog " Verify that the 'Color' listbox has items"
420 If ColourList.GetItemCount < 1 then
421 warnlog "The color list is empty"
422 end if
423 '/// Choose third entry (Gradient) in 'Fill' listbox
424 printlog " Choose third entry (Gradient) in 'Fill' listbox"
425 FillOptions.Select 3
426 Call DialogTest ( TabArea,3 )
427 '/// Verify that the 'Gradient' listbox has items
428 printlog " Verify that the 'Gradient' listbox has items"
429 If GradientList.GetItemCount < 1 then
430 warnlog "The gradient list is empty"
431 end if
432 '/// Uncheck 'Automatic'
433 printlog " Uncheck 'Automatic'"
434 Automatic.UnCheck
435 '/// Increase 'Increments'
436 printlog " Increase 'Increments'"
437 Increments.More
438 '/// Choose fourth entry (Hatching) in 'Fill' listbox
439 printlog " Choose fourth entry (Hatching) in 'Fill' listbox"
440 FillOptions.Select 4
441 Call DialogTest ( TabArea,4 )
442 '/// Verify that the 'Hatching' listbox has items
443 printlog " Verify that the 'Hatching' listbox has items"
444 If HatchingList.GetItemCount < 1 then
445 warnlog "The hatching list is empty"
446 end if
447 '/// Check 'Background color'
448 printlog " Check 'Background color'"
449 BackgroundColour.Check
450 '/// Verify that the 'Color' listbox has items
451 printlog " Verify that the 'Color' listbox has items"
452 If BackgroundColourList.GetItemCount < 1 then
453 warnlog "The color list is empty"
454 end if
455 '/// Choose fifth entry (Bitmaps) in 'Fill' listbox
456 printlog " Choose fifth entry (Bitmaps) in 'Fill' listbox"
457 FillOptions.Select 5
458 Call DialogTest ( TabArea,5 )
459 '/// Verify that the 'Bitmap' listbox has items
460 printlog " Verify that the 'Bitmap' listbox has items"
461 If BitmapList.GetItemCount < 1 then
462 warnlog "The bitmap list is empty"
463 end if
464 '/// Uncheck 'Original'
465 printlog " Uncheck 'Original'"
466 Original.UnCheck
467 '/// Increase 'Width'
468 printlog " Increase 'Width'"
469 Width.More
470 '/// Check 'Relative'
471 printlog " Check 'Relative'"
472 Relative.Check
473 '/// Decrease 'Height'
474 printlog " Decrease 'Height'"
475 Height.Less
476 '/// Check 'Tile'
477 printlog " Check 'Tile'"
478 Tile.Check
479 '/// Increase 'X Offset'
480 printlog " Increase 'X Offset'"
481 XOffset.More
482 '/// Increase 'Y Offset'
483 printlog " Increase 'Y Offset'"
484 YOffset.More
485 '/// Uncheck 'Tile'
486 printlog " Uncheck 'Tile'"
487 Tile.UnCheck
488 '/// Uncheck 'AutoFit'
489 printlog " Uncheck 'AutoFit'"
490 Stretch.UnCheck
491 '/// Check 'Tile'
492 printlog " Check 'Tile'"
493 Tile.Check
494 '/// Check 'Row'
495 printlog " Check 'Row'"
496 Row.Check
497 '/// Check 'Column'
498 printlog " Check 'Column'"
499 Column.Check
500 '/// Increase percentvalue
501 printlog " Increase percentvalue"
502 Offset.More
504 printlog ""
505 '/// Switch to tabpage 'Shadow'
506 printlog " Switch to tabpage 'Shadow'"
507 Kontext
508 active.SetPage TabSchatten
509 kontext "TabSchatten"
510 Call DialogTest ( TabSchatten )
511 '/// Check 'Use shadow'
512 printlog " Check 'Use shadow'"
513 Anzeigen.Check
514 '/// Increase 'Distance'
515 printlog " Increase 'Distance'"
516 Entfernung.More
517 '/// Verify that the 'Color' listbox has items
518 printlog " Verify that the 'Color' listbox has items"
519 if Farbe.getItemCount < 1 then
520 warnlog "The listbox for colors is empty"
521 end if
522 '/// Increase 'Transparency'
523 printlog " Increase 'Transparency'"
524 Transparenz.More
526 printlog ""
527 '/// Switch to tabpage 'Transparency'
528 printlog " Switch to tabpage 'Transparency'"
529 Kontext
530 active.SetPage TabTransparenz
531 Kontext "TabTransparenz"
532 Call DialogTest ( TabTransparenz )
533 '/// Check 'Transparency'
534 printlog " Check 'Transparency'"
535 LineareTransparenz.Check
536 '/// Increase percentvalue
537 printlog " Increase percentvalue"
538 MFLinTransparenz.More
539 '/// Check 'Gradient'
540 printlog " Check 'Gradient'"
541 Transparenzverlauf.Check
542 '/// Choose last entry (Square) for 'Type'
543 printlog " Choose last entry (Square) for 'Type'"
544 TransparenzverlaufTyp.Select 6
545 '/// Increase 'Center X'
546 printlog " Increase 'Center X'"
547 MFZentrumX.More
548 '/// Decrease 'Center Y'
549 printlog " Decrease 'Center Y'"
550 MFZentrumY.Less
551 '/// Increase 'Angle'
552 printlog " Increase 'Angle'"
553 MFWinkel.More
554 '/// Increase 'Border'
555 printlog " Increase 'Border'"
556 MFRand.More
557 '/// Increase 'Start value'
558 printlog " Increase 'Start value'"
559 MFStartwert.More
560 '/// Decrease 'End value'
561 printlog " Decrease 'End value'"
562 MFEndwert.Less
564 printlog ""
565 '/// Switch to tabpage 'Colors'
566 printlog " Switch to tabpage 'Colors'"
567 Kontext
568 active.SetPage TabFarben
569 Kontext "TabFarben"
570 Call DialogTest ( TabFarben )
571 '/// Enter colorname 'Color_added_by_Testtool'
572 printlog " Enter colorname 'Color_added_by_Testtool'"
573 FarbName.SetText "Color_added_by_Testtool"
574 '/// Verify that the color listbox is not empty
575 printlog " Verify that the color listbox is not empty"
576 if Farbe.getItemCount < 1 then
577 warnlog "The listbox for colors is empty"
578 end if
579 '/// Choose RGB
580 printlog " Choose RGB"
581 Farbmodell.Select 1
582 '/// Increase 'R'
583 printlog " Increase 'R'"
584 R.More
585 '/// Decrease 'G'
586 printlog " Decrease 'G'"
587 G.Less
588 '/// Increase 'B'
589 printlog " Increase 'B'"
590 B.More
591 '/// Choose 'CMYK'
592 printlog " Choose 'CMYK'"
593 Farbmodell.Select 2
594 '/// Increase 'C'
595 printlog " Increase 'C'"
596 C.More
597 '/// Decrease 'M'
598 printlog " Decrease 'M'"
599 M.Less
600 '/// Increase 'Y'
601 printlog " Increase 'Y'"
602 Y.More
603 '/// Decrease 'K'
604 printlog " Decrease 'K'"
605 K.Less
606 '/// Press 'Add' button
607 printlog " Press 'Add' button"
608 Hinzufuegen.Click
609 '/// Press 'Modify' button
610 printlog " Press 'Modify' button"
611 Aendern.Click
612 '/// Press 'Edit' button
613 printlog " Press 'Edit' button"
614 Bearbeiten.Click
615 Kontext "FarbeDlg"
616 Call DialogTest ( FarbeDlg )
617 '/// Increase 'Cyan'
618 printlog " Increase 'Cyan'"
619 Cyan.More
620 '/// Decrease 'Magenta'
621 printlog " Decrease 'Magenta'"
622 Magenta.Less
623 '/// Increase 'Yellow'
624 printlog " Increase 'Yellow'"
625 Yellow.More
626 '/// Decrease 'Key'
627 printlog " Decrease 'Key'"
628 Key.Less
629 '/// Increase 'Red'
630 printlog " Increase 'Red'"
631 Rot.More
632 '/// Decrease 'Green'
633 printlog " Decrease 'Green'"
634 Gruen.Less
635 '/// Increase 'Blue'
636 printlog " Increase 'Blue'"
637 Blau.More
638 '/// Increase 'Hue'
639 printlog " Increase 'Hue'"
640 Farbton.More
641 '/// Decrease 'Saturation'
642 printlog " Decrease 'Saturation'"
643 Saettigung.Less
644 '/// Increase 'Brightness'
645 printlog " Increase 'Brightness'"
646 Hell.More
647 '/// Press left arrow button
648 printlog " Press left arrow button"
649 Links.Click
650 '/// Press right arrow button
651 printlog " Press right arrow button"
652 Rechts.Click
653 '/// Close dialog with 'Cancel'
654 printlog " Close dialog with 'Cancel'"
655 FarbeDlg.Cancel
656 Kontext "TabFarben"
657 '/// Press 'Delete' button
658 printlog " Press 'Delete' button"
659 Loeschen.Click
660 '/// Close messagebox with 'Yes'
661 printlog " Close messagebox with 'Yes'"
662 Kontext "Active"
663 Active.Yes
664 Kontext "TabFarben"
665 '/// Press 'Open' button to open 'File open' dialog
666 printlog " Press 'Open' button to open 'File open' dialog"
667 Oeffnen.click
668 '/// A messagebox that the modified list is not saved appears. Click 'No'
669 printlog " A messagebox that the modified list is not saved appears. Click 'No'"
670 Kontext "Active"
671 Active.No
672 '/// Close 'Open' dialog with 'Cancel'
673 printlog " Close 'Open' dialog with 'Cancel'"
674 Kontext "OeffnenDLG"
675 OeffnenDLG.Cancel
676 Kontext "TabFarben"
677 '/// Press 'Save' button to open 'Save as' dialog
678 printlog " Press 'Save' button to open 'Save as' dialog"
679 Speichern.Click
680 Kontext "SpeichernDLG"
681 '/// Close 'Save' dialog with 'Cancel'
682 printlog " Close 'Save' dialog with 'Cancel'"
683 SpeichernDLG.Cancel
685 printlog ""
686 '/// Switch to tabpage 'Gradients'
687 printlog " Switch to tabpage 'Gradients'"
688 Kontext
689 active.SetPage TabFarbverlaeufe
690 Kontext "TabFarbverlaeufe"
691 '/// Choose last entry (Rectangular) in 'Type' listbox
692 printlog " Choose last entry (Rectangular) in 'Type' listbox"
693 Typ.Select 6
694 '/// Increase 'Center X'
695 printlog " Increase 'Center X'"
696 ZentrumX.More
697 '/// Decrease 'Center Y'
698 printlog " Decrease 'Center Y'"
699 ZentrumY.Less
700 '/// Increase 'Angle'
701 printlog " Increase 'Angle'"
702 Winkel.More
703 '/// Increase 'Border'
704 printlog " Increase 'Border'"
705 Rand.More
706 '/// Choose second entry in 'From' listbox
707 printlog " Choose second entry in 'From' listbox"
708 Von.Select 2
709 '/// Decrease percentvalue
710 printlog " Decrease percentvalue"
711 VonWert.Less
712 '/// Choose fifth entry in 'To' listbox
713 printlog " Choose fifth entry in 'To' listbox"
714 Bis.Select 5
715 '/// Decrease percentvalue
716 printlog " Decrease percentvalue"
717 BisWert.Less
718 '/// Press 'Add' button to open 'Name' dialog
719 printlog " Press 'Add' button to open 'Name' dialog"
720 Hinzufuegen.Click
721 Kontext "NameDlg"
722 '/// Close 'name' dialog with 'Cancel'
723 printlog " Close 'name' dialog with 'Cancel'"
724 NameDlg.Cancel
725 Kontext "TabFarbverlaeufe"
726 '/// Press 'Modify' button to open 'Name' dialog
727 printlog " Press 'Modify' button to open 'Name' dialog"
728 Aendern.Click
729 Kontext "NameDlg"
730 '/// Close 'name' dialog with 'Cancel'
731 printlog " Close 'name' dialog with 'Cancel'"
732 NameDlg.Cancel
733 Kontext "TabFarbverlaeufe"
734 '/// Press 'Delete' button
735 printlog " Press 'Delete' button"
736 Loeschen.Click
737 '/// Close messagebox with 'No'
738 printlog " Close messagebox with 'No'"
739 kontext
740 active.no
741 Kontext "TabFarbverlaeufe"
742 '/// Press 'Open' button to open 'File open' dialog
743 printlog " Press 'Open' button to open 'File open' dialog"
744 Oeffnen.Click
745 Kontext "OeffnenDLG"
746 '/// Close 'Open' dialog with 'Cancel'
747 printlog " Close 'Open' dialog with 'Cancel'"
748 OeffnenDLG.Cancel
749 Kontext "TabFarbverlaeufe"
750 '/// Press 'Save' button to open 'Save as' dialog
751 printlog " Press 'Save' button to open 'Save as' dialog"
752 Speichern.Click
753 Kontext "SpeichernDLG"
754 '/// Close 'Save' dialog with 'Cancel'
755 printlog " Close 'Save' dialog with 'Cancel'"
756 SpeichernDLG.Cancel
758 printlog ""
759 '/// Switch to tabpage 'Hatching'
760 printlog " Switch to tabpage 'Hatching'"
761 Kontext
762 active.SetPage TabSchraffuren
763 Kontext "TabSchraffuren"
764 '/// If a messagebox appears, close messagebox with 'Cancel'
765 printlog " If a messagebox appears, close messagebox with 'Cancel'"
766 Kontext
767 Kontext "Active"
768 If Active.Exists then
769 Kontext "Linienstil"
770 Linienstil.Cancel
771 end if
772 Kontext "TabSchraffuren"
773 '/// Verify that there are sample hatchings
774 printlog " Verify that there are sample hatchings"
775 If Tabelle.GetItemCount < 1 then
776 warnlog "There are no hatchings available"
777 end if
778 '/// Decrease 'Spacing'
779 printlog " Decrease 'Spacing'"
780 Abstand.Less
781 '/// Increase 'Angle'
782 printlog " Increase 'Angle'"
783 Winkel.More
784 '/// Verify that the 'Line type' listbox has three entries
785 printlog " Verify that the 'Line type' listbox has three entries"
786 If Linientyp.GetItemCount < 1 then
787 warnlog "There are no linetypes available"
788 end if
789 '/// Verify that the color listbox is not empty
790 printlog " Verify that the color listbox is not empty"
791 If Linienfarbe.GetItemCount < 1 then
792 warnlog "There are no linecolors available"
793 end if
794 '/// Press 'Add' button to open 'Name' dialog
795 printlog " Press 'Add' button to open 'Name' dialog"
796 Hinzufuegen.Click
797 '/// Close 'name' dialog with 'Cancel'
798 printlog " Close 'name' dialog with 'Cancel'"
799 Kontext "NameDlg"
800 NameDlg.Cancel
801 Kontext "TabSchraffuren"
802 '/// Press 'Modify' button to open 'Name' dialog
803 printlog " Press 'Modify' button to open 'Name' dialog"
804 Aendern.Click
805 '/// Close 'name' dialog with 'Cancel'
806 printlog " Close 'name' dialog with 'Cancel'"
807 Kontext "NameDlg"
808 NameDlg.Cancel
809 Kontext "TabSchraffuren"
810 '/// Press 'Delete' button
811 printlog " Press 'Delete' button"
812 Loeschen.Click
813 '/// Close messagebox with 'No'
814 printlog " Close messagebox with 'No'"
815 Kontext
816 if Active.exists then
817 Active.no
818 end if
819 Kontext "TabSchraffuren"
820 '/// Press 'Open' button to open 'File open' dialog
821 printlog " Press 'Open' button to open 'File open' dialog"
822 Oeffnen.Click
823 Kontext "OeffnenDLG"
824 '/// Close 'Open' dialog with 'Cancel'
825 printlog " Close 'Open' dialog with 'Cancel'"
826 OeffnenDLG.Cancel
827 Kontext "TabSchraffuren"
828 '/// Press 'Save' button to open 'Save as' dialog
829 printlog " Press 'Save' button to open 'Save as' dialog"
830 Speichern.Click
831 '/// Close 'Save' dialog with 'Cancel'
832 printlog " Close 'Save' dialog with 'Cancel'"
833 Kontext "SpeichernDLG"
834 SpeichernDLG.Cancel
836 printlog ""
837 '/// Switch to tabpage 'Bitmaps'
838 printlog " Switch to tabpage 'Bitmaps'"
839 Kontext
840 active.SetPage TabBitmap
841 Kontext "TabBitmap"
842 '/// If a messagebox appears, close messagebox with 'Cancel'
843 printlog " If a messagebox appears, close messagebox with 'Cancel'"
844 Kontext
845 Kontext "Active"
846 If Active.Exists then
847 Kontext "Linienstil"
848 Linienstil.Cancel
849 end if
850 Kontext "TabBitmap"
851 Call DialogTest ( TabBitmap )
852 '/// Verify that the listbox for 'Foreground color' is not empty
853 printlog " Verify that the listbox for 'Foreground color' is not empty"
854 If Vordergrund.GetItemCount < 1 then
855 warnlog "There are no colors available"
856 end if
857 '/// Verify that the listbox for Background color' is not empty
858 printlog " Verify that the listbox for Background color' is not empty"
859 If Hintergrund.GetItemCount < 1 then
860 warnlog "There are no colors available"
861 end if
862 '/// Verify that the listbox for Bitmaps is not empty
863 printlog " Verify that the listbox for Bitmaps is not empty"
864 If Tabelle.GetItemCount < 1 then
865 warnlog "There are no Bitmaps available"
866 end if
867 '/// Press 'Add' button to open 'Name' dialog
868 printlog " Press 'Add' button to open 'Name' dialog"
869 Hinzufuegen.Click
870 '/// Close 'name' dialog with 'Cancel'
871 printlog " Close 'name' dialog with 'Cancel'"
872 Kontext "NameDlg"
873 NameDlg.Cancel
874 Kontext "TabBitmap"
875 '/// Press 'Modify' button to open 'Name' dialog
876 printlog " Press 'Modify' button to open 'Name' dialog"
877 Aendern.Click
878 '/// Close 'name' dialog with 'Cancel'
879 printlog " Close 'name' dialog with 'Cancel'"
880 Kontext "NameDlg"
881 NameDlg.Cancel
882 Kontext "TabBitmap"
883 '/// Press 'Import' button to open 'Import' dialog
884 printlog " Press 'Import' button to open 'Import' dialog"
885 Import.Click
886 Kontext "GrafikEinfuegenDlg"
887 '/// Close 'Import' dialog with 'Cancel'
888 printlog " Close 'Import' dialog with 'Cancel'"
889 GrafikEinfuegenDlg.Cancel
890 Kontext "TabBitmap"
891 '/// Press 'Delete' button
892 printlog " Press 'Delete' button"
893 Loeschen.Click
894 '/// Close messagebox with 'No'
895 printlog " Close messagebox with 'No'"
896 Kontext
897 if Active.exists then
898 Active.no
899 end if
900 Kontext "TabBitmap"
901 '/// Press 'Open' button to open 'File open' dialog
902 printlog " Press 'Open' button to open 'File open' dialog"
903 Oeffnen.Click
904 '/// If a messagebox appears, close messagebox with 'No'
905 printlog " If a messagebox appears, close messagebox with 'No'"
906 Kontext "OeffnenDLG"
907 '/// Close 'Open' dialog with 'Cancel'
908 printlog " Close 'Open' dialog with 'Cancel'"
909 OeffnenDLG.Cancel
910 Kontext "TabBitmap"
911 '/// Press 'Save' button to open 'Save as' dialog
912 printlog " Press 'Save' button to open 'Save as' dialog"
913 Speichern.Click
914 Kontext "SpeichernDLG"
915 '/// Close 'Save' dialog with 'Cancel'
916 printlog " Close 'Save' dialog with 'Cancel'"
917 SpeichernDLG.Cancel
919 printlog ""
920 '/// Close 'Area' dialog with 'Cancel'
921 printlog " Close 'Area' dialog with 'Cancel'"
922 Kontext "TabBitmap"
923 TabBitmap.Cancel
925 '/// Close document
926 printlog " Close document"
927 Call hCloseDocument
929 endcase
931 '-----------------------------------------------------------
933 testcase tFormatGraphicText
934 '///<u><b>Format - Graphic - Text</b></u>
936 '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
937 printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
938 Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ))
939 '/// If the file is not editable, click the edit button on standardbar
940 printlog "If the file is not editable, click the edit button on standardbar"
941 call sMakeReadOnlyDocumentEditable
942 '/// Select first object by Navigator
943 printlog " Select first object by Navigator"
944 Call fNavigatorSelectObject ("drawing objects", 1)
945 '/// Open 'Format – Line' dialog by 'Format – Graphic – Line'
946 printlog " Open 'Format – Text' dialog by 'Format – Graphic – Text'"
947 FormatTextCalc
948 '/// Switch to tabpage 'Text'
949 printlog " Switch to tabpage 'Text'"
950 Kontext
951 Active.SetPage TabText
952 Kontext "TabText"
953 Call DialogTest ( TabText )
954 '/// Verify that 'Fit width to text' is disabled
955 printlog " Verify that 'Fit width to text' is disabled"
956 If BreiteAnTextAnpassen.IsEnabled then
957 warnlog "Fit width to text is enabled"
958 end if
959 '/// Verify that 'Fit heights to text' is disabled
960 printlog " Verify that 'Fit heights to text' is disabled"
961 If HoeheAnTextAnpassen.IsEnabled then
962 warnlog "Fit heights to text is enabled"
963 end if
964 '/// Verify that 'Word wrap text in shape' is disabled
965 printlog " Verify that 'Word wrap text in shape' is disabled"
966 If WordWrap.IsEnabled then
967 warnlog "Word wrap text in shape is enabled"
968 end if
969 '/// Verify that 'Resize shape to fit text' is disabled
970 printlog " Verify that 'Resize shape to fit text' is disabled"
971 If ResizeShape.IsEnabled then
972 warnlog "Resize shape to fit textt is enabled"
973 end if
974 '/// Uncheck 'Fit to frame'
975 printlog " Uncheck 'Fit to frame'"
976 AmRahmenAnpassen.UnCheck
977 '/// Uncheck 'Adjust to contour'
978 printlog " Uncheck 'Adjust to contour'"
979 Konturfluss.UnCheck
980 '/// Increase 'Spacing Left'
981 printlog " Increase 'Spacing Left'"
982 Links.More
983 '/// Increase 'Spacing Right'
984 printlog " Increase 'Spacing Right'"
985 Rechts.More
986 '/// Increase 'Spacing Top'
987 printlog " Increase 'Spacing Top'"
988 Oben.More
989 '/// Increase 'Spacing Bottom'
990 printlog " Increase 'Spacing Bottom'"
991 Unten.More
992 '/// Check 'Full Width'
993 printlog " Check 'Full Width'"
994 GanzeBreite.Check
996 '/// Switch to tabpage 'Text Animation'
997 printlog " Switch to tabpage 'Text Animation'"
998 Kontext
999 Active.SetPage TabLauftext
1000 Kontext "TabLauftext"
1001 Call DialogTest ( TabLauftext )
1002 '/// Choose 'Effect' 4 (Scroll back and forth)
1003 Effekt.Select 4
1004 '/// Click button 'Up'
1005 printlog " Click button 'Up'"
1006 NachOben.Click
1007 '/// Click button 'Left'
1008 printlog " Click button 'Left'"
1009 NachLinks.Click
1010 '/// Click button 'Down'
1011 printlog " Click button 'Down'"
1012 NachUnten.Click
1013 '/// Click button 'Right'
1014 printlog " Click button 'Right'"
1015 NachRechts.Click
1016 '/// UnCheck 'Start inside'
1017 printlog " UnCheck 'Start inside'"
1018 TextSichtbarBeimStarten.UnCheck
1019 '/// UnCheck 'Text visible when exiting'
1020 printlog " UnCheck 'Text visible when exiting'"
1021 TextSichtbarBeimBeenden.UnCheck
1022 '/// Uncheck 'Continous'
1023 printlog " Uncheck 'Continous'"
1024 Endlos.UnCheck
1025 '/// Increase number
1026 printlog " Increase number"
1027 Anzahl.More
1028 '/// Check 'Pixels'
1029 printlog " Check 'Pixels'"
1030 Pixel.Check
1031 '/// Increase number
1032 printlog " Increase number"
1033 Schrittweite.More
1034 '/// Uncheck 'Automatic'
1035 printlog " Uncheck 'Automatic'"
1036 Automatisch.UnCheck
1037 '/// Increase time
1038 printlog " Increase time"
1039 Verzoegerung.More
1041 '/// Close dialog with 'Cancel'
1042 printlog " Close dialog with 'Cancel'"
1043 TabLauftext.Cancel
1044 '/// Close document
1045 printlog " Close document"
1046 call hCloseDocument
1048 endcase
1050 '-----------------------------------------------------------
1052 testcase tFormatGraphicPoints
1053 '///<u><b>Format - Graphic - Points</b></u>
1055 '/// Load document from 'gTesttoolPath + "spreadsheet\required\input\twoobjects.ods"'
1056 printlog " Load document from 'gTesttoolPath + spreadsheet\required\input\twoobjects.ods"
1057 Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\required\input\twoobjects.ods" ))
1058 '/// If the file is not editable, click the edit button on standardbar
1059 printlog "If the file is not editable, click the edit button on standardbar"
1060 call sMakeReadOnlyDocumentEditable
1061 '/// Select first object by Navigator
1062 printlog " Select first object by Navigator"
1063 Call fNavigatorSelectObject ("drawing objects", 1)
1064 '/// Toggle 'Points' by 'Format - Graphic - Points
1065 FormatPointsCalc
1066 FormatPointsCalc
1067 '/// Close document
1068 printlog " Close document"
1069 call hCloseDocument
1071 endcase
1073 '-----------------------------------------------------------