Drag List Items Up and Down

[Devin Asay]

Excellent, Andy! Thanks for sharing this.

The only minor, cosmetic change I made was on the next to last line:

    set the textColor of line tcl of me to empty

My hilite color was set to a dark blue, and the black on dark blue was hard to read. Setting it back to empty means that it will go to a contrasting white when highlighted.

Devin


On Feb 2, 2017, at 11:48 AM, AndyP via use-livecode <use-livecode at lists.runrev.com<mailto:use-livecode at lists.runrev.com>> wrote:

Modified script
added

/if within (field "myField", the mouseLoc) is true then /

on mouseDown

  put word 2 of the clickLine into tcl
  set the textcolor of line tcl of me to "red"
  if line tcl of me is empty then
     exit mousedown
  end if
  put item 2 of the mouseLoc into tstarty
  put the effective textHeight of me into th
  repeat while the mouse is down
     if item 2 of the mouseLoc - tstarty > (th/2) then
        if within (field "myField", the mouseLoc) is true then
           lock screen
           put cr & line tcl of me after line tcl + 1 of me
           delete line tcl of me
           add 1 to tcl
           set the textcolor of line tcl of me to "red"
           add th to tstarty
           unlock screen
        end if
     else if tstarty - item 2 of the mouseLoc > (th/2) then
        if within (field "myField", the mouseLoc) is true then
           lock screen
           put line tcl of me & cr before line tcl - 1 of me
           delete line tcl + 1 of me
           subtract 1 from tcl
           set the textcolor of line tcl of me to "red"
           subtract th from tstarty
           unlock screen
        end if
     end if
        end repeat
  set the textcolor of line tcl of me to "black"
  set the hilitedLine of me to tcl

end mouseDown



-----
Andy Piddock


My software never has bugs. It just develops random features.

TinyIDE a Free alternative minimalist IDE Plugin for LiveCode
TinyIDE


Script editor Themer for LC http://2108.co.uk

PointandSee is a FREE simple but full featured under cursor colour picker / finder.
http://www.pointandsee.co.uk  - made with LiveCode
--
View this message in context: http://runtime-revolution.278305.n4.nabble.com/Drag-List-Items-Up-and-Down-tp4712158p4712166.html
Sent from the Revolution - User mailing list archive at Nabble.com<http://Nabble.com>.

_______________________________________________
use-livecode mailing list
use-livecode at lists.runrev.com<mailto:use-livecode at lists.runrev.com>
Please visit this url to subscribe, unsubscribe and manage your subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode

Devin Asay
Director
Office of Digital Humanities
Brigham Young University