LiveCode Forums.

Code: Select all

local sSourceLineNo
local sNewLineNo


on dragEnter --sent to destination control
if the locktext of me is false then
   set the dragAction to "copy"
else
   set the dragAction to "none"
   end if
pass dragEnter  -- this causes the cursor to be displayed

end dragEnter



on dragMove --sent to destination control
   
   set the hilitedlines of me to (word 2 of the mouseline)

end dragMove

On dragdrop --sent to destination control
   if the locktext of me is false then
      put the mouseline into tDroppedLine
      put tDroppedLine
      If the mouseline is empty then
         put  the dragData["text"] & cr before line 1 of me
         put 1 into sNewLineNo
      else
         put cr & the dragData["text"] after the mouseline
         put (word 2 of the mouseline) into sNewLineNo
      end if
   end if
end dragdrop


On DragStart  --sent to source control
   if the locktext of me is false then
      put (word 2 of the mouseline)  into sSourceLineNo
      put line sSourceLineNo of me into tLine
      set the dragData["text"] to tLine
   end if
end DragStart

On DragEnd --sent to source control
   -- clean up the source list
   set the dragAction to "move"
   If the dragDestination is the dragsource then
      If   sNewLineNo <= sSourceLineNo then
         add one to sSourceLineNo
         delete line sSourceLineNo of me
      end if
      if sNewLineNo > sSourceLineNo   then
         delete line sSourceLineNo of me
      end if
   else 
      -- dropped in a different control
      delete line sSourceLineNo of me
   end if
      
   
   --pass DragEnd
end DragEnd

Code: Select all

global gDestStack

on dragMove x,y
    --Only allow the control to be dropped on the specific field "tDestination"
    put the long name of the target into gDestStack
    if gDestStack is not empty and "tDestination" is in gDestStack then
      set the dragAction to "copy"
   else
      put empty into gDestStack
      set the dragAction to "none"
   end if
   pass dragMove
end dragMove

Code: Select all

-- Field script
on mouseDown
  put the num of lines of me into tmax # Store drag constraint
  put word 2 of the clickLine into tcl
  if not the listBehavior of me then set the textcolor of line tcl of me to
"red" # Cosmetic
  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 (me, the mouseLoc) is true then
        lock screen
        if tcl<tmax then # Constrain drag to max lines
          put cr & line tcl of me after line (tcl + 1) of me
          delete line tcl of me
          add 1 to tcl
          if not the listBehavior of me then set the textcolor of line tcl
of me to "red" # Cosmetic
          add th to tstarty
        end if
        if the listBehavior of me then set the hilitedLine of me to tcl #
Update hilitedline
        unlock screen
      end if
    else if tstarty - item 2 of the mouseLoc > (th/2) then
      if within (me, 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
        if tcl<1 then put 1 into tcl # Constrain drag to min lines
        if not the listBehavior of me then set the textcolor of line tcl of
me to "red" # Cosmetic
        subtract th from tstarty
         if the listBehavior of me then set the hilitedLine of me to tcl #
Update hilitedline
        unlock screen
      end if
    end if
  end repeat
  if not the listBehavior of me then set the textcolor of line tcl of me to
empty # Cosmetic
end mouseDown