Director MX: errore sul testo

Di: vs1 | 26/09/2020 17:09:44
Ciao a tutti,
avrei il seguente problema:
Io ho un text member, scrollabile e ho creati questa funzione, ma qundo vado sulla barra di scorrimento, mi da errore:
on mouseWithin(me)
CurrentLine = sprite(me.spritenum).pointToLine(the mouseloc)
if CurrentLine > 0 and sprite(me.spritenum).member.line[CurrentLine].color <> color( 27, 163, 167 ) then
repeat with a = 1 to sprite(me.spritenum).member.line.count
ColoreBase = getat(oldcolor,a)
sprite(me.spritenum).member.line[a].color = ColoreBase
end repeat
sprite(me.spritenum).member.line[CurrentLine].color = rgb (255,0,0)
end if
Qualcuno mi può spiegare, con l'if Currentline > 0 dovrebbe funzionare, invece non ne vuole sapere...

Risposte



Il codice non è scritto per intero e quindi dovresti postarlo del tutto (oltre alla struttura del tuo movie) per capire l'origine degli errori che restituisce...
ciauz

Di: paolibo | 26/09/2020 17:09:44


Questo è tutto lo script behavior:
property oldcolor
on beginsprite (me)
oldcolor = []
repeat with a = 1 to member("listaCartelle").line.count
oldcolor.add (member("listaCartelle").line[a].color)
end repeat
return oldcolor
end
on mouseWithin(me)
CurrentLine = sprite(me.spritenum).pointToLine(the mouseloc)
if CurrentLine > 0 and sprite(me.spritenum).member.line[CurrentLine].color <> color( 27, 163, 167 ) then
repeat with a = 1 to sprite(me.spritenum).member.line.count
ColoreBase = getat(oldcolor,a)
member("listaCartelle").line[a].color = ColoreBase
end repeat
member("listaCartelle").line[CurrentLine].color = rgb (255,0,0)
end if
end mouseWithin
on mouseleave(me)
repeat with a = 1 to sprite(me.spritenum).member.line.count
ColoreBase = getat(oldcolor,a)
member("listaCartelle").line[a].color = ColoreBase
end repeat
end mouseleave
on mousedown me
end
on mouseup me
CurrentLine = sprite(me.spritenum).pointToLine(the mouseloc)
member("listaCartelle").color = rgb (77,77,77)
member("listaCartelle").fontsize = 11
Nomeriga = member ("listaCartelle").line[CurrentLine]
put " " into Nomeriga.char[5]
ListaCartellePrincipali = baFolderList(the moviepath&"NMX-951\\")
ContoListaCartellePrincipali = (ListaCartellePrincipali).count
ListaCartelleSecondarie = baFolderList( the moviepath&"NMX-951\\"&Nomeriga)
ContoListaCartelleSecondarie = (ListaCartelleSecondarie).count
Miaposizione = ListaCartellePrincipali.getpos (Nomeriga)
put "" into member ("listaCartelle")
repeat with b = 1 to ContoListaCartellePrincipali
put getat(ListaCartellePrincipali,b) into member ("listaCartelle").line[b]
end repeat
Lista = []
repeat with a = 1 to ContoListaCartellePrincipali
Lista.addat (getat(ListaCartellePrincipali,a))
end repeat
repeat with c = 1 to ContoListaCartelleSecondarie
Lista.addat (Miaposizione + 1,getat(ListaCartelleSecondarie,c))
Miaposizione = Miaposizione + 1
end repeat
TotaleRighe = Lista.count
repeat with d = 1 to TotaleRighe
put getat(Lista,d) into member ("listaCartelle").line[d]
end repeat
NuovaLista = []
repeat with c = 1 to member("listaCartelle").line.count
NuovaLista.add (member("listaCartelle").line[c])
end repeat
repeat with d = 1 to ContoListaCartellePrincipali
ColoreRiga = NuovaLista.getpos (getat(ListaCartellePrincipali,d))
member("listaCartelle").line[ColoreRiga].color = rgb (27,163,167)
member("listaCartelle").line[ColoreRiga].fontsize = 14
end repeat
repeat with e = 1 to TotaleRighe
put tab into member ("listaCartelle").line[e].char[5]
end repeat
if sprite(me.spritenum).pointToLine(the mouseloc) <> "" then
repeat with m = 1 to ContoListaCartellePrincipali
OK = baopenfile(the moviepath&"NMX-951\\"&getat(ListaCartellePrincipali,m)&"\"&Nomeriga, "Maximise")
end repeat
end if
if ListaCartelleSecondarie = [] then
OK = baopenfile(the moviepath&"NMX-951\\"&Nomeriga, "Maximise")
end if
oldcolor = []
repeat with a = 1 to sprite(me.spritenum).member.line.count
oldcolor.add (sprite(me.spritenum).member.line[a].color)
end repeat
end mouseup

Di: vs1 | 26/09/2020 17:10:44