>* ********************************************************* >* * >* * 07/25/2005 TEST26.SPR 09:34:46 >* * >* ********************************************************* >* * >* * Author's Name >* * >* * Copyright (c) 2005 Company Name >* * Address >* * City, Zip >* * >* * Description: >* * This program was automatically generated by GENSCRN. >* * >* ********************************************************* > > >#REGION 0 >REGIONAL m.currarea, m.talkstat, m.compstat > >IF SET("TALK") = "ON" > SET TALK OFF > m.talkstat = "ON" >ELSE > m.talkstat = "OFF" >ENDIF >m.compstat = SET("COMPATIBLE") >SET COMPATIBLE FOXPLUS > >m.rborder = SET("READBORDER") >SET READBORDER ON > >m.currarea = SELECT() > > >* ********************************************************* >* * >* * Windows Window definitions >* * >* ********************************************************* >* > >IF NOT WEXIST("_1kp0kj6dd") > DEFINE WINDOW _1kp0kj6dd ; > AT 0.000, 0.000 ; > SIZE 22.000,98.400 ; > FONT "MS Sans Serif", 8 ; > FLOAT ; > NOCLOSE ; > MINIMIZE ; > SYSTEM > MOVE WINDOW _1kp0kj6dd CENTER >ENDIF > > >* ********************************************************* >* * >* * TEST26/Windows Setup Code - SECTION 2 >* * >* ********************************************************* >* > >#REGION 1 >m.test=.t. > >* ********************************************************* >* * >* * TEST26/Windows Screen Layout >* * >* ********************************************************* >* > >#REGION 1 >IF WVISIBLE("_1kp0kj6dd") > ACTIVATE WINDOW _1kp0kj6dd SAME >ELSE > ACTIVATE WINDOW _1kp0kj6dd NOSHOW >ENDIF >@ 3.769,12.000 GET m.test ; > PICTURE "@*C Test" ; > SIZE 1.308,8.667 ; > DEFAULT 0 ; > FONT "MS Sans Serif", 8 ; > STYLE "BT" > >IF NOT WVISIBLE("_1kp0kj6dd") > ACTIVATE WINDOW _1kp0kj6dd >ENDIF > >READ CYCLE > >RELEASE WINDOW _1kp0kj6dd >SELECT (m.currarea) > > >#REGION 0 > >SET READBORDER &rborder > >IF m.talkstat = "ON" > SET TALK ON >ENDIF >IF m.compstat = "ON" > SET COMPATIBLE ON >ENDIF >