READ

READ

Selitys

GET ja sen lisäksi olevalla READ-käskyillä luodaan kuvaruutuun kuvaruutulomake. GET-käskyllä määritellään lomakkeen täytettävät kohdat ja viimeisen GET-käskyn jälkeen tuleva READ-käsky käynnistää lomakkeen. Kun READ käy siirrytään kentästä toiseen nuolinäppäimillä tai Enter -näppäimellä. Esc, PgDn tai PgUp saattavat lopettaa READ'n myös. READ ohjelma on muokattavissa ja se on WREAD.PRG

Esimerkki

van=setwindow()
ikku=winnew("Testi",0,0,400,300)
setwindow(ikku)
fo1=choosefont("Arial,8",,1,1)
apu1="kokeilu"
apu2="Toinen"
num1=55.2
num2=100
@ 1,3 get apu1
@ 2,3 get num1
@ 3,5 get num2 picture "999.99"
@ 4,5 get apu2 width 150
@ 6,5 get apu2 font fo1
@ 200,225 get apu2 style 1
read
setwindow(van)
deleteobject(fo1)
destroywin(ikku)


 get

Sama tulos käyttämällä XGET() funktiota:


van=setwindow()
ikku=winnew("Testi",0,0,400,300)
setwindow(ikku)
fo1=choosefont("Arial,8",,1,1)
apu1="kokeilu"
apu2="Toinen"
num1=55.2
num2=100
xget(1,3,apu1)
xget(2,3,num1)
xget(3,5,num2,"999.99")
xget(4,5,apu2,"",0,0,24,150)
xget(6,5,apu2,"",0,fo1)
xget(200,225,apu2,"",1)
read
setwindow(van)
deleteobject(fo1)
destroywin(ikku)

Katso myös GET, GETMESSAGE(), WINNEW EDIT