Hi friends,
i'm feeling a bit lazy today ;-)
Has someone eventually already written a smart handler to move more than
one hilitedlines (non-/contigous) up and/or down a listfield?
If yes, are you willing to share this cleverness?
Thanks in advance...
in case someone is interested, here is the soltion i found by myself ;-)
This is the script of the "up" button:
on mouseUp
put the selectedtext of fld "filelist" into dertext
put the hilitedlines of fld "filelist" into hl
if hl = empty OR item 1 of hl = 1 then exit mouseup
lock screen
repeat with i = 1 to the num of items of hl
delete line (item i of hl) of fld "filelist"
put line i of dertext & CR before line ((item i of hl) -1) of fld "filelist"
end repeat
repeat with i = 1 to the num of items of hl
put item i of hl -1 into item i of hl
end repeat
set the hilitedlines of fld "filelist" to hl
## restore hilites
end mouseUp
This is the script of the "down" button:
on mouseUp
put the selectedtext of fld "filelist" into dertext
put the hilitedlines of fld "filelist" into hl
if hl = empty then exit mouseup
lock screen
repeat with i = the num of items of hl down to 1 ## !!! ;-)
delete line item i of hl of fld "filelist"
end repeat
put 1 into anfang
repeat for each item l in hl
put line anfang of dertext & CR before line l + 1 of fld "filelist"
add 1 to anfang
end repeat
if char -1 of fld "filelist" = CR then delete char -1 of fld "filelist"
repeat with i = 1 to the num of items of hl
put (item i of hl +1) into item i of hl
end repeat
set the hilitedlines of fld "filelist" to hl
## restore hilites
unlock screen
set the uLinesAndStates of grp "CheckBoxList" to fld "filelist"
knopfaktivierung
end mouseUp
Enhancements are very appreciated :-)
Regards
Klaus Major [EMAIL PROTECTED] www.major-k.de
_______________________________________________ use-revolution mailing list [EMAIL PROTECTED] http://lists.runrev.com/mailman/listinfo/use-revolution
