Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
SiteSearch Indexer
cXtraFlameFX
changing the color of a flash movie clip with lingo
Close Box MIAW behavior
cXtraCalendar
DirectTransition3D Xtra, Set III
Read Text from a file
Rollover Sound
Photo Caster
Wait for DigitalVideo End
 

 

 

Behavior Title Bar MIAW

Added on 6/10/1999

 

Compatibilities:
behavior D6_5 Mac PC

This item has not yet been rated

Author: RettCrocker

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  

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail