diff options
Diffstat (limited to 'testautomation/dbaccess/optional/includes/ctrl_General.inc')
-rwxr-xr-x | testautomation/dbaccess/optional/includes/ctrl_General.inc | 1063 |
1 files changed, 1063 insertions, 0 deletions
diff --git a/testautomation/dbaccess/optional/includes/ctrl_General.inc b/testautomation/dbaccess/optional/includes/ctrl_General.inc new file mode 100755 index 000000000000..9e137f4c7a70 --- /dev/null +++ b/testautomation/dbaccess/optional/includes/ctrl_General.inc @@ -0,0 +1,1063 @@ +'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 : marc.neumann@oracle.com +'* +'* short description : Data Source Administrator +'* +'\*********************************************************************** +sub ctrl_General + + call tLoad_Save_Print + call tAutomaticControlFocus1 + call tAutomaticControlFocus2' + call tPosAndSize_Protect_Position + call tPosAndSize_Protect_Size + call tPosAndSize_Keyboard + call tPosAndSize_Dialog + call tPosAndSize_KeepRatio + 'TODO Control the Setting on tabpage Rotation & Slant (should be inactive). + + call tTabStop + call tActivationOrder + call tAddFields + +end sub + +'-------------------------------------------------------------------------------------- + +testcase tLoad_Save_Print + + dim iXMLElementCount as integer + dim i as integer + '/// Load the document TT_All_Controls.odt + hFileOpen ( gTesttoolPath + ConvertPath("dbaccess/optional/input/TT_All_Controls.odt")) + 'TODO: Are all controlls shown right (color, fonts etc.)? + '/// save the doc under a diffrent name. + hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt")) + '/// Reload & compare it with the origin doc. + hCloseDocument + hFileOpen ( gOfficePath + ConvertPath("user/work/TT_All_Controls.odt")) + hCloseDocument + 'TODO: Print the doc & compare it with the origin. + '(Attention: Background can't be printed colored (Task: <A HREF="http://webserver1.stardiv.de/Bugtracker/Source/Body_ReportDetail.asp?ID=57223">57223</A>)). + +endcase +'-------------------------------------------------------------------------------------- +testcase tAutomaticControlFocus1 + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(2) + '/// insert a Text Boxes + printlog "insert three Text Boxes" + call hDrawingWithSelection ( 40, 40, 55, 55 ) + + sleep(2) + + Kontext "FormControls" + ControlProperties.Click + sleep(2) + + fSetControlProperty("Edit","DefaultValue","tt_control") + sleep(1) + '/// activate the Automatic control focus. + printlog "activate the Automatic control focus." + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + AutoControlFocus.Click + + sleep(2) + '/// save the document + printlog "save the document" + hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt")) + sleep(1) + hCloseDocument + sleep(1) + '/// reload the document + printlog "reload the document" + hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test1.odt")) + ' /// check if the control has the focus after reload. + printlog " check if the second control has the focus after reload." + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard <> "tt_control" then + warnlog "The control has not the focus. The document has the focus." + endif + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tAutomaticControlFocus2 + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert three Text Boxes + printlog "insert three Text Boxes" + call hDrawingWithSelection ( 50, 20, 60, 30 ) + sleep(2) + Kontext "FormControls" + ControlProperties.Click + sleep(2) + fSetControlProperty("Edit","DefaultValue","tt_control1") + + call hDrawingWithSelection ( 50, 40, 60, 50 ) + sleep(2) + ' open and close the form property browser to get the focus + Kontext "FormControls" + ControlProperties.Click + sleep(2) + ControlProperties.Click + sleep(2) + + fSetControlProperty("Edit","TabOrder","1") + + ' open and close the property browser + Kontext "FormControls" + ControlProperties.Click + sleep(2) + ControlProperties.Click + sleep(2) + + fSetControlProperty("Edit","DefaultValue","tt_control2") + + sleep(1) + + call hDrawingWithSelection ( 50, 60, 60, 70 ) + sleep(2) + ' open and close the form property browser to get the focus + Kontext "FormControls" + ControlProperties.Click + sleep(2) + ControlProperties.Click + sleep(2) + fSetControlProperty("Edit","DefaultValue","tt_control3") + + '/// activate the Automatic control focus. + printlog "activate the Automatic control focus." + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + AutoControlFocus.Click + + sleep(2) + '/// save the document + printlog "save the document" + hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt")) + hCloseDocument + sleep(1) + '/// reload the document + printlog "reload the document" + hFileOpen ( gOfficePath + ConvertPath("user/work/TT_Control_Test2.odt")) + ' /// check if the second control has the focus after reload. + printlog " check if the second control has the focus after reload." + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard <> "tt_control2" then + warnlog "The wrong control has the focus." + endif + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tPosAndSize_Keyboard + + dim sPosX as String + dim sPosY as String + dim sWidth as String + dim sHeight as String + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + + sleep(1) + call hToolbarSelect("FormControls",true) + Kontext "FormControls" + Edit.Click + + '/// insert a Text Box + printlog "insert a Text Box" + Kontext "DocumentWriter" + DocumentWriter.MouseDown ( 45, 45 ) + DocumentWriter.MouseMove ( 55, 55 ) + DocumentWriter.MouseUp ( 55, 55 ) + sleep(2) + '/// open the position and size dialog. + printlog "open the position and size dialog." + + call fOpenPositionAndSizeDialog + + '/// remember the settings. + printlog "remember the settings." + Kontext "TabPositionAndSizeWriter" + sPosX = HorizontalBy.getText() + sPosY = Verticalby.getText() + sWidth = Width.getText() + sHeight = Height.getText() + TabPositionAndSizeWriter.OK + sleep(2) + + Kontext "DocumentWriter" + gMouseClick(50,50) + sleep(2) + + '/// move the control via keyboard + printlog "move the control via keyboard" + + DocumentWriter.TypeKeys "<DOWN>" , true + DocumentWriter.TypeKeys "<RIGHT>" , true + DocumentWriter.TypeKeys "<MOD1 TAB>" , true + DocumentWriter.TypeKeys "<DOWN>" , true + DocumentWriter.TypeKeys "<RIGHT>" , true + + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + '/// check the settings. + printlog "check the settings." + if sPosX = HorizontalBy.getText() then + warnlog "The X position has not change." + endif + if sPosY = VerticalBy.getText() then + warnlog "The Y position has not change." + endif + if sWidth = Width.getText() then + warnlog "The width position has not change." + endif + if sHeight = Height.getText() then + warnlog "The height position has not change." + endif + + TabPositionAndSizeWriter.OK + sleep(1) + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tPosAndSize_Dialog + + dim sPosX as String + dim sPosY as String + dim sWidth as String + dim sHeight as String + dim sText as String + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert a Text Box + printlog "insert a Text Box" + call hDrawingWithSelection ( 40, 40, 60, 60 ) + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + '/// set values for X , Y , width and height + printlog "set values for X , Y , width and height" + Kontext "TabPositionAndSizeWriter" + ' uncheck KeepRatio because maybe it have set from a test before. + KeepRatio.UnCheck + HorizontalBy.setText("3") + VerticalBy.setText("3") + Width.setText("3") + Height.setText("3") + sleep(1) + TabPositionAndSizeWriter.OK + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + '/// check the settings. + printlog "check the settings." + sText = HorizontalBy.getText() + if Instr(sText,"3") = 0 then + warnlog "The X position has not changed." + endif + sText = VerticalBy.getText() + if Instr(sText,"3") = 0 then + warnlog "The Y position has not changed." + endif + sText = Width.getText() + if Instr(sText,"3") = 0 then + warnlog "The width has not changed." + endif + sText = Height.getText() + if Instr(sText,"3") = 0 then + warnlog "The height has not changed." + endif + + TabPositionAndSizeWriter.OK + sleep(1) + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tPosAndSize_Protect_Position + + dim sPosX as String + dim sPosY as String + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert a Text Box + printlog "insert a Text Box" + call hDrawingWithSelection ( 40, 40, 60, 60 ) + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + sPosX = HorizontalBy.getText() + sPosY = VerticalBy.getText() + '/// check protect position + printlog "check protect position" + ProtectPosition.Check + TabPositionAndSizeWriter.OK + sleep(2) + + Kontext "DocumentWriter" + gMouseClick(50,50) + sleep(2) + 'Kontext "DocumentWriter" + '/// test if is possible to move the control via keyboard + printlog "test if is possible to move the control via keyboard" + DocumentWriter.TypeKeys "<DOWN>" , true + DocumentWriter.TypeKeys "<RIGHT>" , true + + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + '/// check the settings, if the position is changed. + printlog "check the settings, if the position is changed." + if sPosX <> HorizontalBy.getText() then + warnlog "The X position has change although the protect position is checked." + endif + if sPosY <> VerticalBy.getText() then + warnlog "The Y position has change although the protect position is checked." + endif + TabPositionAndSizeWriter.OK + sleep(1) + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tPosAndSize_KeepRatio + + dim sWidth as String + dim sHeight as String + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert a Text Box + printlog "insert a Text Box" + call hDrawingWithSelection ( 40, 40, 60, 60 ) + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + sleep(1) + '/// set a width and height. + printlog "set a width and height." + Kontext "TabPositionAndSizeWriter" + KeepRatio.UnCheck + Width.setText("4") + sleep(1) + Height.setText("2") + sleep(1) + '/// check keep ratio + printlog "check keep ratio" + KeepRatio.Check + sleep(1) + Width.setText("6") + sleep(1) + '/// check if keep ratio is working + printlog "check if keep ratio is working" + if Instr(Height.getText(),"3") = -1 then + warnlog "The height doesn't keep the ratio" + endif + TabPositionAndSizeWriter.OK + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + '/// check the settings. + printlog "check the settings." + if Instr(Width.getText(),"6") = -1 then + warnlog "The width isn't correct. " + Width.getText()+" instead of 6." + endif + if Instr(Height.getText(),"3") = -1 then + warnlog "The height isn't correct. " + height.getText()+" instead of 3." + endif + + TabPositionAndSizeWriter.OK + sleep(1) + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tPosAndSize_Protect_Size + + dim sWidth as String + dim sHeight as String + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert a Text Box + printlog "insert a Text Box" + call hDrawingWithSelection ( 40, 40, 60, 60 ) + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + sWidth = Width.getText() + sHeight = Height.getText() + '/// check protect size + printlog "check protect size" + ProtectSize.Check + TabPositionAndSizeWriter.OK + sleep(2) + + Kontext "DocumentWriter" + gMouseClick(50,50) + sleep(2) + 'Kontext "DocumentWriter" + '/// test is is possible to change the size of the control via keyboard + printlog "test is is possible to change the size of the control via keyboard" + DocumentWriter.TypeKeys "<MOD1 TAB>" , true + DocumentWriter.TypeKeys "<DOWN>" , true + DocumentWriter.TypeKeys "<RIGHT>" , true + sleep(2) + '/// open the position and size dialog + printlog "open the position and size dialog" + + call fOpenPositionAndSizeDialog + + Kontext "TabPositionAndSizeWriter" + '/// check the settings + printlog "check the settings" + if sWidth <> Width.getText() then + warnlog "The width has change although the protect size is checked." + endif + if sHeight <> Height.getText() then + warnlog "The height has change although the protect size is checked." + endif + TabPositionAndSizeWriter.OK + sleep(1) + + hCloseDocument + +endcase +'------------------------------------------------------------------------- +testcase tTabStop + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert one Text Box + printlog "insert one Text Box" + call hDrawingWithSelection ( 50, 20, 60, 30 ) + sleep(2) + + '/// open the control propery browser + printlog "open the control propery browser" + call fOpenControlPropertyBrowser + + '/// the the default text to tt_control1 + printlog "the the default text to tt_control1" + call fSetControlProperty("TextBox","DefaultValue","tt_control1") + + ' close the property browser + Kontext "FormControls" + ControlProperties.Click + + sleep(1) + + '/// insert again one Text Box + printlog "insert again one Text Box" + call hDrawingWithSelection ( 50, 40, 60, 50 ) + + sleep(2) + + '/// open the property browser + printlog "open the property browser" + call fOpenControlPropertyBrowser + + '/// set the Order property to 2 + printlog "set the Order property to 2" + call fSetControlProperty("TextBox","Order","2") + + 'close and reopen the control property browser to get the default focus + call fOpenControlPropertyBrowser + + '/// set the DefaultValue property to tt_control2 + call fSetControlProperty("TextBox","DefaultValue","tt_control2") + + 'close the control propery browser + Kontext "FormControls" + ControlProperties.Click + + '/// insert again one Text Box + printlog "insert again one Text Box" + call hDrawingWithSelection ( 50, 60, 60, 70 ) + + sleep(2) + + ' open and close the form property browser to get the focus + call fOpenControlPropertyBrowser + + '/// set the Order property to 1 + printlog "set the Order property to 1" + call fSetControlProperty("TextBox","Order","1") + + 'close and reopen the control property browser to get the default focus + call fOpenControlPropertyBrowser + + '/// set the DeaultValue property to tt_control3 + printlog "set the DeaultValue property to tt_control3" + call fSetControlProperty("TextBox","DefaultValue","tt_control3") + + call hToolbarSelect("FormDesignTools",true) + Kontext "FormDesignTools" + '/// activate the AutomaticControlFocus + printlog "activate the AutomaticControlFocus" + AutoControlFocus.Click + sleep(1) + '/// turn of the design view + printlog "turn of the design view" + Kontext "FormControls" + SwitchControlDesignMode.Click + printlog "after designview click" + sleep(4) + '/// check if the right control has the focus + printlog "check if the right control has the focus" + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control3" then + warnlog "The wrong control has the focus." + endif + '/// check that tyou travel to the right controls via TAB + printlog "check that tyou travel to the right controls via TAB" + DocumentWriter.TypeKeys "<TAB>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard <> "tt_control2" then + warnlog "The wrong control has the focus." + endif + + hCloseDocument + +endcase +'-------------------------------------------------------------------------------------- +testcase tActivationOrder + + Dim sSelText as string + + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + + '/// insert one Text Box + printlog "insert one Text Box" + call hDrawingWithSelection ( 50, 20, 60, 30 ) + sleep(2) + + '/// open the control property browser + printlog "open the control property browser" + call fOpenControlPropertyBrowser + + '/// set the Name Property to tt_control1 + printlog "set the Name Property to tt_control1" + call fSetControlProperty("TextBox","NameText","tt_control1") + + 'close and reopen the control property browser to get the default focus + call fOpenControlPropertyBrowser + + '/// set the DefaultValue Property to tt_control1 + printlog "set the DefaultValue Property to tt_control1" + call fSetControlProperty("TextBox","DefaultValue","tt_control1") + + sleep(1) + + ' close the property browser + Kontext "FormControls" + ControlProperties.Click + + '/// insert one Text Box + printlog "insert one Text Box" + call hDrawingWithSelection ( 50, 40, 60, 50 ) + sleep(2) + + '/// open the control property browser + printlog "open the control property browser" + call fOpenControlPropertyBrowser + + '/// set the Name Property to tt_control2 + printlog "set the Name Property to tt_control2" + call fSetControlProperty("TextBox","NameText","tt_control2") + + 'close and reopen the control property browser to get the default focus + call fOpenControlPropertyBrowser + + '/// set the DefaultValue Property to tt_control2 + call fSetControlProperty("TextBox","DefaultValue","tt_control2") + + ' close the property browser + Kontext "FormControls" + ControlProperties.Click + + '/// insert one Text Box + printlog "insert one Text Box" + call hDrawingWithSelection ( 50, 60, 60, 70 ) + sleep(2) + + '/// open the control property browser + printlog "open the control property browser" + call fOpenControlPropertyBrowser + + '/// set the Name Property to tt_control3 + call fSetControlProperty("TextBox","NameText","tt_control3") + + 'close and reopen the control property browser to get the default focus + call fOpenControlPropertyBrowser + + '/// set the Defaultvalue property to tt_control3 + call fSetControlProperty("TextBox","DefaultValue","tt_control3") + + '/// open the tab order dialog + printlog "open the tab order dialog" + call fOpenTabOrder + + ' IndexKLiener + printlog "IndexKLiener" + Kontext "ActivationOrder" + sleep(1) + ControlList.TypeKeys "<END>" , true ' to select the first entry + sleep(1) + ControlList.TypeKeys "<HOME>" , true + sleep(1) + sSelText = ControlList.getSelText() + if sSelText <> "tt_control1" then + warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")" + endif + sleep(1) + ControlList.TypeKeys "<DOWN>" , true + sleep(1) + sSelText = ControlList.getSelText() + if sSelText <> "tt_control2" then + warnlog "Wrong control on second position in activation order dialog.(" + sSelText + ")" + endif + sleep(1) + ControlList.TypeKeys "<DOWN>" , true + sleep(1) + sSelText = ControlList.getSelText() + if sSelText <> "tt_control3" then + warnlog "Wrong control on third position in activation order dialog.(" + sSelText + ")" + endif + sleep(1) + MoveUp.Click + sleep(1) + ControlList.TypeKeys "<HOME>" , true + sleep(1) + ControlList.TypeKeys "<DOWN>" , true + sSelText = ControlList.getSelText() + if sSelText <> "tt_control3" then + warnlog "The move up button in activation order dialog doesn't work.(" + sSelText + ")" + endif + + + ActivationOrder.OK + sleep(1) + printlog "open TabOrder dialog" + call fOpenTabOrder + + Kontext "ActivationOrder" + sleep(1) + ControlList.TypeKeys "<END>" , true ' to select the first entry + sleep(1) + ControlList.TypeKeys "<HOME>" , true + sleep(1) + sSelText = ControlList.getSelText() + if sSelText <> "tt_control1" then + warnlog "Wrong control on first position in activation order dialog.(" + sSelText + ")" + endif + sleep(1) + MoveDown.Click + sleep(1) + ControlList.TypeKeys "<HOME>" , true + sleep(1) + ControlList.TypeKeys "<DOWN>" , true + sSelText = ControlList.getSelText() + if sSelText <> "tt_control1" then + warnlog "The move down button in activation order dialog doesn't work.(" + sSelText + ")" + endif + + ActivationOrder.OK + + sleep(1) + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + + '/// activate the AutomaticControlFocus + printlog "activate the AutomaticControlFocus" + AutoControlFocus.Click + sleep(1) + '/// turn of the design view + printlog "turn of the design view" + Kontext "FormControls" + SwitchControlDesignMode.Click + printlog "after designview click" + sleep(4) + + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control3" then + warnlog "The wrong control has the focus. (" + GetClipboard + ")" + endif + DocumentWriter.TypeKeys "<TAB>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control1" then + warnlog "The wrong control has the focus. (" + GetClipboard + ")" + endif + + DocumentWriter.TypeKeys "<TAB>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control2" then + warnlog "The wrong control has the focus. (" + GetClipboard + ")" + endif + + + printlog "turn of the design view" + Kontext "FormControls" + SwitchControlDesignMode.Click + printlog "after designview click" + sleep(4) + + printlog "open TabOrder dialog" + call fOpenTabOrder + + Kontext "ActivationOrder" + AutoOrder.Click + sleep(1) + ActivationOrder.OK + sleep(1) + + Kontext "FormControls" + '/// turn off the design view + printlog "turn of the design view" + SwitchControlDesignMode.Click + sleep(2) + + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "<MOD1 HOME>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 SHIFT END>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control1" then + warnlog "The wrong control has the focus.(" + GetClipboard + ")" + endif + DocumentWriter.TypeKeys "<TAB>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control2" then + warnlog "The wrong control has the focus.(" + GetClipboard + ")" + endif + + DocumentWriter.TypeKeys "<TAB>" , true + sleep(1) + DocumentWriter.TypeKeys "<MOD1 C>" , true + sleep(1) + if GetClipboard = "tt_doc" then + warnlog "The control has not the focus. The document has the focus." + elseif GetClipboard <> "tt_control3" then + warnlog "The wrong control has the focus.(" + GetClipboard + ")" + endif + + sleep(1) + + call hCloseDocument + +endcase +'------------------------------------------------------------------------- +testcase tAddFields + + Dim sControlName1 as String + Dim sControlName2 as String + '/// Open a new document, + printlog "Open a new document," + call hNewDocument + Kontext "DocumentWriter" + DocumentWriter.TypeKeys "tt_doc" , true + sleep(1) + + call hToolbarSelect("FormControls",true) + + Kontext "FormControls" + Edit.Click + sleep(1) + '/// insert three Text Boxes + printlog "insert three Text Boxes" + call hDrawingWithSelection ( 50, 20, 60, 30 ) + sleep(2) + Kontext "FormControls" + FormProperties.Click + sleep(1) + + Kontext "FormPropertiesDialog" + FormPropertiesTabControl.SetPage TabDataForm + + Kontext "TabDataForm" + sleep(1) + DataSource.Select "Bibliography" + TabDataForm.typeKeys("<RETURN>") + sleep(1) + Content.Select "biblio" + TabDataForm.typeKeys("<RETURN>") + sleep(1) + + Kontext "FormControls" + FormProperties.Click + sleep(1) + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + AddField.Click + sleep(1) + + Kontext "FeldAuswahl" + Liste.Select 1 + sControlName1 = Liste.getSelText + Liste.TypeKeys "<RETURN>" + sleep(3) + + Kontext "FormDesignTools" + ShowFmExplorer.Click + sleep(1) + + Kontext "FormularNavigator" + Liste.TypeKeys "<HOME>" , true + Liste.TypeKeys "<DOWN>" , 4, true + sControlName2 = Liste.getSelText + if sControlName1 <> sControlName2 then + warnlog "The control name is not the same as the fieldname. controlname = " + sControlName2 + " fieldname = " + sControlName1 + endif + + sleep (2) + + call hCloseDocument + +endcase + +function fOpenPositionAndSizeDialog + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + PositionAndSizeDialog.Click + + fOpenPositionAndSizeDialog=true + +end function +'------------------------------------------------------------------------- +function fOpenTabOrder + + printlog "open FormControls Toolbar" + + call hToolbarSelect("FormDesignTools",true) + + Kontext "FormDesignTools" + TabDialog.Click + + fOpenTabOrder=true + +end function + +'------------------------------------------------------------------------- + + |