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
Flash Development
AnySaver
Set Loop Property of a Flash member
IMS CharacterGenerator Studio
Lingo Library
Shell Xtra
A* Pathfinder in Lingo
Timehouse Speech Xtra
Drag Sprite with Hotspot
Mac Drive
 

 

 

Behavior Generic behavior to set Wallpaper

Added on 1/19/2002

 

Compatibilities:
behavior D6_5 D7 D8 D8_5 PC UK US

Required Xtras:
Desktop Xtra

This item has not yet been rated

Author: Shockdev

Sets desktop wallpaper

-- Generic behavior to set Wallpaper
-- Desktop Xtra 1.0 or later required
-- Compatibilities: Director 6.x, 7.x, 8.x, Windows

property Wallpaper, PrevWallPaper

on getPropertyDescriptionList
  set description = [:]
  addProp description, #Wallpaper, [#default: the moviePath & "mywallpaper.bmp", #format:#string, #comment:"Wallpaper Path:" & RETURN & "(empty string to remove wallpaper)"]
  return description
end

on getBehaviorDescription
  return "            " &
  "- -    Wallpaper Behavior    - -" & RETURN &
  "Sets Wallpaper."
end

on mouseDown
  setWallpaper
end

on setWallpaper
  set Ok = SetDeskWallPaper (Wallpaper)
  if getAt(Ok, 1) = 0 then
    -- Ok
    set PrevWallPaper = getAt(Ok, 3) -- previous wallpaper
  else
    -- Error
    alert("Error: " & getAt(Ok, 1) & " - base error code")
  end if
end

 


Contact

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

Send e-mail