on preOpenStack
set the style of this stack to "modeless"
set the loc of this stack to the screenloc
set the uCurLoc of this stack to the loc of this stack
end preOpenStack
---------------------------------------
on openStack
if not MinVersion(2.9) then --
answer warning "Some features in this stack need Rev 2.9 or later." & cr & "Rev Error dialog may show up." as sheet
end if
end openStack
---------------------------------------
on moveStack
set the uCurLoc of this stack to the loc of this stack
end moveStack
---------------------------------------
on resizeStack
revUpdateGeometry
repeat with i = 1 to the number of btns in grp "Boundaries"
set the uLoc of btn i of grp "Boundaries" to the loc of btn i of grp "Boundaries"
end repeat
repeat with i = 1 to the number of flds
if the uDontResize of fld i then next repeat
set the vScrollBar of fld i to the formattedHeight of fld i > the height of fld i
end repeat
set the uCurLoc of this stack to the loc of this stack
end resizeStack
---------------------------------------
on linkClicked pLink
if pLink = "Here" then revGoUrl "http://www.mail-archive.com/use-revolution@lists.runrev.com/msg18480.html"
else if pLink = "docs" then FindInDictionary "dragdata" -- C
else if pLink = "Basics" then set the menuHistory of btn "Tabs" to 2
else FindInDictionary pLink -- C
end linkClicked
---------------------------------------
on ShowAnotherStack
local tLeft
-----
if item 3 of the screenRect - the right of this stack < the width of stack "AnotherStack" + 16 then
put the left of this stack into tLeft
if the width of this stack <> 800 then
set the width of this stack to 800
set the left of this stack to tLeft
end if
move this stack to 410,item 2 of the loc of this stack in 200 milliseconds
end if
go stack "AnotherStack"
set the defaultStack to the mainStack of this stack
end ShowAnotherStack
---------------------------------------
on FindInDictionary pLink
local tLink,tFlag,tLineNo
-----
set the cursor to watch
put word 1 of pLink into tLink
put "revDocs" is in the windows into tFlag
-----
if not tFlag then go invisible to cd 4 of stack "revDocs" as modeless
else
lock screen
go to cd 4 of stack "revDocs" as modeless
end if
-----
set the cursor to watch
go to cd 4 of stack "revDocs"
set the defaultStack to "revDocs"
if pLink <> fld "SearchText" then
put word 1 of pLink into fld "SearchText"
send "updateFilter" to fld "SearchText"
end if
put lineOffset(cr & word 1 of pLink,cr & fld "Data") into tLineNo
if not matchChunk(the hilitedText of fld "Data",word 1 of pLink & "*") then
set the hilitedLine of fld "Data" to tLineNo
send "entryChunk" && "entryDisplay",quote & "line" && tLineNo && "of fld 10" & quote to grp "Dataview"
end if
put tLink into fld "SearchText" -- due to an unknown bug in revDocs
-----
show stack "revDocs"
unlock screen
end FindInDictionary
---------------------------------------
on DisplayMessage pParams,pFld
local tKeys,tKey,tKeysList
-----
if fld pFld = "Messages:" then put empty into fld pFld
if "dragDrop" is in pParams then
put the keys of the dragdata into tKeys
repeat for each line tKey in tKeys
if the dragData[tKey] = empty then
put tab & tKey & ": empty" & cr after tKeysList
else put tab & tKey & ": not empty" & cr after tKeysList
end repeat
delete last char of tKeysList
put tKeysList & cr & pParams & cr before fld pFld
else put pParams & cr before fld pFld
set the vScrollbar of fld pFld to the formattedHeight of fld pFld > the height of fld pFld
end DisplayMessage
---------------------------------------
function MinVersion pVersion
return (char 1 to 3 of the version >= pVersion)
end MinVersion
@ D G I 2 3 4 5 c k l T Tabs } 5on menuPick pNewItem, pOldItem local tLeft ----- lock screen show grp pNewItem hide grp pOldItem put empty into img "Drop" put empty into img "Drop2" unlock screen unlock screen switch pNewItem case "Between two Rev windows" set the uCurLoc of this stack to the loc of this stack ShowAnotherStack -- C break case "Towards Rev" case "From Rev" put "Messages:" into fld "DDMessage" put "Messages:" into fld "DDMessage2" set the vScrollbar of fld "DDMessage" to false set the vScrollbar of fld "DDMessage2" to false default close stack "AnotherStack" if the uCurLoc of this stack is a point and the loc of this stack <> the uCurLoc of this stack then move this stack to the uCurLoc of this stack in 200 milliseconds end if end switch end menuPick R > HBasics Into one Rev window Between two Rev windows From Rev Towards Rev cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -55Master,expectedRect 20,7,780,345Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -20 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum Ai7 aj\$cy1 breakPoints handlerList menuPickscriptSelection char 568 to 567 bookmarks revUniqueID 1206185056912 prevHandler menuPick tempScript scripton menuPick pNewItem, pOldItem
local tLeft
-----
lock screen
show grp pNewItem
hide grp pOldItem
put empty into img "Drop"
put empty into img "Drop2"
unlock screen
unlock screen
switch pNewItem
case "Between two Rev windows"
set the uCurLoc of this stack to the loc of this stack
ShowAnotherStack -- C
break
case "Towards Rev"
case "From Rev"
put "Messages:" into fld "DDMessage"
put "Messages:" into fld "DDMessage2"
set the vScrollbar of fld "DDMessage" to false
set the vScrollbar of fld "DDMessage2" to false
default
close stack "AnotherStack"
if the uCurLoc of this stack is a point and the loc of this stack <> the uCurLoc of this stack then
move this stack to the uCurLoc of this stack in 200 milliseconds
end if
end switch
end menuPick
SSS.png Hon mouseDown revGoUrl "http://www.sosmartsoftware.com" end mouseDown Pf " -PNG IHDR " . pHYs .# .#x?v 9iCCPPhotoshop ICC profile xڝwTTϽwz0z.0. Qf Ml@DEHb!(`HPb0dFJ|yyǽgs{. $O ./ 'z8WGб x 0Y驾A@$/7z HeOOҬT _lN:K"N3"$F/JPrb[䥟}Qd [Sl1x{#bG\NoX3I[ql2 $ 8xtr p/8 pCfq.Knjm͠{r28?.)ɩL^6 g,qm"[Z[Z~Q7%" 3R `̊j[~ : w! $E}kyhyRm333 : }=#vʉe tqX)I)B>== <8Xȉ9on mouseDown
revGoUrl "http://www.sosmartsoftware.com"
end mouseDown
Toplevel hE xon mouseUp if the hilite of me then topLevel this stack else set the style of this stack to "modeless" end mouseUp i R 1Check this box to access all objects and scripts cREVGeometry Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottomMaster,movehDistance false Master,scaleBottomscaleBottom trueMaster trueMaster,moveVObjectRef card Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute falseMaster,moveVAbsolute trueMaster,scaleBottom false Master,moveV trueMaster,expectedRect 18,301,100,324Master,scalebottomDistance -0.04Master,movevDistance -28Master,scalerightDistance Master,cardRanking 1Master,scaleleftDistance Master,scaletopDistance cREVGeneral bookmarks revUniqueID 1206185341531 handlerList mouseUp prevHandler mouseUp tempScript scriptSelection char 11 to 10script Paypal c Kon mouseUp revGoUrl UrlDecode(the uPaypalURL of this stack) end mouseUp f > CClick here to support development by making a donation with Paypal ^ D Donate... cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -60Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 699,362,781,385Master,scalebottomDistance Master,movevDistance -27Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,moveHAbsolute trueMaster,scaleleftDistance Master,scaletopDistance Master,moveH true cREVGeneral bookmarks revUniqueID 1206185406820 handlerList mouseUpscriptSelection char 47 to 46 prevHandler mouseUp tempScript script Basics i $ "' cREVGeneral revUniqueID 1206190911082 Label Field )` ( & cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -75Master,expectedRect 40,38,760,190Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -40Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral bookmarks revUniqueID 1206185693641 handlerList prevHandler tempScript script #How-To Stack #024 by Eric Chatonet @ " 04/01/08: Initial release. @ .04/02/08: Modified Bonus sub-section example. @ - '04/02/08: Modified DragEnter comments. @ & b04/13/08: Added in the 'From Rev' section an example about how to modify dragged text on-the-fly. @ a 04/14/08: Added a method to create on-the-fly a drag image with transparency of a control. see Using Rev 2.9 sub-section of Into one Rev Window section. @ _ @ _ @ l @ | @ WThis stack shows you how to manage Drag and Drop. Some features need Rev 2.9 or later. @ E @ E @ L vIf you run a prior version, you have been already warned: Rev Error dialog may show up but it's not a real problem... @ u !All scripts are fully commented. @ Enjoy! @ @ Note: 1. When checked, the TopLevel check box at the bottom left of this window allows you to access all objects and scripts easily. a =2. This window can be enlarged to read comments more easily. < @ " How is organized this tutorial? @ 1600 @ 1. Basics 2. Into one Rev window 2.1 Using the grab command ! 2.2 Using the mouseDown message 2.3 Using Rev 2.9 new features 5 2.4 Bonus: dragging and droping between list fields 3. Between two Rev windows 4. From Rev 5. Towards Rev @ Brief history @ 1600 @ @ Drag and Drop was invented by Apple (system 7) in the very beginning of the nineties and, at this time, allowed mainly to drag and drop a file icon on an application or a printer one to open the file or print it. @ @ Later this very visual way of doing has been generalized to exchange data between applications or within an application, in the same window or not to perform many different actions like reorganizing for instance. @ Data that may be dragged and dropped are very numerous: a chunk of text, an image, a file, a whole folder or even any custom representation of any kind of data. @ : @ : @ G @ L @ Q @ U @ Y @ c @ i 7 @ zUsing Drag and Drop is of great advantage because actually it performs a sophisticated action using a very simple method. @ y Drag and Drop basics @ 1600 lWith Rev prior to 2.9 Drag and Drop could be handled using the following function, messages and properties: V \. DragSource function Returns the long ID of the object that dragged data was dragged from. glossary/Writing_Tr/22.xml glossary/Objects_an/438.xml 1 7 $ [. DragStart message Sent to a control when the user clicked on it and then started to drag F % the mouse pointer (changed in 2.9) ]. DragEnter message Sent when the mouse pointer moves into an object during a drag and drop. glossary/User_Inter/296.xml " / glossary/Objects_an/438.xml > D glossary/User_Inter/32.xml N [ _. DragLeave message Sent when the mouse pointer moves out of an object during a drag and drop. glossary/User_Inter/296.xml " / glossary/Objects_an/438.xml @ F glossary/User_Inter/32.xml P ] [. DragDrop message Sent to the object where data was dropped when a drag and drop finishes glossary/Objects_an/438.xml % glossary/User_Inter/32.xml D Q M. DragMove message Sent when the user moves the mouse during a drag and drop , glossary/User_Inter/32.xml ? \. DragEnd message Sent to the object a drag and drop started from, when the data is dropped glossary/Objects_an/438.xml $ glossary/User_Inter/32.xml ' 4 ' P. DragData property Specifies what data is being dragged during a drag and drop ; (changed in 2.9) ^. DragDestination property Returns the long ID of the object that dragged data was dropped on glossary/Writing_Tr/22.xml " glossary/Objects_an/438.xml 6 < ! XTo perform custom Drag and Drop (dragging any control) Rev provides a specific command: 8 E. Grab command Causes an object to follow the movements of the mouse glossary/Objects_an/438.xml % pIn addition, Rev provides two commands and two properties that can be used to simulate Drag and Drop by script: o 0. Drag command Simulates a mouse click and drag Y. DragSpeed property Use the dragSpeed property to control the speed of the drag command glossary/Values_and/68.xml ' / dictionary/command/2093.xml L P glossary/Writing_Tr/522.xml Q <. Move command Moves an object from one location to another glossary/Objects_an/438.xml [. MoveSpeed property Use the moveSpeed property to change the speed of animation performed glossary/Values_and/68.xml ' / + with the move command dictionary/command/1133.xml glossary/Writing_Tr/522.xml New properties have been added in Rev 2.9 that make Drag and Drop easier to handle and compliant with usual guidelines on any platform: ) 4 A F `. DragAction property Specifies what action will be performed upon an object when it is dragged I c. DragDelta property Specifies the distance the pointer must be moved to initialise drag behaviour M Z. DragImage property Reports the id of an image that should be used to represent the drag D operation ]. DragImageOffset property Specifies the placement of the drag image when dragging an object A l. AllowableDragActions property Reports a list of actions that the source application will act upon for the K current drag-drop operation OClick on a link to open Rev dictionary (may not work with old versions of Rev) N @ ` ' @ Flche2.png PNG IHDR Kpl_ pHYs gAMA |Q cHRM z% u0 ` : o_F IDATxb?,Xv$ϯ.?~~e'P#@ 11 @ ?~23_k_?V@p /÷>|()%ţ,%-F2\@ *n w JU牓/_ o_ū(II` b`AM]Nk5 _ ,? d +@ 021~K?@fӬ ~W XXY};w<||| ߿}Kw^W @ koǑ74;Gڷo_߿uLL7qe` &Fqϟ_sPuFFf bA8`(10r =zk~ Tx NP `=l|, IENDB` cREVGeneral revUniqueID 1206267906858 Limits K \ ( cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -76Master,expectedRect 348,40,768,324Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -32 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral revUniqueID 1206289700005 D PaypalDonate TYon mouseUp put "https://www.paypal.com/xclick/business=payments%40tactilemedia.com&item_name=Support+for+Revolution+List+Reordering+Code&no_shipping=1&return=http%3a//www.tactilemedia.com/payments/paid.html&no_note=1&tax=0&handling=0&shipping=0¤cy_code=USD" into tURL if "Mac" is in platform() then put "open location" && quote & tURL & quote into s do s as AppleScript else set the hideConsoleWindows to true if ("NT" is in systemVersion()) or (word 2 of systemVersion() > 4.89) then put quote & tURL & quote into tURL set the shellCommand to "cmd.exe" put quote & quote into T get shell("start" && T && tURL) else # LAUNCH ON OLD WINDOWS put the tempName into tPath set itemDel to "/" put "tactile.htm" into last item of tPath put createHTML(tURL) into url ("file:" & tPath) replace "/" with "\" in tPath get shell("start" && quote & tPath & quote) end if end if end mouseUp function createHTML tURL put \ "" & return &\ "" & return &\ "" & return &\ "on linkClicked pLink
revGoUrl pLink
end linkClicked
Real Drag and Drop WCaution: This section needs Rev 2.9 or later or you'll get errors with prior versions. , * if grab or mouseDown allow to implement drag and drop in a single Rev window, real Drag and Drop involves to exchange many kinds of data between windows and applications (including the desktop). @ 1600 @ 1600 I Into one Rev window aThis is a handler that has been put higher in the hierarchy to be triggered in all cases --------------------------------- on dragMove pX,pY if "button" is in the dragSource then set the threeD of img "Drop4" to not (pX,pY is within the rect of img "Drop4") -- highlights or not the drop area according to the mouse position -- pX and pY parameters are sent by the engine end if end dragMove < cREVGeneral scriptChecksum (^"6QT revUniqueID 1206441551383 bookmarks handlerList dragMove tempScript prevHandler dragMovescriptSelection char 389 to 388script EThis is a handler that has been put higher in the hierarchy to be triggered in all cases
---------------------------------
on dragMove pX,pY
if "button" is in the dragSource then
set the threeD of img "Drop4" to not (pX,pY is within the rect of img "Drop4")
-- highlights or not the drop area according to the mouse position
-- pX and pY parameters are sent by the engine
end if
end dragMove
Grab i $ 4 cREVGeneral bookmarks revUniqueID 1206288329016 handlerList prevHandler tempScript script + Show Script Ep @on mouseUp edit the script of grp "GrabWebPages" end mouseUp $ d } cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -102Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -97Master,scalebottomDistance Master,expectedRect 648,303,748,326Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum 3p>p-vRMr bookmarks revUniqueID 1206353911525 handlerList mouseUpscriptSelection char 63 to 62 prevHandler mouseUp tempScript scripton mouseUp
edit the script of grp "GrabWebPages"
end mouseUp
) Label Field ssssss ~ x 8 cREVTable currentview +Drag and drop here a web page from the left cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 634,220,762,256Master,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral revUniqueID 1206352682893 Drag and drop here a web page from the left ' Drop p 9on mouseUp set the text of me to empty end mouseUp z z ` cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 634,122,762,218Master,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum 8Љ} KS bookmarks revUniqueID 1206352303859 handlerList mouseUpscriptSelection char 53 to 52 prevHandler mouseUp tempScript scripton mouseUp
set the text of me to empty
end mouseUp
Info2 )` ( A- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -75Master,expectedRect 40,39,341,325Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1206288308878 bookmarks handlerList tempScript prevHandler linkClickedscriptSelection char 1 to 0script *Dragging and dropping into one Rev window ) fUse the option menu above to display other methods and; especially, new ones allowed in 2.9 or later. e When having to make a custom Drag and Drop process in the same window, using the Grab command is an easy way to achieve the goal with a few lines of code. @ 1600 3 5 G O b :-- script local variable set at mouseEnter and used at mouseUp
-------------------------
on mouseDown
grab the target -- this line makes the job
end mouseDown
-------------------------
on mouseUp
local tRightPlaceFlag
-----
put the mouseLoc is within the rect of img "Drop" into tRightPlaceFlag
if tRightPlaceFlag then
set text of img "Drop" to the text of image ID (the icon of the target)
-- displays chosen thumbnail by reference to the ID of the image set as the target's icon
-- this way of doing allows to display the same image as many times as needed from a single stored image
end if
-----
set the threeD of the target to true
-- unhighlights the thumbnail
if not tRightPlaceFlag then beep
set the loc of the target to lSourceLoc
-- put back the thumbnail
end mouseUp
-------------------------
on mouseEnter
put the loc of the target into lSourceLoc
-- stores the thumbnail position
end mouseEnter
-------------------------
on dragStart
set the threeD of the target to false -- highlights the thumbnail
end dragStart
-------------------------
T Button jB ' 8 B 2 2 cREVGeneral revUniqueID 1206447635537 U Button jB ' r B 2 3 cREVGeneral revUniqueID 1206447866066 V Button jB ' B 2 4 cREVGeneral revUniqueID 1206447882829 W Button jB ' B 2 5 cREVGeneral revUniqueID 1206447898640 , MouseDown a $ #& cREVGeneral revUniqueID 1206370167031 bookmarks handlerList tempScript prevHandler script = i l @ cREVGeometry Master,expectedRect 644,223,752,286Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1206378065028 < Label Field d cREVTable currentview Move Speed cREVGeneral revUniqueID 1206377962895 Move Speed 9 MoveSpeed a d $ y@(@( 1 400 cREVGeometry Master,expectedRect 648,246,748,282Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -0.1275Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 0Master,scaleleftDistance Master,moveHAbsolute falseMaster,scaletopDistance Master,moveH false cREVGeneral revUniqueID 1206377662485 - Show Script Ep >on mouseUp edit the script of grp "Boundaries" end mouseUp $ d { cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -102Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 648,303,748,326Master,scalebottomDistance Master,movevDistance -97Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum .v>qqbE revUniqueID 1206370178682 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 48 to 47scripton mouseUp
edit the script of grp "Boundaries"
end mouseUp
/ Label Field ssssss ~ x 8 cREVTable currentview +Drag and drop here a web page from the left cREVGeometry Master,expectedRect 634,220,762,256Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1206370178684 Drag and drop here a web page from the left 0 Drop2 p 7on mouseUp set the text of me to empty end mouseUp z z ` cREVGeometry Master,expectedRect 634,122,762,218Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum *set the text of me to empty
end mouseUp
1 Info3 )` ( A- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 40,39,341,325Master,scalebottomDistance -75Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1206370178686 bookmarks handlerList tempScript prevHandler linkClickedscriptSelection char 1 to 0script *Dragging and dropping into one Rev window ) < If grab is easy to use, it does not provide all features you might want because you don't know in real time where is the grabbed object and, above all, because many messages regarding to Drag and Drop are not actually sent by the engine in this configuration: dragMove, dragEnter, dragLeave, dragEnd and dragDrop. @ 1600 $ & - 2 : VSo another way, needing a bit more scripting, might appear better by using mouseDown. K K T AAs the previous, this method is compatible with any Rev version. @ In this second example: W Thumbnails moves are mastered within boundaries that are those of their owner group. @ 1600 T Thumbnails are put back into their original location using the move command when the Drag and Drop is not done in the right location and move duration depends on the slider value (set in milliseconds). @ 1600 ? A E X Thumbnails layers are reordered to ensure that the chosen thumbnail is always on top. @ 1600 ! 6 + The cursor changes to reassure the user. @ 1600 ~Compared to the grab version, you can see that Rev allows multiple methods and there is always a way to enhance a process :-) } Vocabulary needed: OClick on a link to open Rev dictionary (may not work with old versions of Rev) N mouseDown message @ 1600 target function @ 1600 move command @ 1600 location property @ 1600 2 top, bottom, left, right and topLeft properties @ 1600 & mouseH and mouseV properties @ 1600 cursor property @ 1600 , layer and relayerGroupedControls property @ 1600 " P ` D B 3 Boundaries i0 on mouseDown local tRelMousePos,tDragEnterFlag ----- put the left of the target - the mouseH,the top of the target - the mouseV into tRelMousePos -- stores mouse position relative to the target MoveThumbToFront -- see below set the threeD of the target to false -- highlights thumbnail ----- repeat while the mouse is down if the top of the target <= the top of the owner of the target then set the loc of the target to item 1 of the loc of the target,item 2 of the loc of the target + 1 set the screenMouseLoc to globalLoc(the mouseH & comma & (the mouseV + 1)) -- moves the target by one pixel to put it back within the boundaries -- setting the screenMouseLoc is necessary to avoid recursion effects else if the bottom of the target >= the bottom of the owner of the target then set the loc of the target to item 1 of the loc of the target,item 2 of the loc of the target - 1 set the screenMouseLoc to globalLoc(the mouseH & comma & (the mouseV - 1)) else if the left of the target <= the left of the owner of the target then set the loc of the target to item 1 of the loc of the target + 1,item 2 of the loc of the target set the screenMouseLoc to globalLoc((the mouseH + 1) & comma & the mouseV) else if the right of the target >= the right of the owner of the target then set the loc of the target to item 1 of the loc of the target - 1,item 2 of the loc of the target set the screenMouseLoc to globalLoc((the mouseH - 1) & comma & the mouseV) else set the topleft of the target to (the mouseH + item 1 of tRelMousePos),(the mouseV + item 2 of tRelMousePos) -- moves the target: kind of scripted grab command end if ----- set the blendLevel of the target to 25 put (the mouseLoc is within the rect of img "Drop2") into tDragEnterFlag -- tDragEnterFlag will be true or false set the threeD of img "Drop2" to not tDragEnterFlag -- highlights drop area if needed if tDragEnterFlag then set the cursor to 1131 else set the cursor to arrow -- changes cursor end repeat ----- now the mouse is up if the mouseLoc is within the rect of img "Drop2" then set text of img "Drop2" to the text of image ID (the icon of the target) -- displays chosen thumbnail by reference to the ID of the image set as the target's icon -- this way of doing allows to display the same image as many times as needed from a single stored image set the loc of the target to the uLoc of the target -- location is here stored in a custom property in the thumbnail itself else move the target to the uLoc of the target in (the thumbPos of sb "MoveSpeed") milliseconds without waiting -- put the target back at its source location using the move command -- location is here stored in a custom property in the thumbnail itself beep end if ----- reset: set the blendLevel of the target to 0 set the threeD of img "Drop2" to true set the threeD of the target to true end mouseDown ------------------------- on MoveThumbToFront -- sets the layer of the selected thumbnail on-the-fly local tRightLayer ----- put the layer of the owner of the target + the number of btns in the owner of the target into tRightLayer -- the layer of group's last button = the frontmost one set the relayerGroupedControls to true -- compulsory to change the layer of an object belonging to a group set the layer of the target to tRightLayer set the relayerGroupedControls to false end MoveThumbToFront d ' cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance false Master,scaleRightscaleBottom trueMaster trueMaster,scaleleftObjectRef 1206288308878 Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,scaleleftObjectSide rightMaster,movevDistance falseMaster,scalebottomDistance -76Master,expectedRect 348,34,774,334Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -25Master,scaleleftAbsolute true Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,scaleleft trueMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance 15 cREVGeneral scriptChecksum V{yQ1MW]yNQ breakPoints handlerList mouseDown MoveThumbToFrontscriptSelection char 3560 to 3559 bookmarks revUniqueID 1206370178687 prevHandler mouseEnter tempScript script .Uon mouseDown
local tRelMousePos,tDragEnterFlag
-----
put the left of the target - the mouseH,the top of the target - the mouseV into tRelMousePos
-- stores mouse position relative to the target
MoveThumbToFront -- see below
set the threeD of the target to false -- highlights thumbnail
-----
repeat while the mouse is down
if the top of the target <= the top of the owner of the target then
set the loc of the target to item 1 of the loc of the target,item 2 of the loc of the target + 1
set the screenMouseLoc to globalLoc(the mouseH & comma & (the mouseV + 1))
-- moves the target by one pixel to put it back within the boundaries
-- setting the screenMouseLoc is necessary to avoid recursion effects
else if the bottom of the target >= the bottom of the owner of the target then
set the loc of the target to item 1 of the loc of the target,item 2 of the loc of the target - 1
set the screenMouseLoc to globalLoc(the mouseH & comma & (the mouseV - 1))
else if the left of the target <= the left of the owner of the target then
set the loc of the target to item 1 of the loc of the target + 1,item 2 of the loc of the target
set the screenMouseLoc to globalLoc((the mouseH + 1) & comma & the mouseV)
else if the right of the target >= the right of the owner of the target then
set the loc of the target to item 1 of the loc of the target - 1,item 2 of the loc of the target
set the screenMouseLoc to globalLoc((the mouseH - 1) & comma & the mouseV)
else
set the topleft of the target to (the mouseH + item 1 of tRelMousePos),(the mouseV + item 2 of tRelMousePos)
-- moves the target: kind of scripted grab command
end if
-----
set the blendLevel of the target to 25
put (the mouseLoc is within the rect of img "Drop2") into tDragEnterFlag
-- tDragEnterFlag will be true or false
set the threeD of img "Drop2" to not tDragEnterFlag -- highlights drop area if needed
if tDragEnterFlag then set the cursor to 1131
else set the cursor to arrow
-- changes cursor
end repeat
----- now the mouse is up
if the mouseLoc is within the rect of img "Drop2" then
set text of img "Drop2" to the text of image ID (the icon of the target)
-- displays chosen thumbnail by reference to the ID of the image set as the target's icon
-- this way of doing allows to display the same image as many times as needed from a single stored image
set the loc of the target to the uLoc of the target
-- location is here stored in a custom property in the thumbnail itself
else
move the target to the uLoc of the target in (the thumbPos of sb "MoveSpeed") milliseconds without waiting
-- put the target back at its source location using the move command
-- location is here stored in a custom property in the thumbnail itself
beep
end if
----- reset:
set the blendLevel of the target to 0
set the threeD of img "Drop2" to true
set the threeD of the target to true
end mouseDown
-------------------------
on MoveThumbToFront -- sets the layer of the selected thumbnail on-the-fly
local tRightLayer
-----
put the layer of the owner of the target + the number of btns in the owner of the target into tRightLayer
-- the layer of group's last button = the frontmost one
set the relayerGroupedControls to true
-- compulsory to change the layer of an object belonging to a group
set the layer of the target to tRightLayer
set the relayerGroupedControls to false
end MoveThumbToFront
` Button jB ' red B 2 uLoc 432,255 5 cREVGeneral revUniqueID 1206448678984 ] Button jB ' red r B 2 uLoc 432,139 3 cREVGeneral revUniqueID 1206448379654 ^ Button jB ' red B 2 uLoc 432,197 4 cREVGeneral revUniqueID 1206448379655 bookmarks handlerList mouseUp tempScript prevHandler script f Button jB ' red 8 B 2 uLoc 432,81 2 cREVGeneral revUniqueID 1206456435319 O Bonus a $ ; cREVGeneral revUniqueID 1206442310072 P Info4 )pMon linkClicked pLink switch pLink case "Get In Line" revGoUrl "http://www.tactilemedia.com/download/" break case "DragDropList" revGoUrl "http://www.geocities.com/janschenkel/" break case "Dragging with ListFields" revGoUrl "http://www.sanke.org/MetaMedia/SamplesTools.htm" end switch end linkClicked ( A- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 40,39,341,325Master,scalebottomDistance -75Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum & JH6W>l\ revUniqueID 1206442057900 bookmarks handlerList linkClicked tempScript prevHandler linkClickedscriptSelection char 36 to 35scripton linkClicked pLink
switch pLink
case "Get In Line"
revGoUrl "http://www.tactilemedia.com/download/"
break
case "DragDropList"
revGoUrl "http://www.geocities.com/janschenkel/"
break
case "Dragging with ListFields"
revGoUrl "http://www.sanke.org/MetaMedia/SamplesTools.htm"
end switch
end linkClicked
*Dragging and dropping into one Rev window ) qAnother kind of nice Drag and Drop may be used to reorder a list field or pass data from a field to another one. 2 2 F J % o 2See all following nice stuff that might help you: Get In Line by Scott Rossi @ 1600 DragDropList by Jan Schenkel @ 1600 ' Dragging with ListFields by W. Sanke @ 1600 aEven if these stacks do not use Rev Drag and Drop 2.9 new features, they are really interesting. ` Example on the right uses Rev 2.9 new features to allow Drag and Drop of a line from a field into another one using the Move, Copy or Clear mode. 8 8 5 m x } ~ PNote that Clear mode is pure scripting and does not exist as a dragAction mode. 0 ? I You might be interested, by comparing with the stacks linked above, in how these new features are able to simplify your code :-) ` D B List Fields i o3 cREVGeometry Master,expectedRect 402,62,741,342Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -0.28625Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 0Master,scaleleftDistance Master,moveHAbsolute falseMaster,scaletopDistance Master,moveH false cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1207052192647 handlerList scriptSelection char 1 to 0 prevHandler dragEnter tempScript script , i ! $ cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 523,33,680,69Master,movehDistance -228Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral revUniqueID 1207149985834 - Label Field % Y cREVTable currentview Drag Action: cREVGeneral revUniqueID 1206622570897 Drag Action: . DDMode2 e @ & L dModify drag action and see how the cursor changes and how D&D can be done according to this setting x Move Move Copy Clear cREVGeneral revUniqueID 1206622570898 ListField1 7)pActually both fields have the same script: Of course some handlers could be reported in a higher object But understanding would have been more difficult :-) ---------------------------------- local lLineNo -- script local variable ---------------------------------- on mouseEnter set the dragDelta to 10 set the uCurField of this cd to the short name of the target -- this custom prop allows to know which field may initiate drag and drop -- the goal is to prevent an auto drag and drop: see DropAllowed() function end mouseEnter ---------------------------------- on dragMove -- sent repeatedly when the dragdata is within the field local tContents,tHilitedText ----- if DropAllowed() and the dragAction <> "None" then -- see below put (the mouseV - the top of the target) div the effective textheight of the target into lLineNo -- line number if lLineNo > the number of lines of the target then put the number of lines of the target into lLineNo ----- lock screen put StripCR(me) into tContents -- see below put the hilitedText of the target into tHilitedText -- stores highlighted line put cr after line lLineNo of tContents -- creates a blank line set the text of the target to tContents set the hilitedLine of the target to lineOffset(tHilitedText,tContents) -- restores highlighted line unlock screen end if end dragMove ---------------------------------- on DragLeave -- restores current contents if DropAllowed() then -- see below lock screen put the hilitedLine of the target into tHilitedLine put StripCR(me) into the target -- set the hilitedLine of the target to tHilitedLine unlock screen end if end DragLeave ---------------------------------- on dragEnter if DropAllowed() then -- see below switch the menuHistory of btn "DDMode2" case 1 set the dragAction to "Move" break case 2 set the dragAction to "Copy" break default set the dragAction to "None" end switch end if end dragEnter ---------------------------------- on dragDrop local tContents ----- if DropAllowed() then -- see below put StripCR(me) into tContents -- see below if lLineNo = 0 then put the dragdata["text"] & cr before tContents else put cr & the dragdata["text"] after line lLineNo of tContents end if lock screen set the text of the target to tContents set the hilitedLine of the target to lLineNo + 1 -- sets highlighted line to dropped line unlock screen end if ----- if the menuHistory of btn "DDMode2" = 1 then -- move mode if the short name of the target = "ListField1" then delete line (the hilitedLine of fld "ListField2") of fld "ListField2" else delete line (the hilitedLine of fld "ListField1") of fld "ListField1" end if end if mouseEnter -- end dragDrop ---------------------------------- function StripCR pText -- returns 'normal' field's contents if char 1 of pText = cr then delete char 1 of pText if char -1 of pText = cr then delete char -1 of pText replace cr & cr with cr in pText return pText end StripCR --------------------------------- function DropAllowed return the uCurField of this cd <> the short name of the target end DropAllowed --------------------------------- on dragStart set the dragData["text"] to the selectedText -- plain text put the selectedText of the target into fld "Temp" -- in order to create the right image set the dragImage to CreateDragImage() -- see below set the dragImageOffset to the width of last image div 2,the height of last image div 2 -- centered end dragStart --------------------------------- on dragEnd delete last image -- we no longer need the drag image if the menuHistory of btn "DDMode2" = 3 then -- clear mode delete line (the hilitedLine of the target) of the target end if end dragEnd --------------------------------- function CreateDragImage -- creates drag image on-the-fly local tRect,tempImage ----- put the rect of fld "Temp" into tRect ----- export snapshot from rect tRect of this cd to tempImage as jpeg -- export image to a variable lock messages -- important to speed up the process create invisible image -- we don't want to see it set the text of last image to tempImage if there is an image ID 6001 then delete image ID 6001 set the ID of last image to 6001 -- setting dimensions unlock messages return the ID of last image -- we need it to set the dragImage property end CreateDragImage B j cREVGeometry Master,expectedRect 399,66,505,228Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -348Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum J Gtk'Wy bookmarks revUniqueID 1207050755042 handlerList fmouseEnter dragMove DragLeave dragEnter dragDrop StripCR DropAllowed dragStart dragEnd CreateDragImagescriptSelection char 1 to 0 prevHandler dragEnd tempScript script ?Actually both fields have the same script:
Of course some handlers could be reported in a higher object
But understanding would have been more difficult :-)
----------------------------------
local lLineNo -- script local variable
----------------------------------
on mouseEnter
set the dragDelta to 10
set the uCurField of this cd to the short name of the target
-- this custom prop allows to know which field may initiate drag and drop
-- the goal is to prevent an auto drag and drop: see DropAllowed() function
end mouseEnter
----------------------------------
on dragMove -- sent repeatedly when the dragdata is within the field
local tContents,tHilitedText
-----
if DropAllowed() and the dragAction <> "None" then -- see below
put (the mouseV - the top of the target) div the effective textheight of the target into lLineNo -- line number
if lLineNo > the number of lines of the target then put the number of lines of the target into lLineNo
-----
lock screen
put StripCR(me) into tContents -- see below
put the hilitedText of the target into tHilitedText -- stores highlighted line
put cr after line lLineNo of tContents -- creates a blank line
set the text of the target to tContents
set the hilitedLine of the target to lineOffset(tHilitedText,tContents) -- restores highlighted line
unlock screen
end if
end dragMove
----------------------------------
on DragLeave -- restores current contents
if DropAllowed() then -- see below
lock screen
put the hilitedLine of the target into tHilitedLine
put StripCR(me) into the target --
set the hilitedLine of the target to tHilitedLine
unlock screen
end if
end DragLeave
----------------------------------
on dragEnter
if DropAllowed() then -- see below
switch the menuHistory of btn "DDMode2"
case 1
set the dragAction to "Move"
break
case 2
set the dragAction to "Copy"
break
default
set the dragAction to "None"
end switch
end if
end dragEnter
----------------------------------
on dragDrop
local tContents
-----
if DropAllowed() then -- see below
put StripCR(me) into tContents -- see below
if lLineNo = 0 then
put the dragdata["text"] & cr before tContents
else
put cr & the dragdata["text"] after line lLineNo of tContents
end if
lock screen
set the text of the target to tContents
set the hilitedLine of the target to lLineNo + 1 -- sets highlighted line to dropped line
unlock screen
end if
-----
if the menuHistory of btn "DDMode2" = 1 then -- move mode
if the short name of the target = "ListField1" then
delete line (the hilitedLine of fld "ListField2") of fld "ListField2"
else
delete line (the hilitedLine of fld "ListField1") of fld "ListField1"
end if
end if
mouseEnter --
end dragDrop
----------------------------------
function StripCR pText -- returns 'normal' field's contents
if char 1 of pText = cr then delete char 1 of pText
if char -1 of pText = cr then delete char -1 of pText
replace cr & cr with cr in pText
return pText
end StripCR
---------------------------------
function DropAllowed
return the uCurField of this cd <> the short name of the target
end DropAllowed
---------------------------------
on dragStart
set the dragData["text"] to the selectedText -- plain text
put the selectedText of the target into fld "Temp" -- in order to create the right image
set the dragImage to CreateDragImage() -- see below
set the dragImageOffset to the width of last image div 2,the height of last image div 2 -- centered
end dragStart
---------------------------------
on dragEnd
delete last image -- we no longer need the drag image
if the menuHistory of btn "DDMode2" = 3 then -- clear mode
delete line (the hilitedLine of the target) of the target
end if
end dragEnd
---------------------------------
function CreateDragImage -- creates drag image on-the-fly
local tRect,tempImage
-----
put the rect of fld "Temp" into tRect
-----
export snapshot from rect tRect of this cd to tempImage as jpeg
-- export image to a variable
lock messages -- important to speed up the process
create invisible image -- we don't want to see it
set the text of last image to tempImage
if there is an image ID 6001 then delete image ID 6001
set the ID of last image to 6001
-- setting dimensions
unlock messages
return the ID of last image -- we need it to set the dragImage property
end CreateDragImage
Line 1 Line 2 Line 3 Line 4 Line 5 Line 6 ListField2 7)p local lLineNo ---------------------------------- on mouseEnter set the dragDelta to 10 set the uCurField of this cd to the short name of the target end mouseEnter ---------------------------------- on dragMove local tContents,tHilitedText ----- if DropAllowed() and the dragAction <> "None" then -- see below put (the mouseV - the top of the target) div the effective textheight of the target into lLineNo -- line number if lLineNo > the number of lines of the target then put the number of lines of the target into lLineNo ----- lock screen put StripCR(me) into tContents put the hilitedText of the target into tHilitedText put cr after line lLineNo of tContents set the text of the target to tContents set the hilitedLine of the target to lineOffset(tHilitedText,tContents) unlock screen end if end dragMove ---------------------------------- on DragLeave if DropAllowed() then lock screen put the hilitedLine of the target into tHilitedLine put StripCR(me) into the target -- set the hilitedLine of the target to tHilitedLine unlock screen end if end DragLeave ---------------------------------- on dragEnter if DropAllowed() then switch the menuHistory of btn "DDMode2" case 1 set the dragAction to "Move" break case 2 set the dragAction to "Copy" break default set the dragAction to "None" end switch end if end dragEnter ---------------------------------- on dragDrop local tContents ----- if DropAllowed() then put StripCR(me) into tContents if lLineNo = 0 then put the dragdata["text"] & cr before tContents else put cr & the dragdata["text"] after line lLineNo of tContents end if lock screen set the text of the target to tContents set the hilitedLine of the target to lLineNo + 1 unlock screen end if ----- if the menuHistory of btn "DDMode2" = 1 then if the short name of the target = "ListField1" then delete line (the hilitedLine of fld "ListField2") of fld "ListField2" else delete line (the hilitedLine of fld "ListField1") of fld "ListField1" end if end if mouseEnter -- end dragDrop ---------------------------------- function StripCR pText if char 1 of pText = cr then delete char 1 of pText if char -1 of pText = cr then delete char -1 of pText replace cr & cr with cr in pText return pText end StripCR --------------------------------- function DropAllowed return the uCurField of this cd <> the short name of the target end DropAllowed --------------------------------- on dragStart set the dragData["text"] to the selectedText put the selectedText of the target into fld "Temp" set the dragImage to CreateDragImage() set the dragImageOffset to the width of last image div 2,the height of last image div 2 end dragStart --------------------------------- on dragEnd delete last image if the menuHistory of btn "DDMode2" = 3 then delete line (the hilitedLine of the target) of the target end if end dragEnd --------------------------------- function CreateDragImage local tRect,tempImage ----- put the rect of fld "Temp" into tRect export snapshot from rect tRect of this cd to tempImage as jpeg lock messages create invisible image set the text of last image to tempImage if there is an image ID 6001 then delete image ID 6001 set the ID of last image to 6001 unlock messages return the ID of last image end CreateDragImage @ B j cREVGeometry Master,expectedRect 645,66,751,228Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum 7C q0U revUniqueID 1207050755043 bookmarks handlerList fmouseEnter dragMove DragLeave dragEnter dragDrop StripCR DropAllowed dragStart dragEnd CreateDragImage tempScript prevHandler dragEndscriptSelection char 2986 to 2985script 6local lLineNo
----------------------------------
on mouseEnter
set the dragDelta to 10
set the uCurField of this cd to the short name of the target
end mouseEnter
----------------------------------
on dragMove
local tContents,tHilitedText
-----
if DropAllowed() and the dragAction <> "None" then -- see below
put (the mouseV - the top of the target) div the effective textheight of the target into lLineNo -- line number
if lLineNo > the number of lines of the target then put the number of lines of the target into lLineNo
-----
lock screen
put StripCR(me) into tContents
put the hilitedText of the target into tHilitedText
put cr after line lLineNo of tContents
set the text of the target to tContents
set the hilitedLine of the target to lineOffset(tHilitedText,tContents)
unlock screen
end if
end dragMove
----------------------------------
on DragLeave
if DropAllowed() then
lock screen
put the hilitedLine of the target into tHilitedLine
put StripCR(me) into the target --
set the hilitedLine of the target to tHilitedLine
unlock screen
end if
end DragLeave
----------------------------------
on dragEnter
if DropAllowed() then
switch the menuHistory of btn "DDMode2"
case 1
set the dragAction to "Move"
break
case 2
set the dragAction to "Copy"
break
default
set the dragAction to "None"
end switch
end if
end dragEnter
----------------------------------
on dragDrop
local tContents
-----
if DropAllowed() then
put StripCR(me) into tContents
if lLineNo = 0 then
put the dragdata["text"] & cr before tContents
else
put cr & the dragdata["text"] after line lLineNo of tContents
end if
lock screen
set the text of the target to tContents
set the hilitedLine of the target to lLineNo + 1
unlock screen
end if
-----
if the menuHistory of btn "DDMode2" = 1 then
if the short name of the target = "ListField1" then
delete line (the hilitedLine of fld "ListField2") of fld "ListField2"
else
delete line (the hilitedLine of fld "ListField1") of fld "ListField1"
end if
end if
mouseEnter --
end dragDrop
----------------------------------
function StripCR pText
if char 1 of pText = cr then delete char 1 of pText
if char -1 of pText = cr then delete char -1 of pText
replace cr & cr with cr in pText
return pText
end StripCR
---------------------------------
function DropAllowed
return the uCurField of this cd <> the short name of the target
end DropAllowed
---------------------------------
on dragStart
set the dragData["text"] to the selectedText
put the selectedText of the target into fld "Temp"
set the dragImage to CreateDragImage()
set the dragImageOffset to the width of last image div 2,the height of last image div 2
end dragStart
---------------------------------
on dragEnd
delete last image
if the menuHistory of btn "DDMode2" = 3 then
delete line (the hilitedLine of the target) of the target
end if
end dragEnd
---------------------------------
function CreateDragImage
local tRect,tempImage
-----
put the rect of fld "Temp" into tRect
export snapshot from rect tRect of this cd to tempImage as jpeg
lock messages
create invisible image
set the text of last image to tempImage
if there is an image ID 6001 then delete image ID 6001
set the ID of last image to 6001
unlock messages
return the ID of last image
end CreateDragImage
Line 7 Line 8 Line 9 Line 10 Line 11 Line 12 Reset Epon mouseUp local tList ----- repeat with i = 1 to 12 put "Line" && i & cr after tList end repeat delete last char of tList lock screen set the backColor of fld "Temp" to the effective hiliteColor put empty into fld "Temp" put line 1 to 6 of tList into fld "ListField1" put line 7 to 12 of tList into fld "ListField2" set the hilitedLine of fld "ListField1" to 1 set the hilitedLine of fld "ListField2" to 1 unlock screen end mouseUp R cREVGeometry Master,expectedRect 533,248,615,271Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -226Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum UEC*~?Z revUniqueID 1207050755044 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 242 to 241script eon mouseUp
local tList
-----
repeat with i = 1 to 12
put "Line" && i & cr after tList
end repeat
delete last char of tList
lock screen
set the backColor of fld "Temp" to the effective hiliteColor
put empty into fld "Temp"
put line 1 to 6 of tList into fld "ListField1"
put line 7 to 12 of tList into fld "ListField2"
set the hilitedLine of fld "ListField1" to 1
set the hilitedLine of fld "ListField2" to 1
unlock screen
end mouseUp
Temp (` $ j uDontResize true cREVGeometry Master,expectedRect 399,292,489,312Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -348Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1207050755045 Label Field 7 uDontResize true cREVGeometry Master,expectedRect 392,311,600,332Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -304Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVTable currentview Template to create a drag image cREVGeneral revUniqueID 1207050755046 Template to create a drag image Show Script Ep :on mouseUp edit script of fld "ListField1" end mouseUp $ d : cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -102Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -97Master,scalebottomDistance Master,expectedRect 648,303,748,326Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum ^f٘d handlerList mouseUp breakPoints scriptSelection char 57 to 56 bookmarks revUniqueID 1207051273280 prevHandler mouseUp tempScript scripton mouseUp
edit script of fld "ListField1"
end mouseUp
Label Field f p D uDontResize true cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 392,311,600,332Master,movehDistance -228Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVTable currentview &Exchange data between these two fields cREVGeneral revUniqueID 1207132611517 'Exchange data between these two fields Rev29 aThis is the script used by each thumbnail (source object) written in the group that owns them --------------------------------- on dragStart if "button" is in the target then -- right target set the text of img "Drop4" to empty -- drop area cleanup for demo purpose ----- set the dragImage to the icon of the target -- ID set the dragImageOffset to the width of the target div 2,the height of the target div 2 -- so the drag image is centered under the mouse set the dragData["image"] to the text of img ID (the icon of the target) -- sets the dragged data to image's binaries end if end dragStart --------------------------------- on mouseEnter set the dragDelta to 10 -- drag will begin if the mouse (down) is moved by ten pixels at least end mouseEnter --------------------------------- on dragEnd set the threeD of img "Drop4" to true -- resets drop area border end dragEnd : cREVGeneral scriptChecksum tN JR*] revUniqueID 1206621840687 bookmarks handlerList dragStart mouseEnter dragEnd tempScript prevHandler dragEndscriptSelection char 678 to 677scriptThis is the script used by each thumbnail (source object) written in the group that owns them
---------------------------------
on dragStart
if "button" is in the target then -- right target
set the text of img "Drop4" to empty -- drop area cleanup for demo purpose
-----
set the dragImage to the icon of the target -- ID
set the dragImageOffset to the width of the target div 2,the height of the target div 2
-- so the drag image is centered under the mouse
set the dragData["image"] to the text of img ID (the icon of the target)
-- sets the dragged data to image's binaries
end if
end dragStart
---------------------------------
on mouseEnter
set the dragDelta to 10
-- drag will begin if the mouse (down) is moved by ten pixels at least
end mouseEnter
---------------------------------
on dragEnd
set the threeD of img "Drop4" to true
-- resets drop area border
end dragEnd
3 Label Field " $0 cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 34,36,778,340Master,scalebottomDistance -60Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -22Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVTable currentview cREVGeneral revUniqueID 1206713797233 bookmarks handlerList tempScript prevHandler script Info5 )p on dragStart end dragStart --------------------------------- on mouseEnter end mouseEnter --------------------------------- on dragEnd end dragEnd ( A- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -75Master,expectedRect 40,39,341,325Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum iHQao; revUniqueID 1206621253713 bookmarks handlerList dragStart mouseEnter dragEnd tempScript prevHandler linkClickedscriptSelection char 136 to 135scripton dragStart
end dragStart
---------------------------------
on mouseEnter
end mouseEnter
---------------------------------
on dragEnd
end dragEnd
*Dragging and dropping into one Rev window ) It's child's play to implement drag and drop with Rev 2.9 that take cares of many things for you: cursor, blendlevel, image return when the operation fails and much more. @ 1 @ 2 @ 9 q xAbove all, the drag image is not restricted to the card window boundaries as it is in both previous described methods. @ w In the source object @ 1600 Mainly you only need to write a dragStart handler in any control script to initiate a Drag and Drop operation from this control: ) W on dragStart @ @ hh " set the dragImage toon mouseDown
local tPos,tDragFromStack,tRect,tStartLoc,tImage,tNowLoc,tWidth,tHeight,tCopyModeFlag,tRightLocationFlag
-----
if "AnotherStack" is not among the lines of the windows then -- demo purpose only
ShowAnotherStack -- C
end if
-----
put globalLoc(the loc of the target) into tPos -- storing initial location
put the short name of this stack into tDragFromStack
set the defaultStack to "AnotherStack"
put globalLoc(the topLeft of img "Drop" of stack "AnotherStack"),globalLoc(the bottomRight of img "Drop" of stack "AnotherStack") into tRect
-- storing target rect
set the defaultStack to tDragFromStack
put the text of image ID (the icon of the target) into tImage -- storing needed image data
put the screenMouseLoc into tStartLoc
put 66 into tWidth -- size needed for this example
put 50 into tHeight -- size needed for this example
put the hilite of btn "CopyMode" into tCopyModeFlag
-----
lock messages
repeat -- check for some movement before drag (at least 8 pixels horizontally)
put the screenMouseLoc into tNowLoc
if abs(item 1 of tNowLoc - item 1 of tStartLoc) < 8 then
if the mouse is up then exit mouseDown
next repeat
else
exit repeat
end if
end repeat
----- building a stack on-the-fly:
reset the templateStack -- just in case
set the name of the templateStack to "ThumbnailControl"
set the visible of the templateStack to false -- we create it invisible
set the decorations of the templateStack to "noShadow"
set the style of the templateStack to "palette"
set the blendLevel of the templateStack to 25
-----
create stack
reset the templateStack -- to default for others
set the defaultStack to "ThumbnailControl"
set the loc of this stack to tPos -- initial thumb location
set the minWidth of this stack to tWidth
set the minHeight of this stack to tHeight
set the width of this stack to tWidth
set the height of this stack to tHeight
set the showBorder of this cd to true
set the BorderColor of this cd to "red"
set the ThreeD of this cd to false
set the borderWidth of this cd to 1
----- adding the right image on-the-fly:
reset the templateImage -- just in case
-----
set the width of the templateImage to tWidth
set the height of the templateImage to tHeight
set the lockloc of the templateImage to true
set the text of the templateImage to tImage
-----
create image
reset the templateImage -- to default for others
set the loc of img 1 to the loc of this card
----- all has been created:
show this stack
if not tCopyModeFlag then hide the target
-----
repeat -- moving the stack according to the mouse location
set the loc of this stack to the screenMouseLoc -- global coordinates
put (the screenMouseLoc is within tRect) into tRightLocationFlag
-- tRightLocationFlag is a Boolean (TrueOrFalse) that means that the mouse is in the right place or not
if tRightLocationFlag then
set the cursor to 1131
set the threeD of img "Drop" of stack "AnotherStack" to false
-- highlights drop area
else
set the cursor to arrow
set the threeD of img "Drop" of stack "AnotherStack" to true
-- unhighlights drop area
end if
-- indication for the user
if the mouse is up then exit repeat -- stop
end repeat
-----
if tRightLocationFlag then -- right place
set the threeD of img "Drop" of stack "AnotherStack" to true
set the text of img "Drop" of stack "AnotherStack" to the text of img 1 of this stack
else -- wrong place
move this stack to tPos in 200 milliseconds
-- put the stack back to the source thumbnail location
beep
end if
show the target
delete this stack -- we no longer need it
unlock messages
end mouseDown
e Button jB ' B 2 uLoc 432,197 4 cREVGeneral revUniqueID 1206456435320 g Button jB ' B 2 uLoc 432,255 5 cREVGeneral revUniqueID 1206456435321 h Button jB ' r B 2 uLoc 432,139 3 cREVGeneral revUniqueID 1206456435322 j Button jB ' 8 B 2 uLoc 432,139 2 cREVGeneral revUniqueID 1206456431694 i Show Script Ep >on mouseUp edit the script of grp "Thumbnails" end mouseUp $ d ? cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -102Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,movevDistance -97Master,scalebottomDistance Master,expectedRect 648,303,748,326Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum NV`2g-fk bookmarks revUniqueID 1206456301140 handlerList mouseUpscriptSelection char 48 to 47 prevHandler mouseUp tempScript scripton mouseUp
edit the script of grp "Thumbnails"
end mouseUp
CopyMode he 0 @ Copy cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -318Master trueMaster,moveVObjectRef cardMaster,movehObjectRef 1206353911525Master,moveVAbsolute true Master,moveV trueMaster,expectedRect 398,304,462,327Master,scalebottomDistance Master,movevDistance -85Master,movehObjectSide rightMaster,scalerightDistance Master,cardRanking 1Master,scaleleftDistance Master,scaletopDistance Master,movehAbsolute true Master,moveh true cREVGeneral revUniqueID 1206526367520 k copy mac.gif D v\ 62 H | Ɂ < A @ ` p x | ~ | l F~ ~ I < cREVGeneral revUniqueID 1206464200264 l subtract mac D ,Z 63 G @ Ɂ = @ ` p x | ~ | l F~ ~ H cREVGeneral revUniqueID 1206464204168 Towards Rev a on dragMove DisplayMessage the params,"DDMessage" -- for demo purpose end dragMove --------------------------------------- on dragEnd DisplayMessage the params,"DDMessage" -- for demo purpose end dragEnd $ ; cREVGeneral scriptChecksum '\G% revUniqueID 1206530273946 bookmarks handlerList dragMove dragEnd tempScript prevHandler dragEndscriptSelection char 165 to 164script &on dragMove
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragMove
---------------------------------------
on dragEnd
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragEnd
Label Field ( &. cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 40,38,782,340Master,scalebottomDistance -60Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -18Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVTable currentview cREVGeneral revUniqueID 1206610694925 Info7 )` ( &- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,expectedRect 40,39,341,325Master,scalebottomDistance -75Master,movevDistance falseMaster,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaleleftDistance Master,scaletopDistance cREVGeneral scriptChecksum ُ B~ revUniqueID 1206530271451 bookmarks handlerList tempScript prevHandler linkClickedscriptSelection char 1 to 0script 1Dragging and dropping anything into a Rev window 0 The user may drag and drop almost anything into your project: folder(s), file(s) and text (plain text, rtf, html or unicode). @ 1600 > A G L P X \ $ So your concerns are: 0. Do the dragged data belong to the right kind? / &. Is the drop made in the right area? % 8. What to do if all the above conditions are fulfilled? 7 " Checking the dragged data type @ 1600 As soon as you write a dragMove, dragEnter, dragLeave, dragEnd or dragDrop* handler you are able to check the dragData property: ! * , 5 7 > B K # n v [* dragDrop will be triggered only when dragAction property (see below) will have been set. ' ' 1 ) 6The dragData is an array with multiple possible keys: ) $See the docs fore more information. # . dragdata["html "] . dragdata["rtf"] . dragdata["Unicode"] . dragdata["image"] . dragdata["files"] . dragdata["styles"] . dragdata["private"] Important: HThe presence of a key or another does not prejudge the original format: lRev tries to provide all formats it is able to... in order for you to choose the one that suits your needs. - So how to know what are the dragged data? @ 1600 ) If "files" is among the keys of the dragData assumes there are file(s) or folder(s) and only those because it's impossible to drag and drop files and text at the same time :-) , , You'll get a list of lines with a path per line but unfortunately, folders paths don't end with a slash. I have requested this as an enhancement, so test by yourself to know if it could be done. If it's not the case, use: *function DistinguishFileFromFolder pPaths @ ! local tFiles,tPath,tList @ ----- @ hh " if pPaths = empty then @ @ return empty @ end if @ @ ----- @ hh " ' repeat for each line tPath in pPaths @ @ " if there is a file tPath then @ @ ! put tPath & cr after tList @ else @ ) put tPath & slash & cr after tList @ end if @ @ end repeat @ @ ----- @ hh " delete last char of tList @ return tList @ end DistinguishFileFromFolder @ eThis function will return list where every file or folder will be identified for further processing: Nset the dragData["files"] to DistinguishFileFromFolder(the dragData["files"]) @ @ @ @ 6 : @ ; @ C Files, on Mac OS X or Win 32 have always an extension that should allow you to discriminate the files you want if necessary: My How to Manage Drag and Drop for Files or Folders tutorial n10 might help you to reach this more specific goal. } } 0 > On the contrary, if "files" and "image" are not among the keys of the dragData assumes there is only text and, at first sight, a single one. C Q ; XIt can be an url dragged from a browser or anything else: an url begins with http, etc. = M Q Lastly, when coming from the out world, you'll sometimes get image among the keys but this depends on the source application: it works well from PhotoShop but not from MS Word for instance. = = B { Setting the dragAction @ 1600 A dragEnter message is sent to the target when you drag anything on it... and if you have written a dragEnter message accordingly: w If there is no dragEnter handler related to any target, no drop will be accepted: this means that you have only to take care of areas where you want possibly accept a drop. But be aware that unlocked fields accept drops naturally: if you want to inhibit this feature, just add in an unlocked field script: on dragEnter @ end dragEnter @ In Rev prior to 2.9, setting the acceptDrop property to true in a dragEnter handler was enough to be able to subsequently trigger the DragDrop message sent when the user released the mouse. ! ! + [ / zAcceptDrop is now deprecated in Rev 2.9 and later and has been replaced by the dragAction property that is more flexible: O O Y DragAction property can be: 6. None: the target application does not want the data - 6. Move: the target application wants to move the data - 6. Copy: the target application wants to copy the data - 6. Link: the target application wants to link the data - Practically, this means that you can test the dragData when the mouse enters a possible target then set the dragAction consequently. . . 6 6 l v For instance: on dragEnter @ & if ".txt" is in the dragData then @ @ @ ! # set the dragAction to "copy" @ @ & else set the dragAction to "none" @ @ @ end dragEnter @ SWith such a script, the target will accept drag and drop of plain text files only. bNote that dragData without any key specified always returns main information: here the file path. a A consequence of this change in 2.9 and later is that Rev sets the cursor by itself according to the dragAction contents: specific cursors are used when the dragAction is set to copy (add cursor) or link (alias/shortcut cursor) but stays an usual arrow when using none or move. 8 8 ? I i - Important: It may happen that data seem to be able to be dropped in Rev (you get a drag image set by an external app) but actually the dragData are empty. | | LSo it's a good idea to test the dragData's contents in a dragEnter handler: on dragEnter @ local tMode @ ----- @ hh"" if the dragData = empty then @ hh"" @ @ @ @ put "none" into tMode @ else @ @ put "Copy" into tMode @ end if @ set the dragAction to tMode @ @ end dragEnter @ Use the Drag Action option menu on the right and watch the messages that are sent and how may change the cursor when entering the drop area according to the drag action you choose. Responding to the drop @ 1600 Once you have accepted the drop (and we have seen above that you are able to master this completely :-) what are you going to do with it? ;. If it is a file, you are able to get its contents using: ) 0 put url("file:" &on dragEnter
local tMode
-----
if the dragData = empty then put "none" into tMode
else put the selectedText of btn "DDMode" into tMode
set the dragAction to tMode
if tMode <> "none" then set the threeD of me to false
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragEnter
-----------------------------
on dragLeave
set the threeD of me to true
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragLeave
-----------------------------
on dragDrop
set the threeD of me to true
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragDrop
---------------------------------------
on dragMove
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragMove
---------------------------------------
on dragEnd
DisplayMessage the params,"DDMessage" -- for demo purpose
end dragEnd
Show Script Ep 9on mouseUp edit the script of img "Drop3" end mouseUp $ d Y cREVGeometry Master,moveVObjectSide bottomMaster,movehDistance -102Master trueMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute true Master,moveV trueMaster,expectedRect 648,303,748,326Master,scalebottomDistance Master,movevDistance -97Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum H6/R0[sH* revUniqueID 1206530924030 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 43 to 42scripton mouseUp
edit the script of img "Drop3"
end mouseUp
DDMessage 0Von mouseUp put "Messages:" into me set the vScrollbar of me to false mouseEnter -- end mouseUp ----------------------- on mouseEnter if the number of lines of me = 1 then set the tooltip of me to "Messages sent by the engine during the process will be displayed here" else set the tooltip of me to "Click to clear" end mouseEnter ` & FMessages sent by the engine during the process will be displayed here cREVTable maxColumnCount cREVGeometry Master,moveVObjectSide bottom Master,scaleBottomObjectSide BottomMaster,movehDistance -370Master trueMaster,moveVObjectRef card Master,scaleBottomObjectRef cardMaster,moveHObjectRef cardMaster,moveVAbsolute falseMaster,scaleBottomAbsolute true Master,moveV falseMaster,scaleBottom trueMaster,movevDistance -0.5475Master,scalebottomDistance -75Master,expectedRect 352,38,500,324Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral scriptChecksum !{9;#F8: revUniqueID 1206531419117 bookmarks handlerList mouseUp mouseEnter tempScript prevHandler mouseUpscriptSelection char 89 to 88script on mouseUp
put "Messages:" into me
set the vScrollbar of me to false
mouseEnter --
end mouseUp
-----------------------
on mouseEnter
if the number of lines of me = 1 then set the tooltip of me to "Messages sent by the engine during the process will be displayed here"
else set the tooltip of me to "Click to clear"
end mouseEnter
Messages: i ! $ cREVGeometry Master,expectedRect 523,33,680,69Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -204Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1206548126350 Label Field % Y cREVTable currentview Drag Action: cREVGeneral revUniqueID 1207153387076 Drag Action: DDMode e X & L bModify drag action and see how the cursor changes and how D&D can be done or not in the drop area ] Copy None Move Copy Link cREVGeneral revUniqueID 1207153387077 From Rev a on dragMove DisplayMessage the params,"DDMessage2" -- for demo purpose end dragMove --------------------------------------- on dragEnd DisplayMessage the params,"DDMessage2" -- for demo purpose end dragEnd $ : cREVGeneral scriptChecksum Y<\Z6v+ bookmarks revUniqueID 1206634311825 handlerList dragMove dragEndscriptSelection char 178 to 177 prevHandler DisplayMessage tempScript script =on dragMove
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragMove
---------------------------------------
on dragEnd
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragEnd
Label Field ( &. cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -60Master,expectedRect 40,38,782,340Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -18 Master,scaleRightObjectSide RightMaster,scaleRightObjectRef cardMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVTable currentview cREVGeneral revUniqueID 1206634773073 Info8 )` ( &- cREVGeometry Master,scaleBottomObjectSide BottomMaster,movehDistance falseMaster true Master,scaleBottomObjectRef cardMaster,scaleBottomAbsolute trueMaster,scaleBottom trueMaster,movevDistance falseMaster,scalebottomDistance -75Master,expectedRect 40,39,341,325Master,scaleRightAbsolute trueMaster,scaleRight trueMaster,scalerightDistance -459Master,scaleRightObjectRef card Master,scaleRightObjectSide RightMaster,cardRanking 2Master,scaletopDistance Master,scaleleftDistance cREVGeneral scriptChecksum ُ B~ bookmarks revUniqueID 1206634773074 handlerList scriptSelection char 1 to 0 prevHandler linkClicked tempScript script JDragging and dropping anything from a Rev window into another application I You can export to another application (desktop included) any kind of data as soon as the destination application is able to accept this data. @ 1600 9 ; S uDrag and drop a chunk of text, the thumbnail or the file icon on the right: see their tooltips for more information. t About how to use dragImage, dragImageOffset and dragData, see Using Rev 2.9 new features sub section of In one Rev Window section: here we'll only discuss specific features when dragging and dropping anything from a Rev window into another application. + 0 8 > X h y 8 K ( Exporting text from an unlocked field @ 1600 % nActually, you have nothing to do if you want to allow dragging a text selection made in an unlocked field :-) M Rev will handle it by itself (in cooperation with the destination application) and will take care of fonts, styles, colors, etc. But in such a case, you'll not display any drag image and, with Mac OS X where there is no 'Don't drop' cursor (as there is one with Win32) you'll want to add a drag image. @ BUnfortunately, with Rev 2.9 rc4 I used to write this tutorial, it appears that inserting a dragStart handler in the field script creates a conflict between dragDelta value and selecting text ability because mouseDown is not sent to an unlocked field: may be this issue is already fixed in the version you use (bug #6294). @ G @ G @ [ @ d 8 @ @ @ To export plain text, use: @ -set the dragData["text"] to the selectedText @ blue @ red @ darkorange DAnd to export styled text, prefer to use html or rtf. For instance: ) ) - 1 4 =set the dragData["html"] to the htmlText of the selectedText @ blue @ red @ red ( @ darkorange 0 Exporting images @ 1600 To export an image, you need to write one line only in a dragStart handler in the script of the control that initiates Drag and Drop: 9 9 B C on dragStart @ $ set the dragData["image"] toon mouseUp
edit the script of fld "Text"
edit the script of btn "RevDocsStack"
edit the script of btn "SSThumbnail"
end mouseUp
DDMessage2 0Uon mouseUp put "Messages:" into me set the vScrollbar of me to false mouseEnter -- end mouseUp ----------------------- on mouseEnter if the number of lines of me = 1 then set the tooltip of me to "Messages sent by the engine during the process will be displayed here" else set the tooltip of me to "Click to clear" end mouseEnter ` & FMessages sent by the engine during the process will be displayed here cREVTable maxColumnCount cREVGeometry Master,scaleBottomObjectSide BottomMaster,moveVObjectSide bottomMaster,movehDistance -370Master true Master,scaleBottomObjectRef cardMaster,moveVObjectRef cardMaster,moveHObjectRef cardMaster,scaleBottomAbsolute trueMaster,moveVAbsolute falseMaster,scaleBottom true Master,moveV falseMaster,expectedRect 352,38,500,324Master,scalebottomDistance -75Master,movevDistance -0.5475Master,moveHObjectSide rightMaster,scalerightDistance Master,cardRanking 2Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum JS [;|k bookmarks revUniqueID 1206634773076 handlerList mouseUp mouseEnterscriptSelection char 89 to 88 prevHandler mouseUp tempScript script won mouseUp
put "Messages:" into me
set the vScrollbar of me to false
mouseEnter --
end mouseUp
-----------------------
on mouseEnter
if the number of lines of me = 1 then set the tooltip of me to "Messages sent by the engine during the process will be displayed here"
else set the tooltip of me to "Click to clear"
end mouseEnter
Messages: i " cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 512,34,758,290Master,movehDistance -165Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaletopDistance Master,moveHAbsolute trueMaster,scaleleftDistance Master,moveH true cREVGeneral revUniqueID 1206655515116 Text )pExporting text from an unlocked field --------------------------------- on dragEnter -- just to inhibit an auto drag and drop in the source field end dragEnter --------------------------------- on dragStart if the hilite of btn "WIthStyle" then set the dragData["html"] to the htmlText of the selectedText -- styled text else set the dragData["text"] to the selectedText -- plain text set the dragImage to CreateDragImage() -- see below set the dragImageOffset to the width of last image div 2,the height of last image div 2 -- centered DisplayMessage the params,"DDMessage2" -- for demo purpose end dragStart --------------------------------- on dragEnd delete last image -- we no longer need the drag image end dragEnd --------------------------------- on mouseEnter set the dragDelta to 40 end mouseEnter --------------------------------- function CreateDragImage -- creates drag image on-the-fly local tRect,tempImage ----- put the rect of fld "Text" into tRect add 2 to item 1 of tRect -- we don't want the field border appear add 2 to item 2 of tRect -- ditto put 140 into last item of tRect -- we don't want the check boxes appear ----- export snapshot from rect tRect of this cd to tempImage as jpeg -- export image to a variable lock messages -- important to speed up the process create invisible image -- we don't want to see it set the text of last image to tempImage set the width of last image to the width of last image div 2 set the height of last image to the height of last image div 2 -- setting dimensions unlock messages return the ID of last image -- we need it to set the dragImage property end CreateDragImage & .Select text and drop it into a word processor cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 534,38,754,184Master,movehDistance -0.195Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 0Master,scaletopDistance Master,moveHAbsolute falseMaster,scaleleftDistance Master,moveH false cREVGeneral scriptChecksum |o]?@4WA bookmarks revUniqueID 1206634748342 handlerList 6dragEnter dragStart dragEnd mouseEnter CreateDragImagescriptSelection char 1096 to 1095 prevHandler dragStart tempScript script ]Exporting text from an unlocked field
---------------------------------
on dragEnter
-- just to inhibit an auto drag and drop in the source field
end dragEnter
---------------------------------
on dragStart
if the hilite of btn "WIthStyle" then
set the dragData["html"] to the htmlText of the selectedText -- styled text
else set the dragData["text"] to the selectedText -- plain text
set the dragImage to CreateDragImage() -- see below
set the dragImageOffset to the width of last image div 2,the height of last image div 2 -- centered
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragStart
---------------------------------
on dragEnd
delete last image -- we no longer need the drag image
end dragEnd
---------------------------------
on mouseEnter
set the dragDelta to 40
end mouseEnter
---------------------------------
function CreateDragImage -- creates drag image on-the-fly
local tRect,tempImage
-----
put the rect of fld "Text" into tRect
add 2 to item 1 of tRect -- we don't want the field border appear
add 2 to item 2 of tRect -- ditto
put 140 into last item of tRect -- we don't want the check boxes appear
-----
export snapshot from rect tRect of this cd to tempImage as jpeg
-- export image to a variable
lock messages -- important to speed up the process
create invisible image -- we don't want to see it
set the text of last image to tempImage
set the width of last image to the width of last image div 2
set the height of last image to the height of last image div 2
-- setting dimensions
unlock messages
return the ID of last image -- we need it to set the dragImage property
end CreateDragImage
At vero eos et accusaus et iusto ducimus qui blanditiis praesentium atque corrupti quos similique sunt in culpamollitia animi id est laborum et ! 8 C X a @ Red j w " dolorum laborum deser nimi @ ! Blue SSThumbnail jB 7Exporting an image (web page thumbnail) --------------------------------- on dragStart set the dragImage to the icon of me set the dragImageOffset to the width of me div 2,the height of me div 2 set the dragData["image"] to the text of img ID (the icon of the target) DisplayMessage the params,"DDMessage2" -- for demo purpose end dragStart --------------------------------- on mouseEnter set the dragDelta to 10 end mouseEnter B 2 0Drop this image into an app that accepts images 5 cREVGeometry Master,movevDistance falseMaster,scalebottomDistance Master,expectedRect 629,209,695,259Master,movehDistance -0.1275Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 0Master,scaletopDistance Master,moveHAbsolute falseMaster,scaleleftDistance Master,moveH false cREVGeneral scriptChecksum MJ T;b˘ ) breakPoints handlerList dragStart mouseEnterscriptSelection char 69 to 73 bookmarks revUniqueID 1206635914134 prevHandler dragStart tempScript scriptExporting an image (web page thumbnail)
---------------------------------
on dragStart
set the dragImage to the icon of me
set the dragImageOffset to the width of me div 2,the height of me div 2
set the dragData["image"] to the text of img ID (the icon of the target)
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragStart
---------------------------------
on mouseEnter
set the dragDelta to 10
end mouseEnter
RevDocsStack jB Exporting a file (Rev file icon) --------------------------------- on dragStart set the dragData["files"] to the filename of stack "revDocs" set the dragImage to the icon of the target set the dragImageOffset to the width of me div 2,the height of me div 2 DisplayMessage the params,"DDMessage2" -- for demo purpose end dragStart --------------------------------- on mouseEnter set the dragDelta to 10 end mouseEnter D ! fDrop this icon into your emailer to make it an attachment On your desktop to make a copy of this file cREVGeneral scriptChecksum ɱb& !\і bookmarks revUniqueID 1206654754802 handlerList dragStart mouseEnterscriptSelection char 264 to 263 prevHandler dragStart tempScript scriptExporting a file (Rev file icon)
---------------------------------
on dragStart
set the dragData["files"] to the filename of stack "revDocs"
set the dragImage to the icon of the target
set the dragImageOffset to the width of me div 2,the height of me div 2
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragStart
---------------------------------
on mouseEnter
set the dragDelta to 10
end mouseEnter
Label Field $ Yon mouseEnter set the tooltip of me to the filename of stack "RevDocs" end mouseEnter '' uDontResize true L/Applications/Revolution Enterprise/2.9.0-rc-4/Toolset/revdocumentation.rev cREVTable currentview revdocumen....rev (4.9 MB) cREVGeneral scriptChecksum [O -m9]T!9} revUniqueID 1206655172558 bookmarks handlerList mouseEnter tempScript prevHandler scriptSelection char 73 to 72script $on mouseEnter
set the tooltip of me to the filename of stack "RevDocs"
end mouseEnter
revdocumen....rev (4.9 MB) R NoCode he on mouseUp if the hilite of me then set the dragDelta to 10 set the script of fld "Text" to empty set the hilite of btn "WithStyle" to true set the enabled of btn "WithStyle" to false else set the dragDelta to max(the width of fld "Text",the height of fld "Text") set the script of fld "Text" to the script of btn "Code1" set the enabled of btn "WithStyle" to true end if end mouseUp YTest drag and drop from this unlocked field with D&D code or without any scripting in it Without D&D code cREVGeneral scriptChecksum KP2;DC>T$ bookmarks revUniqueID 1206951664674 handlerList mouseUpscriptSelection char 397 to 396 prevHandler mouseUp tempScript script <on mouseUp
if the hilite of me then
set the dragDelta to 10
set the script of fld "Text" to empty
set the hilite of btn "WithStyle" to true
set the enabled of btn "WithStyle" to false
else
set the dragDelta to max(the width of fld "Text",the height of fld "Text")
set the script of fld "Text" to the script of btn "Code1"
set the enabled of btn "WithStyle" to true
end if
end mouseUp
e WithStyle he Export style cREVGeneral scriptChecksum ُ B~ revUniqueID 1206970234783 bookmarks handlerList tempScript prevHandler mouseUpscriptSelection char 1 to 0script Rev doc.png ! ˉPNG IHDR ! pHYs gAMA |Q cHRM z% u0 ` : o_F AIDATxba@kp>L߿Ŀ b1Ο?_HH"6d @ϟ? _|a÷o DEE Z @L0Ǐ d! (lXYY899~p o~% Ĭ, &CD D0f~͛ K P3tRalvvv/_xNR "h!,Y GP d)@ 1! b)oA4,>A| d)@ 5 -C_l\P\PUUا yxx =zTXXX-( c:d9 ,d`aea/<[}a˖- m@ d!@ !oPÛI >fj`l0/ /,,( PV}z^@y p~YՋ ̾ گ^3+b H + +8xAB߿и@X-|?Ck#[> )7C}" 8id!,Q,afL@@J< Ą^͟!8"㯀/ Nf<A~??*2xf/(" [xC; >|8Ep/?~2l83_] Ͽ|Y{pXP>@ tĥy %ua͚@psv:L l L̠$ { ~%MD V,?P^fb 0 @L2~^<7fWeaHO7Ѐ? ~ Wodx1c^nAAA< # b*+g ?tOs- O~gX: B)'3 ,9 n?"P`^"! 0aǾ~ 303;(00~L v1l\4+r;W2|ً ~r`Cq|@LmG /` G?~ɰioaa~6 kʫ :?f`d B e|p`Ӧ`7וfopYpGǀy zjh݆6phЃ̅^d @(_N^T/έ z U:U w> BI,H&Ƅ& jݻw`T'un'SY>_| "׀A0 d R~ @Lǚ o_gm7\ 祀Y#0~2_ w>fC g%|TxA 2ُ[,uawwWp}%[[{l@_xMLL0t ߇[@,l[s[π@0 @([ .b Ąt'Y BPe)z#bdVւ @ Y222 7owP#9 TҀ9@ !;e6 y @' 0 ݫ ~ IENDB` cREVGeneral revUniqueID 1206654708520 T Code1 Ep3on dragEnter -- just to inhibit an auto drag and drop in the source field end dragEnter --------------------------------- on dragStart if the hilite of btn "WIthStyle" then set the dragData["html"] to the htmlText of the selectedText else set the dragData["text"] to the selectedText set the dragImage to 1314 set the dragImageOffset to 14,16 DisplayMessage the params,"DDMessage2" -- for demo purpose end dragStart --------------------------------- on mouseEnter set the dragDelta to 10 -- max(the width of me,the height of me) end mouseEnter l R cREVGeneral scriptChecksum $jV'hy63 bookmarks revUniqueID 1206953071665 handlerList dragEnter dragStart mouseEnterscriptSelection char 510 to 509 prevHandler dragEnter tempScript scripton dragEnter
-- just to inhibit an auto drag and drop in the source field
end dragEnter
---------------------------------
on dragStart
if the hilite of btn "WIthStyle" then
set the dragData["html"] to the htmlText of the selectedText
else set the dragData["text"] to the selectedText
set the dragImage to 1314
set the dragImageOffset to 14,16
DisplayMessage the params,"DDMessage2" -- for demo purpose
end dragStart
---------------------------------
on mouseEnter
set the dragDelta to 10 -- max(the width of me,the height of me)
end mouseEnter
@ [ j JFIF C C j" } !1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w !1AQaq"2B #3Rbr $4%&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ? f/ٯ_?gw]kZ;6:ojZ^/5 OSo4 [eydFcᏆ W go.s:g7CDӼ'[ xEIxV״-3OGS/n K4i8 3)a|sHo4h (4? >y &USqeң i& ҳnR(2dWo#ⷊ4)x,ѡ:h` \T(<TЧFJ EEߤ_ɟ? k 3t&~l ?>!7 &Wz g Y2X x._]>Mֳ%xcCeqe3u|x7⧉˯RO &૫ o? >7|O ~5{D/#>'<`O5ai^,gSNdiZu?8Zso.͈Jq$c<=XsqŏN txwE*Ukj)gRmJ3kAE4獼 s o|/?MGI]o n|a} \&cXbRxwUk j6~GUWtk_ z[ⵗΟt_j>"<c?Ƶmƞ*-5 :\QifD }.qb]vXl~,j d+?~#|Z>Ыs:ǃ|I;CѼ;O ɭHuҴ; Ri5Dm=Ο ~(~ njeߌk <{|<.W↖nD h?|Kρ%mWI >#|3g EJ9ô^. ѡnRV:%:?mϊ:j1N[Zq):RVV"gД*ӫ(AF̮hIsr_k P?ɟ? k 3t&~l ?4Wp; L ;#'u|H | +ѳf 7G2g F?s }E /ÿd?2x GWďNx ɟ? k 3t&~l ?4Qp; L #'u|H | +ѳf 7_O;Z)BZ ΓhMi:V~N4:(m,4 Ha+k[h5QY p?cx>&Mp2.W3UΤ#FJ%NS2m'W?ݟQ kŞ,x0%<;Z f 5i-HN cYܕJq u>y z>x4/| ?> Ѯo x}VJei-&&Kmlli^ KxaN aT Ё?+ QqgSɲt)ӧ`!C9cB8ZQ!Tc%I$A O^0b<0"jpW UZ\:j՞Y)ԫRrT)I}S B oz?j?g%~#֢ , I! U 1 ΰ ~? ~JF G> ~ W7 =j(o*8 y 4Axo 7 ? O Q @ Z( [" e ! o 5^ }S B oz?j?g%~#֢?, HW p : aT Ё?+ ڧ _?/=_ ! U 1 ΰ ~? ~JF _mK ~#} &ksmZu}2 ˻tn+ۘ4Ui~s;O3<Ɲ,:PXS.t㈫R0QIv?|k>#?kl*ANM[F Xv :ԡ?~4JQct }`qset the loc of this stack to (the right of stack (the mainstack of this stack) + 146),item 2 of the loc of stack (the mainstack of this stack)
put empty into img "Drop"
end preOpenStack
Label Field ssssss D Q x 2 cREVTable currentview 2Drag and drop here a web page from the other stack cREVGeometry Master,expectedRect 634,220,762,256Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral revUniqueID 1206456978192 Drag and drop here a web page from the other stack Drop p 6on mouseUp set the text of me to empty end mouseUp @ : ` cREVGeometry Master,expectedRect 634,122,762,218Master,scalebottomDistance Master,movevDistance falseMaster,movehDistance -102Master,moveHObjectSide rightMaster trueMaster,scalerightDistance Master,moveHObjectRef cardMaster,cardRanking 1Master,scaleleftDistance Master,moveHAbsolute trueMaster,scaletopDistance Master,moveH true cREVGeneral scriptChecksum fjYl}&N'fGwC revUniqueID 1206456978193 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 53 to 52scripton mouseUp
set the text of me to empty
end mouseUp