DBPExpander.dll - Versione stampabile

Codice PHP:
sync on
make object cube 1,1
`creiamo la barra dei menù
Create Menu Bar
`aggiungiamo il primo menù
Add menu name "File"
   `ora le voci
   Add menu item 1,"Nuovo"
   Add menu item 2,"Salva"
   Add menu item 3,"Salva con nome..."
`questo è un altro menù
Add menu name "Modifica"
   Add menu item 4,"Taglia"
   Add menu item 5,"Copia"
   Add menu item 6,"Incolla"
   `creiamo un sottomenù
   open sub menu "Tipo oggetto"
      Add menu item 7,"Cubo"
      Add menu item 8,"Sfera"
   close sub menu
   `la riga precedente indica la fine del sottomenù
Add menu name "Info"
   Add menu item 9,"DBPExpand!!!"

   Add menu separator 10
   delete menu item 10
   Add menu item 11,"by Luca 'Poluka' Drago"

`spuntiamo la voce con id 9
Check menu item 9
`Disabilitiamo la voce con id 4
disable menu item 4
`Usiamo un radio group per scegliere il cubo o la sfera
Set radio group item 7,8,7

stringa$="DBPExpander!!!"
`Creiamo la barra di stato
Create Status Bar "Status Bar"

do

`otteniamo l'id della voce selezionata
item=get selected item()
if item>0
   set status bar text "Id dell'ultima voce selezionata: "+ str$(item)
endif
`scegliamo cosa fare in base all'id
select item
   `gestiamo il radio group
   case 7
      Set radio group item 7,8,7
      delete object 1
      make object cube 1,1
      statustext$="Cubo"
   endcase
   case 8
      Set radio group item 7,8,8
      delete object 1
      make object sphere 1,1
      statustext$="Sfera"
   endcase
   case 9
      `ottengo lo stato della voce
      state=get item state(9)
      if state=2
         uncheck menu item 9
         stringa$=""
      else
         check menu item 9
         stringa$="DBPExpander!!!"
      endif
   endcase
endselect
Text 250,10,stringa$
Sync
loop