update dev300-m58
[ooovba.git] / testautomation / graphics / optional / includes / global / id_011.inc
blob12c3796d1cf8590fe60b124b23f1dfeb268a8ea5
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: id_011.inc,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
15 '* This file is part of OpenOffice.org.
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.
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).
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.
32 '/******************************************************************************
34 '* Owner : wolfram.garten@sun.com
36 '* short description :
38 '\******************************************************************************
40 testcase tiTextToolbar
42     Dim iWaitIndex as integer
43     Dim Zufall as integer
44     Dim i as integer
46     Call hNewDocument
48     hTextrahmenErstellen ("This is a Text, which will be formatted in several ways", 20,20,40,80)
49     sleep 2
50     EditSelectAll
51     sleep 2
52     Kontext "TextObjectbar"
53     if TextObjectbar.Exists <> TRUE then  'isVisible
54         ViewToolbarsTextFormatting
55     endif
56     WaitSlot (3000)    'sleep (3)
57     Kontext "TextObjectbar"
58     Printlog "- choose random font"
59     randomize
60     Zufall=((2*Rnd)+1)      ' wird nicht auf den verfuegbaren bereich getreckt :-( TODO TBO!
61     Schriftart.GetItemcount
62     Schriftart.GetSelText
63     Schriftart.Select (Zufall)
64     Printlog Schriftart.GetSelText + " chosen"
66     Kontext "TextObjectbar"
67     sleep 2
68     Printlog "- Change size of font"
69     Schriftgroesse.Select (Zufall)
70     Printlog Schriftgroesse.GetSelText + " chosen"
72     Kontext "TextObjectbar"
73     Printlog "- Font attribute bold"
74     Fett.Click
75     sleep 2
77     Kontext "TextObjectbar"
78     Printlog "- Font attribute cursive"
79     Kursiv.Click
80     sleep 2
82     Kontext "TextObjectbar"
83     Printlog "- Font attribute cursiv"
84     Unterstrichen.Click
85     sleep 2
87     Kontext "TextObjectbar"
88     Printlog "- font attribute color"
89     sleep 3
90     FontColorGraphics.TearOff
91     Kontext "TB_Farbe"
92     TB_Farbe.Move 20, 20
93     Sleep 2
94     TB_Farbe.MouseDoubleClick 50, 50
95     Sleep 2
96     TB_Farbe.Close
98     Kontext "TextObjectbar"
99     Printlog "- Allign text left"
100     Linksbuendig.Click
101     sleep 2
103     Kontext "TextObjectbar"
104     Printlog "- Allign text centered"
105     Zentriert.Click
106     sleep 2
108     Kontext "TextObjectbar"
109     Printlog "- align text to right"
110     Rechtsbuendig.Click
111     sleep 2
113     Kontext "TextObjectbar"
114     Printlog "- Justified"
115     Blocksatz.Click
116     sleep 2
118     Kontext "TextObjectbar"
119     if TextObjectbar.isEnabled <> TRUE then
120         warnlog "Couldn't access TextObjectbar - known bug with bars - FHA"
121         ViewToolbarsTextFormatting
122     endif
123     WaitSlot (2000)    'sleep 2
124     Printlog "- Raising Font spacing"
126     kontext "TextObjectbar"
127     sleep 1
128     iWaitIndex = 0
129     do while NOT TextObjectbar.isEnabled AND iWaitIndex < 10
130         sleep(1)
131         iWaitIndex = iWaitIndex + 1
132     loop
133     if NOT TextObjectbar.isEnabled AND iWaitIndex = 10 then
134         warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
135         Call hCloseDocument
136         goto endsub
137     endif
138     TextObjectbar.OpenContextMenu
139     sleep 2
140     hMenuselectNr (1)
141     sleep 2
142     hMenuItemCheck (13)
143     sleep 2
144     TextObjectbar.OpenContextMenu
145     sleep 2
146     hMenuselectNr (1)
147     sleep 2
148     hMenuItemCheck (14)
149     sleep 2
150     ZeilenabstandErhoehen.Click
151     sleep 2
153     Kontext "TextObjectbar"
154     Printlog "- Decrease Spacing"
155     ZeilenabstandVerringern.Click
156     sleep 2
158     Kontext "TextObjectbar"
159     Printlog "- Numbering and Bullets"
160     sleep 2
161     BulletsOnOff.Click
162     sleep 2
163     BulletsOnOff.Click
165     Kontext "TextObjectBar"
166     Printlog "- Increase Font /Reduce Font"
167     sleep 2
168     printlog "Click on Increase Font"
169     IncreaseFont.Click
170     sleep 2
171     printlog "Click on Reduce Font"
172     ReduceFont.Click
174     Kontext "TextObjectbar"
175     Printlog "- Text direction from left to right"
176     sleep 2
177     Printlog "- click button 'Text direction from left to right
178     try
179         TextdirectionLeftToRight.Click
180         printlog "hor does work :-)"
181         if (NOT gAsianSup) then
182             warnlog " this doesn't have to work if asian lang support is disabled :-)"
183         endif
184     catch
185         if (gAsianSup) then
186             warnlog "hor does NOT work :-("
187         endif
188     endcatch
189     Printlog "- click button 'Text direction from top to bottom"
190     try
191         TextdirectionTopToBottom.Click
192         printlog "ver does work :-)"
193         if (gAsianSup = FALSE) then
194             warnlog " this doesnt have to work if asian lang support is disabled :-)"
195         endif
196     catch
197         if (gAsianSup = TRUE) then
198             warnlog "ver does NOT work :-( , AsianLanguage support is enabled !"
199         endif
200     endcatch
202     Printlog "- open character dialog"
203     Kontext "TextObjectbar"
204     sleep 2
205     Zeichenformat.Click
206     sleep 2
208     Kontext
209     Active.SetPage TabFont
211     Kontext "TabFont"
212     sleep 2
213     if TabFont.Exists Then
214         TabFont.Cancel
215         Printlog "- Tabfont exists"
216     else
217         Warnlog "- No dialog exists "
218     endif
220     Kontext "TextObjectbar"
221     sleep 2
222     Printlog "- call properties for paragraph using text object toolbar"
223     Absatzformat.Click
224     sleep 2
226     Kontext
227     Active.SetPage TabTabulator
229     Kontext "TabTabulator"
230     if TabTabulator.Exists Then
231         Printlog "- TabTabulator exists"
232         TabTabulator.Cancel
233     else
234         Warnlog "- TabTabulator does not exist"
235     endif
237     if ( gApplication = "IMPRESS" ) then  ' IMPRESS only
239         Kontext "TextObjectbar"
240         OutlineBullet.Click
241         kontext
242         if active.exists (5) then
243             messagebox.SetPage TabOptionenNumerierung
245             kontext "TabOptionenNumerierung"
246             if (TabOptionenNumerierung.exists (5) ) then
247                 Printlog "Numbering/Bullets window came up :-)"
248                 TabOptionenNumerierung.cancel
249             else
250                 warnlog "no Numbering/Bullets window came up :-("
251             endif
252         else
253             warnlog "no Numbering/Bullets window came up :-( 2"
254         endif
256         Printlog "-change order of outline points"
257         sleep 3
258         ViewWorkspaceOutlineView
259         WaitSlot (2000)    'sleep (3)
261         Kontext "DocumentImpressOutlineView"
262         sleep 1
263         DocumentImpressOutlineView.TypeKeys "Bla bla bla <RETURN><TAB>bla bla bla bla bla <MOD1 SHIFT LEFT>"
264         sleep 1
266         Kontext "TextObjectbar"
267         HierachieRunter.Click
268         sleep 1
269         Printlog "- Move back down"
270         HierachieHoch.Click
271         sleep 1
272         HierachieHoch.Click
273         sleep 1
274         Printlog "- Move paragraph up"
275         AbsatzHoch.Click
276         sleep 1
277         Printlog "- move paragraph back down and switch to drawing view"
278         AbsatzRunter.Click
279         sleep 1
281         Kontext "Vorschau"
282         if Vorschau.Exists then
283             printlog "- - - - preview window is open, hope there is no problem"
284             '    Vorschau.Close
285         endif
287     else '      DRAW only
288         Kontext "TextObjectbar"
289         Printlog "- Double"
290         LineSpacing2.Click
291         sleep 2
293         Kontext "TextObjectbar"
294         Printlog "- 1.5 lines"
295         LineSpacing15.Click
296         sleep 2
298         Kontext "TextObjectbar"
299         Printlog "- Single"
300         LineSpacing1.Click
301         sleep 2
302     endif
304     iWaitIndex = 0
306     Kontext "TextObjectbar"
307     do while TextObjectbar.isEnabled = FALSE AND iWaitIndex < 10
308         sleep(1)
309         iWaitIndex = iWaitIndex + 1
310     loop
311     if TextObjectbar.isEnabled = FALSE AND iWaitIndex = 10 then
312         warnlog "Dialogue TextObjectbar didnt work. Ending testcase."
313         Call hCloseDocument
314         goto endsub
315     endif
316     sleep 2
318     Kontext "TextObjectbar"
319     TextObjectbar.OpenContextMenu
320     sleep 2
321     hMenuselectNr (1)
322     sleep 2
323     hMenuItemUnCheck (13)
324     sleep 2
325     TextObjectbar.OpenContextMenu
326     sleep 2
327     hMenuselectNr (1)
328     sleep 2
329     hMenuItemUnCheck (14)
330     sleep 2
331     ViewToolbarsTextFormatting
332     WaitSlot (2000)    'sleep 1
333     if ( gApplication = "IMPRESS" ) then
334         Kontext "DocumentImpressOutlineView"
335         DocumentImpressOutlineView.TypeKeys "<ESCAPE>"
336         hUseAsyncSlot( "EditSelectAll" )
337         DocumentImpressOutlineView.TypeKeys "<DELETE>"
338         sleep (3)
339         ViewWorkspaceDrawingView
341         Kontext "DocumentImpress"
342         WaitSlot (2000)    'sleep 1
343         DocumentImpress.TypeKeys "<ESCAPE>"
344         hUseAsyncSlot( "EditSelectAll" )
345         DocumentImpress.TypeKeys "<DELETE>"
346     else
347         Kontext "DocumentDraw"
348         DocumentDraw.TypeKeys "<ESCAPE>"
349         hUseAsyncSlot( "EditSelectAll" )
350         DocumentDraw.TypeKeys "<DELETE>"
351     endif
352     Printlog "Test ended."
354     Call hCloseDocument
355 endcase
357 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
359 testcase tiDrawObjectBar
360     Dim a as string
361     Dim Zaehler as integer
362     Dim i as integer
363     Dim x as integer
365     Call hNewDocument
367     Call hRechteckErstellen (20,20,70,70)
368     sleep 1
369     '--------------------------- format line ------------------------
370     Printlog "- call format line using graphic object toolbar"
371     Kontext "DrawingObjectbar"
372     if DrawingObjectbar.Exists = FALSE then
373         ViewToolbarsGraphic
374     endif
375     if DrawingObjectbar.Exists = FALSE then
376         warnlog "Drawing-Objectbar should have been opened, but wasnt"
377         ViewToolbarsGraphic
378     endif
380     sleep 3
381     Linie.Click
382     sleep 2
383     Kontext
384     Active.SetPage TabLinie
385     Kontext "TabLinie"
386     if TabLinie.Exists Then
387         TabLinie.Cancel
388         Printlog "- TabLinie exists "
389     else
390         Warnlog "- TabLinie does not exist"
391     endif
393     '--------------------------- Linienendenstil --------------------
394     Printlog "- Style of line ends"
395     Kontext "DrawingObjectbar"
396     sleep 1
397     Linienendenstil.TearOff
398     sleep 2
399     Kontext "Linienenden"
400     if Linienenden.Exists Then
401         Printlog "- dialog exists"
402         Linienenden.Close
403     else
404         Warnlog "- Arrowheads does not exist"
405     endif
407     '--------------------------- Linienstil -------------------------
408     Printlog "- choose style of lines using graphic object toolbar"
410     Kontext "DrawingObjectbar"
411     sleep 1
412     Linienstil.Select 2
413     Printlog Linienstil.GetSelText + " chosen"
414     Linienstil.Select Linienstil.GetItemCount
415     Printlog  Linienstil.GetSelText + " chosen"
416     sleep 2
418     '--------------------------- Linienbreite------------------------
419     Printlog "- check style of lines using graphic object toolbar"
420     Kontext "DrawingObjectbar"
421     sleep 1
422     a = Linienbreite.GetText
423     SetClipboard a
424     sleep 1
425     Linienbreite.SetText "0,5"
426     sleep 2
427     if Linienbreite.GetText = a Then
428         Warnlog "- changes in edit field did not happen; is: '"+Linienbreite.GetText+"', should be : '"+"0,5"+"'"
429     else
430         Printlog "- Width of lines changed"
431     endif
433     '--------------------------- Linienfarbe ------------------------
434     Printlog "- change line color"
435     Kontext "DrawingObjectbar"
436     sleep 1
437     Zaehler = Linienfarbe.GetItemCount
438     randomize
439     i = Int(Zaehler*Rnd+1)
440     Linienfarbe.Select i
441     Printlog Linienfarbe.GetSelText + " chosen"
443     '--------------------------- Flaechenformatierung ---------------
444     Printlog "- Call Format area using graphic object toolbar"
445     Kontext "DrawingObjectbar"
446     sleep 1
447     try
448         Flaeche.Click
449     catch
450         printlog "clicking on area took ages :-("
451     endcatch
452     sleep 5
453     Kontext
454     Active.SetPage TabArea
455     Kontext "TabArea"
456     if TabArea.Exists Then
457         Printlog "- TabArea exists "
458         TabArea.Cancel
459     else
460         Warnlog "- TabArea does not exist"
461     endif
463     '---
464     sleep 1
465     Kontext "DrawingObjectbar"
466     sleep 1
467     x = AreaStyle.GetItemCount
468     i = 1
469     for i = i to x
470         AreaStyle.Select i
471         Printlog "Area Style: (" + i + "/" + x + ") - " + AreaStyle.GetSelText
472         sleep 1
473         if AreaStyle.GetSelIndex > 1 then
474             Printlog "     Area Filling " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetItemCount
475             if (i <> 1) AND (AreaFilling.GetItemCount <> 0) then
476                 if (AreaFilling.GetSelIndex = 0) AND (AreaFilling.GetItemCount > 0) then
477                     printlog "default item is 0 => means nothing; NO BUG! 100909"
478                 endif
479                 AreaFilling.Select (AreaFilling.GetItemCount)
480                 Printlog "           Selected: " + AreaFilling.GetSelIndex + " - " + AreaFilling.GetSelText
481             endif
482         endif
483     next i
485     '---------------------------- Schatten --------------------------
486     Printlog "- Assign shadow using graphic object toolbar"
487     Kontext "DrawingObjectbar"
488     sleep 1
489     Schatten.Click
490     sleep 1
491     Printlog "- shadow assigned"
493     '---------------------------- Praesentationsflyer ---------------
494     if ( gApplication = "IMPRESS" ) then  ' IMPRESS only
495         Printlog "- Call presentation flyer"
496         Kontext "CommonTaskbar" ' first check , if presentation flyer is up! if not -> make it up :-)
497         if CommonTaskbar.Exists Then
498             printlog "- flyer is already visible :-)"
499         else
500             printlog "- flyer wasn't visible :-( -will be now!"
501             Kontext "DrawingObjectbar"
502             sleep 1
503             ViewToolbarsPresentation    ' put it up again!
504         endif
505     endif
506     if ((UCase(gApplication)) = "IMPRESS") then    ' IMPRESS only
507         Kontext "DrawingObjectbar"
508         if DrawingObjectbar.isVisible = FALSE then
509             ViewToolbarsGraphic
510         endif
511     endif
512     Call hCloseDocument
513 endcase
515 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
517 testcase tiGraphicsObjectBar
518     dim i as integer
519     Call hNewDocument
521     hGrafikeinfuegen ConvertPath (gTesttoolPath & "global\input\graf_inp\desp.bmp")
522     sleep 1
523     Kontext "GraphicObjectbar"
524     if ( NOT GraphicObjectbar.Exists() ) then
525         ViewToolbarsPicture
526     endif
527     sleep 1
528     Filter.TearOff
529     sleep 1
530     Kontext "GraphicFilterBar"
531     sleep 1
532     Printlog "invert"
533     Invert.Click
534     sleep 3
535     Printlog "smooth"
536     Smooth.Click
537     sleep 3
538     Printlog "sharpen"
539     Sharpen.Click
540     sleep 3
541     Printlog "remove noise"
542     Remove.Click
543     sleep 3
544     Printlog "solarization"
545     Solarization.Click
546     sleep 3
547     Kontext "Solarization"
548     if Solarization.exists (5) then
549         sleep 1
550         Call Dialogtest ( Solarization )
551         sleep 1
552         Value.More
553         Value.Less
554         Invert.Check
555         Solarization.OK
556     else
557         warnlog "solarization didn't came up :-("
558     endif
559     sleep 1
560     Kontext "GraphicFilterBar"
561     sleep 1
562     Printlog "aging"
563     Aging.Click
564     Kontext "Aging"
565     sleep 1
566     Call Dialogtest ( Aging )
567     AgingDegree.More
568     AgingDegree.Less
569     sleep 1
570     Aging.OK
571     sleep 1
572     Kontext "GraphicFilterBar"
573     sleep 1
574     Printlog "poster"
575     Posterize.Click
576     sleep 1
577     Kontext "Posterize"
578     sleep 1
579     Call Dialogtest ( Posterize )
580     PosterColors.More
581     PosterColors.Less
582     sleep 1
583     Posterize.OK
584     sleep 2
585     kontext "GraphicFilterBar"
586     sleep 1
587     Printlog "pop"
588     Art.Click
589     sleep 3
590     Printlog "charcoal"
591     CharcoalSketch.Click
592     sleep 3
593     Printlog "relief"
594     Relief.Click
595     Kontext "Relief"
596     sleep 1
597     Call Dialogtest ( Relief )
598     LightSource.TypeKeys "<left><up>"
599     Relief.OK
600     sleep 3
601     Kontext "GraphicFilterBar"
602     Printlog "mos"
603     Mosaic.Click
604     sleep 1
605     Kontext "Mosaic"
606     sleep 1
607     Call Dialogtest ( Mosaic )
608     Width.More
609     Width.Less
610     Height.More
611     Height.Less
612     EnhanceEdges.Check
613     Mosaic.OK
614     sleep 3
615     Kontext "GraphicFilterBar"
616     GraphicFilterBar.Close
618     Kontext "GraphicObjectbar"
619     if GraphicObjectbar.Exists = FALSE then
620         ViewToolbarsPicture
621     endif
622     sleep 1
623     for i = 1 to Grafikmodus.GetItemCount
624         Grafikmodus.select i
625         sleep 1
626     next i
628     ColorSettings.Click
629     Kontext "ColorBar"
631     try
632         Rotanteil.More
633         Rotanteil.Less
634     catch
635         warnlog "not working from testtool redvalue "+   rotanteil.GetRT
636     endcatch
637     try
638         Gruenanteil.More
639         Gruenanteil.Less
640     catch
641         warnlog "not working from testtool Greenvalue."
642     endcatch
643     try
644         Blauanteil.More
645         Blauanteil.Less
646     catch
647         warnlog "not working from testtool Bluevalue."
648     endcatch
649     try
650         Helligkeit.More
651         Helligkeit.Less
652     catch
653         warnlog "not working from testtool Brightness."
654     endcatch
655     try
656         Kontrast.More
657         Kontrast.Less
658     catch
659         warnlog "not working from testtool Contrast."
660     endcatch
661     try
662         Gamma.More
663         Gamma.Less
664     catch
665         warnlog "not working from testtool Gamma."
666     endcatch
668     ColorBar.Close
669     Kontext "GraphicObjectbar"
671     try
672         Transparenz.More
673         Transparenz.Less
674     catch
675         warnlog "Not working from testtool Transparency."
676     endcatch
678     Crop.click
679     FormatCropPicture
681     kontext "TabZuschneiden"
682     GroesseBeibehalten.Check
683     MassstabBeibehalten.Check
684     Links.More
685     Links.Less
686     Rechts.More
687     Rechts.Less
688     Oben.More
689     Oben.Less
690     Unten.More
691     Unten.Less
692     MassstabBreite.More
693     MassstabBreite.Less
694     MassstabHoehe.More
695     MassstabHoehe.Less
696     GroesseBreite.More
697     GroesseBreite.Less
698     GroesseHoehe.More
699     GroesseHoehe.Less
700     Originalgroesse.Click
701     TabZuschneiden.Cancel
703     Call hCloseDocument
704 endcase
706 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
708 testcase tiGluepointToolbar
709     Call hNewDocument
711     Call hRechteckErstellen 20,20,40,40
712     Call hRechteckErstellen 60,60,80,80
713     sleep 2
714     ViewToolbarsOptionbar
715     sleep 2
717     Kontext "Optionsbar"
718     if Optionsbar.Exists = False Then
719         ViewToolbarsOptionbar
720         Kontext "Optionsbar"
721         if Optionsbar.Exists = False Then
722             warnlog "Can't open Optionsbar."
723         endif
724     endif
725     sleep 2
726     Kontext "Toolbar"
727     sleep 1
728     Verbinder.Click
729     gMouseMove 30,30,70,70
730     sleep 3
731     Kontext "Toolbar"
732     GluePoints.Click
733     sleep 1
734     Kontext "Gluepointsobjectbar"
735     if Gluepointsobjectbar.Exists = False Then
736         ViewToolbarsGluepoints
737     endif
738     sleep 3
739     '-------------------------------------- Klebepunkt einfuegen ----
740     try
741         PunkteEinfuegen.Click
742         sleep 2
743         gMouseClick 25,30
744         sleep 1
745         gMouseclick 25,30
746         Printlog "- insert gluepoint works"
747     catch
748         Warnlog "- gluepoint could not be insert. Following errors might have their reason here"
749     endcatch
750     sleep 3
751     Kontext "Gluepointsobjectbar"
753     '-------------------------------------- Links -------------------
754     try
755         Links.Click
756         Printlog "- gluepoint left works"
757     catch
758         Warnlog "- gluepoint left does not work"
759     endcatch
760     sleep 1
761     '-------------------------------------- Rechts ------------------
762     try
763         Rechts.Click
764         Printlog "- gluepoint right works"
765     catch
766         Warnlog "- gluepoint right does not work"
767     endcatch
768     sleep 1
769     '-------------------------------------- Oben --------------------
770     try
771         Oben.Click
772         Printlog "- gluepoint top works"
773     catch
774         Warnlog "- gluepoint top does not work"
775     endcatch
776     sleep 1
777     '-------------------------------------- Unten -------------------
778     try
779         Unten.Click
780         Printlog "- gluepoint bottom works"
781     catch
782         Warnlog "- gluepoint bottom does not work"
783     endcatch
784     sleep 1
785     '---------------------- Position an Objekt anpassen -------------
786     try
787         PositionAnObjektAnpassen.Click
788         Printlog "- align position to object works"
789         gMouseClick 25,30      ' if you don't click onto an existing point, the state changes back :-[
790     catch
791         Warnlog "- align position to object does not work"
792     endcatch
793     Kontext "Gluepointsobjectbar"
794     sleep 1
795     '------------------------------------- Horizontal links ---------
796     if PositionAnObjektAnpassen.exists then
797         printlog "PositionAnObjektAnpassen = Exists"
798     endif
799     if PositionAnObjektAnpassen.GetState(2) <> 0 then
800         PositionAnObjektAnpassen.Click ' make unpressed!
801     endif
802     '0 = not pressed. 1 = pressed.
803     sleep 2
804     try
805         Kontext "Gluepointsobjectbar"
806         HorizontalLinks.Click
807         Printlog "- align horizontal left works"
808     catch
809         Warnlog "- align horizontal left does not work"
810         PositionAnObjektAnpassen.Click ' that's the middle button, it has to be UP/not activated!
811         for i = 1 to Gluepointsobjectbar.GetItemCount
812             if (Gluepointsobjectbar.GetState ( i, 0 ) <> 0 ) then ' is no seperator
813                 printlog "----------------------------------------------------------------------"
814                 printlog "helpid  : " + Gluepointsobjectbar.Getstate ( i, 0 ) + "  number in row: " + i
815                 printlog "itemtype: " + Gluepointsobjectbar.GetState ( i, 1 )
816                 printlog "state   : " + Gluepointsobjectbar.GetState ( i, 2 )
817                 printlog "----------------------------------------------------------------------"
818             endif
819         next i
820     endcatch
821     sleep 2
822     '------------------------------------- Horizontal rechts --------
823     try
824         HorizontalRechts.Click
825         Printlog "- Align horizontal right does work"
826     catch
827         Warnlog "- Align horizontal right does notwork"
828     endcatch
829     sleep 1
830     '------------------------------------- Horizontal zentriert -----
831     try
832         HorizontalZentriert.Click
833         Printlog "- align horizontal center does work"
834     catch
835         Warnlog "- align horizontal center does work"
836     endcatch
837     sleep 1
838     '------------------------------------- Vertikal oben ------------
839     try
840         VertikalOben.Click
841         sleep 1
842         Printlog "- Align vertical top does work"
843     catch
844         Warnlog "- Align vertical top does not work"
845     endcatch
846     '------------------------------------- Vertikal unten -----------
847     try
848         VertikalUnten.Click
849         sleep 1
850         printlog "- Align vertical bottom does work"
851     catch
852         Warnlog "- Align vertical bottom does not work"
853     endcatch
854     '------------------------------------- Vertikal zentriert -------
855     try
856         VertikalZentriert.Click
857         sleep 1
858         Printlog "- Align vertical center does work"
859     catch
860         Warnlog "- Align vertical center does not work"
861     endcatch
863     Printlog "- End of testing gluepoints"
865     ViewToolbarsOptionbar
866     sleep 2
867     Kontext "Optionsbar"
868     if Optionsbar.Exists Then
869         warnlog "Couldnt close Optionsbar."
870     endif
871     Call hCloseDocument
872 endcase
874 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
876 testcase tdBezierToolbar
877     Call hNewDocument
879     Call hRechteckErstellen ( 10, 10, 30, 40 )
880     sleep (1)
882     Call hOpenContextMenu
883     sleep (1)
885     Call hOpenContextMenu
886     sleep (2)
888     Kontext "Bezierobjectbar"
889     if Bezierobjectbar.Exists <> TRUE then
890         ViewToolbarsBezier
891         Sleep (2)
892         if Bezierobjectbar.Exists <> TRUE then
893             warnlog "Bezierobjectbar did not show up. Check why."
894         endif
895     endif
897     '----------------------------------- Punkte verschieben ------------------------------------
899     Kontext "Bezierobjectbar"
900     if Bezierobjectbar.Exists <> TRUE then
901         ViewToolbarsBezier
902         Sleep 2
903     endif
904     if Bezierobjectbar.Exists <> TRUE then
905         Warnlog "The Bezier-Objectbar should have been opened, but wasnt."
906         ViewToolbarsBezier
907         Sleep 2
908     endif
910     Kontext "Bezierobjectbar"
911     sleep 1
912     Printlog "- Move points"
913     Verschieben.Click
914     sleep 2
916     hTypeKeys "<MOD1 TAB>"
918     Printlog "- Insert points"
919     Kontext "Bezierobjectbar"
920     Einfuegen.Click
921     sleep 2
922     Bezierobjectbar.Move 20, 20
923     sleep (1)
924     Printlog "- Delete points"
926     gMouseMove 25,25,45,45
929     sleep 2
930     Kontext "Bezierobjectbar"
931     sleep 2
932     Printlog "- Convert into curve"
933     InKurve.Click
934     sleep 2
935     Printlog "- Place edge point"
936     Ecke.Click
937     sleep 2
938     Printlog "- Smooth transition"
939     Glatt.Click
940     sleep 2
941     Printlog "- Symetric transition"
942     Symmetrisch.Click
943     sleep 2
945     Kontext "Bezierobjectbar"
946     PunkteReduzieren.Click
947     sleep 2
949     hTypeKeys "<MOD1 TAB>"
950     hTypeKeys "<MOD1 SHIFT SPACE>"
952     Kontext "Bezierobjectbar"
953     try
954         Auftrennen.Click
955     catch
956         Warnlog "- 'Break' could not be executed"
957     endcatch
958     sleep 2
960     hTypeKeys "<MOD1 TAB>"
961     hTypeKeys "<MOD1 A>"
963     Printlog "- Close bezier"
964     Kontext "Bezierobjectbar"
965     try
966         Schliessen.Click
967     catch
968         InKurve.Click
969         sleep 2
970         try
971             Schliessen.Click
972         catch
973             warnlog "Couldn't push button :-( can't reproduce it now, mostly seen on linux, if i loop this test, it happens only 1/5 of the time ... :-)"
974         endcatch
975     endcatch
976     sleep 2
978     hTypeKeys "<MOD1 TAB>"
979     hTypeKeys "<MOD1 A>"
981     Kontext "Bezierobjectbar"
982     Printlog "- Break curve"
983     try
984         Loeschen.Click
985         sleep 2
986     catch
987         warnlog "Delete didn't work... why?"
988     endcatch
990     Kontext "Toolbar"
991     sleep 2
992     Toolbar.OpenContextMenu   ' Enable forms button in menuebar
993     sleep 2
994     hMenuselectNr (1)
995     sleep 2
996     hMenuItemUnCheck (7)
997     sleep 2
998     Call hCloseDocument
999 endcase
1001 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'