magnify 1 -- Zomm a 1
sysLockScreen=true
-- Centra la finestra rispetto lo schermo (dipende dalla foto)
item 1 of my position=(800 - item 1 of my size)/2
item 2 of my position=(600 - item 2 of my size)/2
sysLockScreen=false
end
to handle leaveWindow
sysCursor=default -- Setta il cursore a quello normale
end
to handle enterMenu -- All’accesso dell’utente al menu
system liv -- Variabile globale, fattore di zoom
if liv=1 -- Disabilita o abilita gli Zoom a seconda del fattore
disable menuItem "out" in menu "Zoom"
else
enable menuItem "out" in menu "Zoom"
end
if liv=16 -- Disabilita o abilita gli Zoom a seconda del fattore
disable menuItem "in" in menu "Zoom"
else
enable menuItem "in" in menu "Zoom"
end
end
hide viewer vedi -- Nasconde il visualizzatore
end
to handle in -- Eseguito alla selezione da menu di Zoom IN
system liv -- Variabile globale, fattore di zoom
sysCursor=17 -- Setta cursore a lente d’ingrandimento
if liv<16
liv=liv*2 -- Calcola nuovo fattore di ingrandimento
else
sysCursor=18
end
magnify liv -- Applica fattore di ingrandimento
end
to handle out -- Eseguito alla selezione da menu di Zoom OUT
system liv -- Variabile globale, fattore di zoom
sysCursor=17 -- Setta cursore a lente d’ingrandimento
if liv>1
liv=liv/2 -- Calcola nuovo fattore di ingrandimento
else
sysCursor=18
end
magnify liv -- Applica fattore di ingrandimento
end
to handle buttonClick pos -- Al click (sinistro)
system liv -- Variabile globale, fattore di zoom
sysCursor=17 -- Setta cursore a lente d’ingrandimento
if liv<16
liv=liv*2 -- Calcola nuovo fattore di ingrandimento
else
sysCursor=18
end
magnify liv at pos -- Applica fattore di ingrandimento
end
to handle rightButtonUp pos -- Al click (destro)
system liv -- Variabile globale, fattore di zoom
sysCursor=18 -- Setta cursore a lente d’ingrandimento
if liv>1
liv=liv/2 -- Calcola nuovo fattore di ingrandimento
else
sysCursor=17
end
magnify liv at pos -- Applica fattore di ingrandimento
end