[teksti] menuvalikko kt. esimerkki. [numero] Ensimmäisen valikon kohdan numero. Seuraava on [numero]+1, sitten [numero]+2 jne. [ikkuna] valikko luodaan tähän ikkunaan
[vanha] valikon kohta joka korvataan [tyyli] 0=korvaa, 8=laita check [teksti2] uusi teksti korvattavaan kohtaan kt. esimerkki.
Palautusarvo
Funktio palauttaa numeron.
Selitys
CREATEMENU -funktiolla voidaan aktiiviseen ikkunaan luoda ylävalikko (kt esimerkki).
MODIFYMENU -funktiolla voidaan muuttaa tai lisätä valikon kohtia. Ohessa esimerkkejä: modifymenu(ikku,800,0,850,"&Poista kortti") korvaa kohdan Alkuun tekstillä Poista kortti. modifymenu(ikku,800,0,850,"&Poista kortti"+chr(9)+"Alt+P) korvaa kohdan Alkuun tekstillä Poista kortti, jossa on reunassa viite. Lisäksi numero muuttuu 850. modifymenu(ikku,800,8,850,"&Poista kortti") korvaa kohdan Alkuun tekstillä ✓ Poista kortti. Lisäksi numero muuttuu 850. modifymenu(ikku,800,8+1,850,"&Poista kortti") korvaa kohdan Alkuun tekstillä ✓ Poista kortti. Lisäksi numero muuttuu 850 ja aluksi kohta on harmaalla (ei voi valita). modifymenu(ikku,800,8+1,-850,"&Poista kortti") lisää kohdan Alkuun yläpuolelle ✓ Poista kortti. Aluksi kohta on harmaalla (ei voi valita). modifymenu(ikku,801,2048,0,"") lisää kohdan Loppuun yläpuolelle väliviivan (ei voi valita).
Esimerkki
van=setwindow()
ikku=winnew("testing",0,0,400,200)
setwindow(ikku)
createmenu("Mene;Alkuun;Loppuun|Etsi;Etsi/selaa|Tulosta;&Kaikki",800)
createbutton('|test',355,290,120,80,25,2,1)
DO WHILE .t.
apu=getmessage()
DO CASE
CASE apu=256
DO CASE
CASE nappain=27
EXIT
endcase
CASE apu=273
DO CASE
CASE nappain=800
@ 0,20 say "Valitsit Alkuun"
CASE nappain=355
modifymenu(ikku,800,0,850,"&Poista kortti")
endcase
ENDcase
ENDDO
setwindow(van)
destroywin(ikku)
