Title Bar MIAW

 

Compatibilities:

This item has not yet been rated

Title Bar MIAW

property pMouseDown, pStartLoc on beginSprite me   set pMouseDown = 0 end on mouseDown me   set pMouseDown = 1   set lMH = the mouseH   set lMV = the mouseV   set pStartLoc = rect(lMH, lMV, lMH, lMV) end on exitFrame me   if pMouseDown then     set lMH = the mouseH     set lMV = the mouseV     set lMouseLoc = rect(lMH, lMV, lMH, lMV)     set lDiff = lMouseLoc - pStartLoc     set lMovieName = the movieName     repeat with w in the windowList       set lPathToWin = the filename of w       if lPathToWin contains lMovieName then         set lRectOfWin = the rect of w         set lRectOfWin = lRectOfWin + lDiff         set the rect of w = lRectOfWin         updatestage         exit repeat       end if     end repeat   end if end on mouseUp me   set pMouseDown = 0 end on mouseUpOutside me   set pMouseDown = 0 end on getBehaviorDescription   set lText = ""   put "--======= Title Bar MIAW behavior =======--" & RETURN after lText   put "This behavior makes a sprite act as if it " after lText   put "were a window"s title bar.  In other words, " after lText   put "the sprite which receives this behavior will " after lText   put "move the MIAW which the sprite is in around.  " after lText   put "If the sprite is not inside of a MIAW then " after lText   put "nothing will happen.  " & RETURN & RETURN after lText   put "NOTE: The sprite can be any size and shape " after lText   put "that you like, however, if you use the " after lText   put "companion Windowshade MIAW behavior then be " after lText   put "aware that the rect of your title bar is " after lText   put "very important." & RETURN & RETURN after lText   put "As always, if you use this behavior I would " after lText   put "like a mention in your credits.  Enjoy." & RETURN & RETURN after lText   put "/// © Rett Crocker 1997 \" & RETURN after lText   put "\ r3tt@mindspring.com ///" & RETURN after lText   return lText end

Upload Provided by ABCUpload ASP