s=selectedTextlines of field "lista" -- Trova la riga scelta
if s<>null -- Se c’è una scelta
conditions -- Converte la scelta in un nome di fotografia
when s=1
dis="Photo2"
when s=2
dis="Photo26"
when s=3
dis="Photo12"
when s=4
dis="Photo18"
when s=5
dis="Photo16"
when s=6
dis="Photo1"
when s=7
dis="Photo17"
when s=8
dis="Photo8"
when s=9
dis="Photo19"
when s=10
dis="Photo9"
when s=11
dis="Photo21"
when s=12
dis="Photo20"
when s=13
dis="Photo24"
when s=14
dis="Photo3"
when s=15
dis="Photo4"
when s=16
dis="Photo6"
when s=17
dis="Photo23"
when s=18
dis="Photo10"
when s=19
dis="Photo13"
when s=20
dis="Photo15"
when s=21
dis="Photo22"
when s=22
dis="Photo11"
when s=23
dis="Photo14"
when s=24
dis="Photo5"
when s=25
dis="Photo7"
when s=26
dis="Photo25"
end
if dis<>null -- Se c’è un nome di fotografia
open viewer "vedi" -- Caricalo
close viewer carica
end
in viewer "vedi" -- Nel visualizzatore
system liv -- Variabile globale, fattore di zoom
liv=1
show paintobject dis -- Mostra la foto
sysCursor=17
show viewer "vedi" as modal
hide paintobject dis
sysCursor=default
show viewer "photo" as modal
end
end
end
end
close this window -- Chiude la finestra
end
to handle mouseEnter -- All’entrata del mouse
set fillColor to 0, 90, 0 -- "illumina" il bottone
show angledLine "LE1" -- aggiungi effetto 3D
show angledLine "LE2"
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 0, 75, 0 -- "spegni" il bottone
hide angledLine "LE1" -- Togli effetto 3D
hide angledLine "LE2"
end