use "PhantomTarget.dec";
PhantomTarget._Menus._Cascade.Item_1.Select();
# test for cascading menus
use "PhantomTarget.dec"; # include the PhantomTarget dec file
System("C:\Program Files\Phantom\PhantomTarget.exe"); # start the PhantomTarget app
SetDelay(200);
PhantomTarget._Menus.C_hecked.Select(); # top level - unchecks
Sleep(2.0);
PhantomTarget._Menus._Cascade.Item_1.Select(); # second level
Sleep(2.0);
PhantomTarget._Menus._Cascade._Cascade.Item_1.Select(); # third level
Sleep(2.0);
PhantomTarget.MouseClick(0,125,-10,0); # click Menus
PhantomTarget.MouseClick(0,150, 40,0); # click Cascade
PhantomTarget.MouseMove( 250, 40 ); # move to Item1
PhantomTarget.MouseClick(0,250, 75,0); # click Cascade
PhantomTarget.MouseMove( 325, 75 ); # move to Item1
#PhantomTarget.Close(); # close app
# Uses Accelerator Keys to select the menu
PhantomTarget.SetActive();
PhantomTarget.TypeKeys("<ALT-M>cc1"); # Selects Menu->Cascade->Cascade->Item1
# Uses the keyboard arrow keys to select the menu after using ALT+space to activate the menus
PhantomTarget.SetActive();
PhantomTarget.TypeKeys("<ALT-SPACE><LEFT><LEFT><LEFT><DOWN><DOWN><RIGHT><DOWN><DOWN><RIGHT><ENTER>"); # Selects Menu->Cascade->Cascade->Item1
PhantomTarget.SetActive();
PhantomTarget.TypeKeys("<ALT-M>");
PhantomTarget.TypeKeys("c");
PhantomTarget.TypeKeys("c");
PhantomTarget.TypeKeys("1");
Users browsing this forum: No registered users and 5 guests