diff options
Diffstat (limited to 'testautomation/graphics/optional/includes/global/g_customshapes.inc')
-rw-r--r-- | testautomation/graphics/optional/includes/global/g_customshapes.inc | 847 |
1 files changed, 847 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_customshapes.inc b/testautomation/graphics/optional/includes/global/g_customshapes.inc new file mode 100644 index 000000000000..3cd31dac77b6 --- /dev/null +++ b/testautomation/graphics/optional/includes/global/g_customshapes.inc @@ -0,0 +1,847 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/************************************************************************ +'* +'* Owner : wolfram.garten@sun.com +'* +'* short description : Customshapes-test +'* +'********************************************************************* +' #1 tCustomshapes +' #1 tFormatPaintbrush +'\******************************************************************** +testcase tCustomshapes + + dim counter as Integer + dim MakeInto3Dcounter as Integer + + '/// Create new document ///' + Call hNewDocument + if gApplication = "DRAW" then + Kontext "Documentdraw" + else '(Impress) + Kontext "DocumentImpress" + endif + kontext "Toolbar" + sleep 1 + printlog "insert a Smiley." + '/// From the toolbar: Insert three objects: ///' + '/// insert a Smiley. ///' + kontext "Toolbar" + if Toolbar.Exists then + if Toolbar.IsVisible then + sleep 1 + try + SymbolShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + sleep 1 + kontext "SymbolShapes" + SymbolShapesSmiley.Click + sleep 1 + + gMouseDown (40,40) + gMouseMove (40,40,60,60) + gMouseUp (60,60) + + sleep 1 + kontext "SymbolShapes" + SymbolShapes.Close + + '/// Unmark all objects ///' + hTypeKeys "<ESCAPE>" + + '/// Mark the Smiley ///' + hTypeKeys "<TAB>" + + printlog "Rename the object to 'First'." + '/// Rename the object to 'First' ///" + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "NameDlgObject" + NameField.SetText "First" + NameDlgObject.OK + + printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'" + '/// Open the Context-menu and set the description of the object to 'First' ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + DescriptionTitle.SetText "FirstTitle" + DescriptionText.SetText "FirstText" + DescriptionObject.Ok + else + warnlog "the Toolbar wasnt visible." + endif + else + warnlog "the Toolbar didnt exist." + endif + gMouseClick 90, 90 + + printlog "Insert a Triangle." + '/// Insert a Triangle ///' + kontext "Toolbar" + if Toolbar.Exists then + if Toolbar.IsVisible then + try + BasicShapes.TearOff + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "BasicShapes" + sleep 1 + IsoscelesTriangle.click + sleep 1 + + gMouseDown (45,33) + gMouseMove (45,33,55,42) + gMouseUp (55,42) + sleep 1 + kontext "BasicShapes" + BasicShapes.Close + sleep 1 + + '/// Unmark all objects ///' + hTypeKeys "<ESCAPE>" + '/// Mark the Triangle ///' + hTypeKeys "<TAB>", 2 + + printlog "Rename the object into 'Second'." + '/// Rename the object into 'Second'. ///' + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + sleep 1 + kontext "NameDlgObject" + NameField.SetText "Second" + NameDlgObject.OK + + printlog "Set the object -Title/Description to 'SecondTitle' and 'SecondText'." + '/// Open the Context-menu and set the description of the object to 'SecondTitle' and 'SecondText' ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + DescriptionTitle.SetText "SecondTitle" + DescriptionText.SetText "SecondText" + DescriptionObject.Ok + else + warnlog "the Toolbar wasnt visible." + endif + else + warnlog "the Toolbar didnt exist." + endif + gMouseClick 90, 90 + + printlog "Insert Thinking-cloud." + '/// Insert Thinking-cloud. ///' + kontext "Toolbar" + if Toolbar.Exists then + if Toolbar.IsVisible then + sleep 1 + try + CalloutShapes.TearOff ' insert Thinking-cloud + catch + warnlog "bug for GH from FHA; .tearoff doesnt tell success" + endcatch + kontext "Callouts" + sleep 1 + Cloud.click + sleep 1 + + gMouseDown (1,1) + gMouseMove (1,1,35,30) + gMouseUp (35,30) + sleep 1 + + kontext "Callouts" + Callouts.Close + sleep 1 + + '/// Unmark all objects ///' + hTypeKeys "<ESCAPE>" + '/// Mark the cloud ///' + hTypeKeys "<TAB>", 3 + + printlog "Rename the object to 'Third'." + '/// Rename the object to 'Third'. ///' + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + Kontext "NameDlgObject" + NameField.SetText "Third" + NameDlgObject.OK + + printlog "Set the object -Title/Description to 'ThirdTitle' and 'ThirdText'." + '/// Open the Context-menu and set the description of the object to 'First' ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + DescriptionTitle.SetText "ThirdTitle" + DescriptionText.SetText "ThirdText" + DescriptionObject.Ok + else + warnlog "the Toolbar wasnt visible." + endif + else + warnlog "the Toolbar didnt exist." + endif + gMouseClick 90, 90 + + printlog "Change all objects into 3D." + '/// Change all objects into 3D. ///' + if gApplication = "DRAW" then + Kontext "Documentdraw" + else '(Impress) + Kontext "DocumentImpress" + endif + For MakeInto3Dcounter = 1 to 3 + hTypeKeys "<TAB>", MakeInto3Dcounter + kontext "Toolbar" + if Toolbar.Exists then + if Toolbar.IsVisible then + if ExtrusionOnOff.Exists then + ExtrusionOnOff.Click + sleep (3) + else + sleep (1) + Toolbar.OpenContextMenu ' enable forms button in menuebar + sleep (1) + hMenuselectNr (1) + sleep (1) + if hMenuFindSelect(1024, true, 25) = false then + Warnlog "Context-Menu-entry `Extrusion On/Off` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + sleep (1) + kontext "Toolbar" + ExtrusionOnOff.Click + sleep (3) + endif + Kontext "ExtrusionObjectBar" + if ExtrusionObjectBar.Exists then + if ExtrusionObjectBar.IsVisible then + printlog " Objects got converted into Extrusion-objects, correct." + else + warnlog " No Extrusion-toolbar visible. Eventually a problem making objects into Extrusion-Objects." + endif + endif + endif + else + warnlog " the 'Toolbar' -Toolbar didnt exist." + endif + sleep (1) + hTypeKeys "<ESCAPE>" + Next MakeInto3Dcounter + + printlog "See if the objects still are Custom Shapes." + '/// See if the objects still are Custom Shapes ///' + '/// We do so by moving the lower part of the the thinking-cloud. ///' + gMouseClick 90, 1 + hTypeKeys "<TAB><TAB><TAB>" + + hTypeKeys "<MOD1 TAB>" ,9 + if gApplication = "IMPRESS" then + hTypeKeys "<RIGHT>" ,86 + hTypeKeys "<UP>", 48 + else + hTypeKeys "<RIGHT>" ,131 + hTypeKeys "<UP>" ,53 + endif + sleep 1 + + gMouseClick 90, 1 + hTypeKeys "<TAB>" + + printlog "Check the name of the selected object (should be 'First')" + '/// Check the name of the selected object (should be 'First') ///' + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + sleep 1 + kontext "NameDlgObject" + if NameField.GetText <> "First" then + warnlog " Wrong object. Should have been the first, but was the " + NameField.GetText + else + Printlog " The first object still had the correct name, good." + endif + NameDlgObject.OK + + printlog "Open the Context-menu and check if the description of the object is right" + '/// Open the Context-menu and check if the description of the object is right ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + if DescriptionTitle.GetText <> "FirstTitle" then + Warnlog " The description-title for the first object were not 'FirstTitle', but: " + DescriptionTitle.GetText + endif + if DescriptionText.GetText <> "FirstText" then + Warnlog " The description-text for the first object were not 'FirstText', but: " + DescriptionText.GetText + endif + DescriptionObject.Ok + + Kontext "ExtrusionObjectBar" + if ExtrusionObjectBar.Exists then + if ExtrusionObjectBar.IsVisible then + printlog " The first object got converted into a 3D-object (Extrusion-Object), correct." + else + warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D." + endif + endif + + gMouseClick 90, 1 + hTypeKeys "<TAB><TAB>" + '/// Check the name of the selected object (should be 'Second') ///' + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog " Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + sleep 1 + kontext "NameDlgObject" + if NameField.GetText <> "Second" then + warnlog " Wrong object. Should have been the second, but was the " + NameField.GetText + else + Printlog " The second object still had the correct name, good." + endif + NameDlgObject.OK + + printlog "Open the Context-menu and check if the description of the object is right" + '/// Open the Context-menu and check if the description of the object is right ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + if DescriptionTitle.GetText <> "SecondTitle" then + Warnlog " The description-title for the second object were not 'SecondTitle', but: " + DescriptionTitle.GetText + else + printlog " The description-title for the second object were correct" + endif + if DescriptionText.GetText <> "SecondText" then + Warnlog " The description-text for the second object were not 'SecondText', but: " + DescriptionText.GetText + else + printlog " The description-text for the second object were correct" + endif + DescriptionObject.Ok + + Kontext "ExtrusionObjectBar" + if ExtrusionObjectBar.Exists then + if ExtrusionObjectBar.IsVisible then + printlog " The first second got converted into 3D-object (Extrusion-Object), correct." + else + warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D." + endif + endif + + gMouseClick 90, 1 + hTypeKeys "<TAB><TAB><TAB>" + '/// Check the name of the selected object (should be "Third") ///' + hOpenContextMenu + sleep 2 + 'Choose rename. + if hMenuFindSelect(27027, true, 15) = false then + Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + + sleep 1 + kontext "NameDlgObject" + if NameField.GetText <> "Third" then + warnlog " Wrong object. Should have been the third, but was the " + NameField.GetText + else + Printlog " The third object still had the correct name, good." + endif + NameDlgObject.OK + + printlog "Open the Context-menu and check if the description of the object is right" + '/// Open the Context-menu and check if the description of the object is right ///" + hOpenContextMenu + sleep (2) + 'Choose "Description" + if hMenuFindSelect(27033, true, 14) = false then + Warnlog "Context-Menu-entry `Description` was not found. Therefore the test ends." + Call hCloseDocument + Goto Endsub + endif + kontext "DescriptionObject" + if DescriptionTitle.GetText <> "ThirdTitle" then + Warnlog " The description-title for object three were not 'ThirdTitle', but: " + DescriptionTitle.GetText + else + printlog " The description-title for the second object were correct." + endif + if DescriptionText.GetText <> "ThirdText" then + Warnlog " The description-text for object three were not 'ThirdText', but: " + DescriptionText.GetText + else + printlog " The description-text for object three were correct." + endif + DescriptionObject.Ok + + Kontext "ExtrusionObjectBar" + if ExtrusionObjectBar.Exists then + if ExtrusionObjectBar.IsVisible then + printlog " The third object got converted into 3D-object (Extrusion-Object), correct." + else + warnlog " No Extrusion-Object-toolbar visible. Eventually a problem making the object into 3D." + endif + endif + + printlog "End of test. Close the document." + Call hCloseDocument '/// Close Document ///' + +endcase 'tCustomshapes +'--------------------------------------------------------- +testcase tFormatPaintbrush + + dim counter, ZaehlerVerlauf, j as Integer + '/// Hatching ///' + dim HatchingDistance as string + dim HatchingAngle as string + dim HatchingLineType as string + dim HatchingLineColor as string + + dim position_value as string + dim show_value as boolean + dim distance_value as string + dim color_value as string + dim transparency_value as string + + dim NoTransparency_value as boolean + dim linearTransparency_value as boolean + dim MFLintransparency_value as string + dim Transparencyverlauf_value as boolean + dim TransparencyType_value as string + dim MFCenterX_value as string + dim MFCenterY_value as string + dim MFAngle_value as string + dim MFRand_value as string + dim MFStart_value as string + dim MFEnd_value as string + + dim colorname_value as string + dim color2_value as string + dim colormodel_value as integer + dim R_value as string + dim G_value as string + dim B_value as string + dim C_value as string + dim M_value as string + dim Y_value as string + dim K_value as string + + dim type_value as string + dim centerx_value as string + dim centery_value as string + dim angle_value as string + dim rand_value as string + dim from_value as string + dim fromvalue_value as string + dim to_value as string + dim tovalue_value as string + dim to_wert_value as string + + dim front_value as string + dim background_value as string + + '/// Create new document ///' + Call hNewDocument + '/// Create a new rectangle ///' + hRechteckErstellen ( 10, 10, 30, 30 ) + FormatArea + '/// Switch to Tabpage "Area" ///' + Kontext + Active.SetPage TabArea + Kontext "TabArea" + sleep 1 + FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///' + '/// Switch to Tabpage "Hatching" ///' + Kontext + Active.setpage TabSchraffuren + Kontext "TabSchraffuren" + + '/// Get the values for the Rectangle ///' + HatchingDistance = Abstand.GetText + HatchingAngle = Winkel.GetText + 'Definition + HatchingLineType = Linientyp.GetSelText + HatchingLineColor = Linienfarbe.GetSelText + + 'TabSchraffuren.OK + sleep 1 + +' FormatArea + '/// Switch to Tabpage "Shaddow" ///' + Kontext + Active.setpage TabSchatten + Kontext "TabSchatten" + + show_value = Anzeigen.isChecked 'Boolean + if Anzeigen.isChecked then + position_value = Position.GetSelText + distance_value = Entfernung.GetSelText + color_value = Farbe.GetSelText + transparency_value = Transparenz.GetSelText + endif + sleep 1 + + '/// Switch to Tabpage "Transparency" ///' + Kontext + Active.SetPage TabTransparenz + Kontext "TabTransparenz" + + NoTransparency_value = KeineTransparenz.isChecked + linearTransparency_value = LineareTransparenz.isChecked + MFLinTransparency_value = MFLinTransparenz.GetText + Transparencyverlauf_value = Transparenzverlauf.isChecked + TransparencyType_value = TransparenzverlaufTyp.GetSelText + MFCenterX_value = MFZentrumX.GetText + MFCenterY_value = MFZentrumY.GetText + MFAngle_value = MFWinkel.GetText + MFRand_value = MFRand.GetText + MFStart_value = MFStartwert.GetText + MFEnd_value = MFEndwert.GetText + + sleep 1 + '/// Switch to Tabpage "Color" ///' + Kontext + Active.setpage TabFarben + Kontext "TabFarben" + + colorname_value = FarbName.GetText + color_value = Farbe.GetSelText + colormodel_value = Farbmodell.GetSelIndex + if colormodel_value = 1 then + R_value = R.GetText + G_value = G.GetText + B_value = B.GetText + else 'farbmodell_value = 2 + C_value = C.GetText + M_value = M.GetText + Y_value = Y.GetText + K_value = K.GetText + endif + sleep 1 + + '/// Switch to Tabpage "Gradient" ///' + Kontext + Active.setpage TabFarbverlaeufe + Kontext "TabFarbverlaeufe" + + type_value = Typ.GetSelText + Centerx_value = ZentrumX.GetText + Centery_value = ZentrumY.GetText + angle_value = Winkel.GetText + rand_value = Rand.GetText + from_value = Von.GetSelText + fromvalue_value = VonWert.GetText + to_value = Bis.GetSelText + tovalue_value = BisWert.GetText + sleep 1 + + '/// Switch to Tabpage "Bitmap" ///' + Kontext + Active.setpage TabBitmap + Kontext "TabBitmap" + + front_value = Vordergrund.GetSelText + background_value = Hintergrund.GetSelText + sleep 1 + '/// Close the FormatArea-dialogue with "OK" ///' + TabBitmap.OK + sleep 2 + + '/// Create a second rectangle, and use the "Paintbrush-icon" to copy the settings for the first rectangle onto the new one ///' + hRechteckErstellen ( 70, 70, 90, 90 ) + if gApplication = "DRAW" then + kontext "Documentdraw" + Documentdraw.Mousedown 20, 20 + Documentdraw.Mouseup 20, 20 + sleep 1 + kontext "Standardbar" + FormatPaintbrush.Click + kontext "Documentdraw" + sleep 1 + Documentdraw.Mousedown 80, 80 + Documentdraw.Mouseup 80, 80 + sleep 1 + else '(Impress) + Kontext "DocumentImpress" + DocumentImpress.Mousedown 20, 20 + DocumentImpress.Mouseup 20, 20 + sleep 1 + kontext "Standardbar" + FormatPaintbrush.Click + kontext "DocumentImpress" + sleep 1 + DocumentImpress.Mousedown 80, 80 + DocumentImpress.Mouseup 80, 80 + sleep 1 + endif + + '/// Check if the Formatting is like the first one. ///' + FormatArea + '/// Switch to Tabpage "Area" ///' + Kontext + Active.SetPage TabArea + Kontext "TabArea" +' if FillOptions.GetSelIndex <> 4 then '/// The selected value should be 'no fill' ///' +' warnlog "The FillOptions-value was not transferred correctly." +' else +' printlog "The FillOptions-value was transferred correctly." +' endif + + sleep 1 '/// control if changes are still there after closing and reopening dialog ///' + FillOptions.Select 4 '/// Select hatching, control after closing and reopening dialog if changes are recognized ///' + '/// Switch to Tabpage "Hatching" ///' + kontext + Active.setpage TabSchraffuren + kontext "TabSchraffuren" + + if HatchingDistance <> Abstand.GetText then + warnlog "Hatching:Distance changed. Should be: " + HatchingDistance + ". Was: " + Abstand.GetText + endif + if HatchingAngle <> Winkel.GetText then + warnlog "Hatching:Angle changed. Should be: " + HatchingAngle + ". Was: " + Winkel.GetText + endif + 'Definition + if HatchingLineType <> Linientyp.GetSelText then + warnlog "Hatching:LineType changed. Should be: " + HatchingLineType + ". Was: " + Linientyp.GetSelText + endif + if HatchingLineColor <> Linienfarbe.GetSelText then + warnlog "Hatching:LineColor changed. Should be: " + HatchingLineColor + ". Was: " + Linienfarbe.GetSelText + endif + sleep 1 + + '/// Switch to Tabpage "Shaddow" ///' + Kontext + Active.setpage TabSchatten + Kontext "TabSchatten" + + if Show_value = true then + if Anzeigen.isChecked <> true then + warnlog "Shaddow:Show had changed! Should have been true, but was " + Anzeigen.isChecked + else + if position_value <> Position.GetSelText then + warnlog "Shaddow:position:value changed. Should be: " + position_value + ". Was: " + Position.GetSelText + endif + if distance_value <> Entfernung.GetSelText then + warnlog "Shaddow:distance:value changed. Should be: " + distance_value + ". Was: " + Entfernung.GetSelText + endif + if color_value <> Farbe.GetSelText then + warnlog "Shaddow:Color:value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText + endif + if transparency_value <> Transparenz.GetSelText then + warnlog "Shaddow:transparency:value changed. Should be: " + transparency_value + ". Was: " + Transparenz.GetSelText + endif + endif + endif + sleep 1 + + '/// Switch to Tabpage "Transparency" ///' + Kontext + Active.SetPage TabTransparenz + Kontext "TabTransparenz" + if NoTransparency_value <> KeineTransparenz.isChecked then + warnlog "Transparency:NoTransparency -value changed. Should be: " + NoTransparency_value + ". Was: " + KeineTransparenz.isChecked + endif + if linearTransparency_value <> LineareTransparenz.isChecked then + warnlog "Transparency:lineareTransparency -value changed. Should be: " + linearTransparency_value + ". Was: " + LineareTransparenz.isChecked + endif + if MFLinTransparency_value <> MFLinTransparenz.GetText then + warnlog "Transparency:MFLinTransparency -value changed. Should be: " + MFLinTransparency_value + ". Was: " + MFLinTransparenz.GetText + endif + if Transparencyverlauf_value <> Transparenzverlauf.isChecked then + warnlog "Transparency:Transparencyverlauf -value changed. Should be: " + Transparencyverlauf_value + ". Was: " + Transparenzverlauf.isChecked + endif + if TransparencyType_value <> TransparenzverlaufTyp.GetSelText then + warnlog "Transparency:TransparencyType -value changed. Should be: " + TransparencyType_value + ". Was: " + TransparenzverlaufTyp.GetSelText + endif + if MFCenterX_value <> MFZentrumX.GetText then + warnlog "Transparency:MFCenterX -value changed. Should be: " + MFCenterX_value + ". Was: " + MFZentrumX.GetText + endif + if MFCenterY_value <> MFZentrumY.GetText then + warnlog "Transparency:MFCenterY -value changed. Should be: " + MFCenterY_value + ". Was: " + MFZentrumY.GetText + endif + if MFAngle_value <> MFWinkel.GetText then + warnlog "Transparency:MFAngle -value changed. Should be: " + MFAngle_value + ". Was: " + MFWinkel.GetText + endif + if MFRand_value <> MFRand.GetText then + warnlog "Transparency:MFRand -value changed. Should be: " + MFRand_value + ". Was: " + MFRand.GetText + endif + if MFStart_value <> MFStartwert.GetText then + warnlog "Transparency:MFStart -value changed. Should be: " + MFStart_value + ". Was: " + MFStartwert.GetText + endif + if MFEnd_value <> MFEndwert.GetText then + warnlog "Transparency:MFEnd -value changed. Should be: " + MFEnd_value + ". Was: " + MFEndwert.GetText + endif + sleep 1 + + '/// Switch to Tabpage "Color" ///' + Kontext + Active.setpage TabFarben + Kontext "TabFarben" + + if colorname_value <> FarbName.GetText then + warnlog "colorname_value changed. Should be: " + colorname_value + ". Was: " + FarbName.GetText + endif + if color_value <> Farbe.GetSelText then + warnlog "color_value changed. Should be: " + color_value + ". Was: " + Farbe.GetSelText + endif + if colormodel_value <> Farbmodell.GetSelIndex then + warnlog "colormodel_value changed. Should be: " + colormodel_value + ". Was: " + Farbmodell.GetSelIndex + endif + if colormodel_value = 1 then + if R_value <> R.GetText then + warnlog "R_value changed. Should be: " + R_value + ". Was: " + R.GetText + endif + if G_value <> G.GetText then + warnlog "G_value changed. Should be: " + G_value + ". Was: " + G.GetText + endif + if B_value <> B.GetText then + warnlog "B_value changed. Should be: " + B_value + ". Was: " + B.GetText + endif + endif + if colormodel_value = 2 then + if C_value <> C.GetText then + warnlog "C_value changed.Should be: " + C_value + ". Was: " + C.GetText + endif + if M_value <> M.GetText then + warnlog "M_value changed. Should be: " + M_value + ". Was: " + M.GetText + endif + if Y_value <> Y.GetText then + warnlog "Y_value changed. Should be: " + Y_value + ". Was: " + Y.GetText + endif + if K_value <> K.GetText then + warnlog "K_value changed. Should be: " + K_value + ". Was: " + K.GetText + endif + endif + sleep 1 + + '/// Switch to Tabpage "Gradient" ///' + Kontext + Active.setpage TabFarbverlaeufe + Kontext "TabFarbverlaeufe" + if type_value <> Typ.GetSelText then + warnlog "type_value changed. Should be: " + type_value + ". Was: " + Typ.GetSelText + endif + if centerx_value <> ZentrumX.GetText then + warnlog "centerx_value changed. Should be: " + centerx_value + ". Was: " + ZentrumX.GetText + endif + if centery_value <> ZentrumY.GetText then + warnlog "centery_value changed. Should be: " + centery_value + ". Was: " + ZentrumY.GetText + endif + if angle_value <> Winkel.GetText then + warnlog "angle_value changed. Should be: " + angle_value + ". Was: " + Winkel.GetText + endif + if rand_value <> Rand.GetText then + warnlog "rand_value changed. Should be: " + rand_value + ". Was: " + Rand.GetText + endif + if from_value <> Von.GetSelText then + warnlog "from_value changed. Should be: " + from_value + ". Was: " + Von.GetSelText + endif + if fromvalue_value <> VonWert.GetText then + warnlog "fromvalue_value changed. Should be: " + fromvalue_value + ". Was: " + VonWert.GetText + endif + if to_value <> Bis.GetSelText then + warnlog "to_value changed. Should be: " + to_value + ". Was: " + Bis.GetSelText + endif + if tovalue_value <> BisWert.GetText then + warnlog "tovalue_value changed. Should be: " + tovalue_value + ". Was: " + BisWert.GetText + endif + sleep 1 + + '/// Switch to Tabpage "Bitmap" ///' + Kontext + Active.setpage TabBitmap + Kontext "TabBitmap" + if front_value <> Vordergrund.GetSelText then + warnlog "vordergrund_value changed. Should be: " + front_value + ". Was: " + Vordergrund.GetSelText + endif + if background_value <> Hintergrund.GetSelText then + warnlog "background_value changed. Should be: " + background_value + ". Was: " + Hintergrund.GetSelText + endif + sleep 1 + TabBitmap.OK + Call hCloseDocument '/// Close Document ///' + +endcase 'tFormatPaintbrush |