go to page "descrizione" -- Va alla pagina correlata
end
item 1 of pos=item 1 of pos+200
item 2 of pos=item 2 of pos-400
a= popupMenu(pos, menuBar "Foto" , "P3") -- mostra il popup menu
dis=null -- Scelta della foto da vedere
conditions -- Gestione della scelta (in a)
when a contains "1" -- se viene scelta la prima foto
dis="Photo23" -- converti nel codice della foto
when a contains "2"
dis="Photo24"
when a contains "3"
dis="Photo6"
end
salta=0
if dis<>null -- se è stata scelta una foto
if isOpen of viewer "vedi" is false -- se il visualizzatore
-- non è caricato
show viewer carica
open viewer "vedi"
close viewer carica
end
in viewer "vedi" -- nel visualizzatore di foto
system liv -- Variabile globale, indicatore di zoom
liv=1 -- Zoom a 1
show paintobject dis -- mostra la foto scelta
sysCursor=17 -- Cambia cursore a tipo zoom
show viewer "vedi" as modal -- mostra la finestra
hide paintobject dis
sysCursor=default
end
end
end
to handle mouseEnter pos -- Al passaggio del mouse sopra il bottone
set fillColor to 190, 62, 100 -- "illumina" il bottone
show angledLine "LP1" -– Mostra effetto 3D
show angledLine "LP2"
item 1 of pos=item 1 of pos-900
item 2 of pos=item 2 of pos-700
end
to handle mouseLeave -- All’uscita del mouse
set fillColor to 200, 62, 100 -- "spegni" il bottone
hide angledLine "LP1" -– Nascondi effetto 3D
hide angledLine "LP2"
end
show viewer "segnali" -- mostra la finestra di descrizione
end
to handle mouseEnter -- All’entrata cambia il cursore a manina
sysCursor=44
end
to handle mouseLeave -- All’uscita reimposta il cursore
sysCursor=1
end
show viewer "drawing" as modal -- Mostra la finestra drawing
end
to handle mouseEnter pos -- All’entrata del mouse
system tempo
sysTimeFormat="seconds"
put sysTime into tempo -- Aggiorna il tempo
item 1 of pos=item 1 of pos-1100
item 2 of pos=item 2 of pos-600
show field "fighelp" at pos -- Mostra l’help
end
to handle mouseLeave -- All’uscita del mouse
sysSuspend=false
hide field "fighelp" -- Nasconde l’help
sysSuspend=true
system tempo
tempo=0 -- Azzera il tempo
end
set text of field dida to "Inspection door"
item 1 of pos=item 1 of pos-2000
item 2 of pos=item 2 of pos-400
show field dida at pos -- Mostra la descrizione
end
to handle mouseLeave -- All’uscita del mouse
sysSuspend=false
hide field dida -- nasconde la descrizione
sysSuspend=true
end
to handle buttonClick -- Al click
go to page tab5
end
set vertices of ellipse eff2 to 9120,5415,9795,6090
show ellipse eff2 -- fa effetto zoom con un elisse
step i from 1 to 15
set vertices of ellipse eff2 to 9120-66.5*i,5415-57.75*i,9795+57.75*i,6090+67.75*i
step j from 1 to 15000
end
end
hide ellipse eff2
show group zoom2 -- Mostra il particolare
end