Pregunta sobre lingo

Hola bedelludrica tengo una duda que hace tiempo estoy dándole vueltas y sería como hacer lo siguiente en Lingo:
Tenemos el típico buscador de ciudades donde tú debes insertar en un campo de texto las iniciales de la ciudad que quieres, en un campo de texto aparecerían todas las ciudades con esas iniciales y luego habría un botón go to para ir a la marca donde estaría dicha ciudad.
Muchas gracias y haber si me hechas un cable.
1

1 Respuesta

252.550 pts.
He hecho un proyecto como ese:
Te pongo aquí los behaviours:
Esto se lo debes vincular al texto:
property p_miembro,p_miembro2,p_mapa,p_posicion,p_vector,p_sh,p_sv
global g_lista,p_nombre
on getPropertyDescriptionList me
lista = [:]
addProp lista,#p_miembro2, [#default:"", #format:#text, #comment:\
"elige el texto de escritura de datos"]
addProp lista,#p_posicion, [#default:"", #format:#text, #comment:\
"elige el texto donde estan las coordenadas de posicion del mapa"]
addProp lista,#p_mapa, [#default:4, #format:#integer, #comment:\
"indica el sprite del mapa"]
addProp lista,#p_vector, [#default:3, #format:#integer, #comment:\
"indica el sprite del miembro de debajo del mapa"]
return lista
end
on beginsprite me
p_miembro=sprite(me.spritenum).member.name
p_nombre=sprite(p_mapa).member.name
ps=sprite(p_vector)
p_sh=ps.left+ps.width/2
p_sv=ps.top+ps.height/2
end
on mouseWithin me
c=(the mouseloc).locv
l=sprite(me.spritenum).locv
r=c-l
b=locvtolinepos(sprite(me.spritenum).member,r)
hilite member(p_miembro).line
--updatestage
end
on mouseDown me
c=(the clickloc).locv
l=sprite(me.spritenum).locv
r=c-l
b=locvtolinepos(sprite(me.spritenum).member,r)
member(p_miembro2).text=""
if member(p_miembro).text<>"" then
posicion=getat(g_lista,b)
-- sprite(me.spritenum).visible=0
p=member(p_posicion).text.line[posicion]
member(p_nombre).regpoint =point(integer(p.item[1]),integer(p.item[2]))
-- sendSprite(3,#cambio)
sprite(p_mapa).loch=p_sh
sprite(p_mapa).locv=p_sv
updatestage
sendSprite(3,#cambio)
-- else
-- -- sprite(me.spritenum).visible=0
end if
sprite(me.spritenum).visible=0
end
Esto es para el texto desde donde escribes:
property l,p_sprite,p_s2
property p_miembr, p_miembro
global g_lista
on getPropertyDescriptionList me
lista = [:]
addProp lista,#p_miembr, [#default:"", #format:#text, #comment:\
"elige el texto de lectura de datos"]
addProp lista,#p_miembro, [#default:1, #format:#integer, #comment:\
"elige el sprite de campo para ver los datos"]
return lista
end
on beginsprite me
p_sprite= sprite(me.spritenum)
p_s2=sprite(p_miembro).member.name
end
on exitframe me
l=p_sprite.member.text
end
on prepareframe me
d(me)
end
on d me
if p_sprite.member.text<>l then
if p_sprite.member.char.count >0 then
sprite(p_miembro).visible=1
lista=[]
g_lista=[]
repeat with i=1 to member(p_miembr).line.count
if member(p_miembr).text.line contains p_sprite.member.text then
add lista,member(p_miembr).text.line
add g_lista,i
end if
end repeat
member(p_s2).text=""
repeat with i=1 to lista.count
member(p_s2).line=getat(lista,i)
end repeat
else if p_sprite.member.char.count =0 then
member(p_s2).text=""
sprite(p_miembro).visible=0
end if
end if
end
Lo primero agradecerte la velocidad de tu respuesta es impresiooooonante y lo segundo
he colocado los scripts como me dijiste pero me da error.
Te importaría mandármelo en un fichero.dir
De todas formas muchas Gracias bedelludrica
Dame tu e-mail
Hola Bedelludrica y Feliz Año
Mi dirección de correo es:
[email protected]
------------
Un saludo
Ya está

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas