Generic behavior to change System Cursors
|
From: charles1965 on 9 Jun 2008 07:51 -- Generic behavior to change System Cursors -- Desktop Xtra 1.0 or later required -- Compatibilities: Director 6.x, 7.x, 8.x, Windows property Cursors property Appstarting, Arrow, Crosshair, Ibeam, No, Sizeall, Sizenesw property Sizens, Sizenwse, Sizewe, Uparrow, Wait, Hand on getPropertyDescriptionList set description = [:] set path = the moviePath addProp description, #Appstarting, [#default: path & "Appstarting.cur", #format:#string, #comment:"Standard arrow and small hourglass:"] addProp description, #Arrow, [#default: path & "Arrow.cur", #format:#string, #comment:"Standard arrow:"] addProp description, #Crosshair, [#default: path & "Crosshair.cur", #format:#string, #comment:"Crosshair:"] addProp description, #Ibeam, [#default: path & "Ibeam.cur", #format:#string, #comment:"I-beam:"] addProp description, #No, [#default: path & "No.cur", #format:#string, #comment:"Slashed circle:"] addProp description, #Sizeall, [#default: path & "Sizeall.cur", #format:#string, #comment:"Four-pointed arrow pointing north, south, east, and west:"] addProp description, #Sizenesw, [#default: path & "Sizenesw.cur", #format:#string, #comment:"Double-pointed arrow pointing northeast and southwest:"] addProp description, #Sizens, [#default: path & "Sizens.cur", #format:#string, #comment:"Double-pointed arrow pointing north and south:"] addProp description, #Sizenwse, [#default: path & "Sizenwse.cur", #format:#string, #comment:"Double-pointed arrow pointing northwest and southeast:"] addProp description, #Sizewe, [#default: path & "Sizewe.cur", #format:#string, #comment:"Double-pointed arrow pointing west and east:"] addProp description, #Uparrow, [#default: path & "Uparrow.cur", #format:#string, #comment:"Vertical arrow:"] addProp description, #Wait, [#default: path & "Wait.cur", #format:#string, #comment:"Hourglass:"] addProp description, #Hand, [#default: path & "Hand.cur", #format:#string, #comment:"Hand (for Windows2000 or later):"] return description end on getBehaviorDescription return " " & � "- - System Cursors Bahavior - -" & RETURN & � "Changes all system cursors:"& RETURN & � "Appstarting, Arrow, Crosshair, Ibeam, No, Sizeall, Sizenesw, Sizens, Sizenwse, Sizewe, Uparrow, Wait, Hand." end on mouseDown -- List of all system desktop icons set Cursors = [] add Cursors, "Appstarting" add Cursors, "Arrow" add Cursors, "Crosshair" add Cursors, "Ibeam" add Cursors, "No" add Cursors, "Sizeall" add Cursors, "Sizenesw" add Cursors, "Sizens" add Cursors, "Sizenwse" add Cursors, "Sizewe" add Cursors, "Uparrow" add Cursors, "Wait" add Cursors, "Hand" changeCursors end on changeCursors set cursor = "" repeat with i = 1 to count(Cursors) do "set cursor="&getAt(Cursors,i) set Ok = setSystemCursor (getAt(Cursors,i), cursor) if getAt(Ok,1) = 0 then -- Ok else -- Error alert("Error: " & getAt(Ok,1) & " - base error code") end if end repeat end
From: alchemist on 12 Jun 2008 20:24 ??? What is this ??? "charles1965" <webforumsuser(a)macromedia.com> wrote in message news:g2j5g0$qlj$1(a)forums.macromedia.com... > -- Generic behavior to change System Cursors > -- Desktop Xtra 1.0 or later required > -- Compatibilities: Director 6.x, 7.x, 8.x, Windows > > property Cursors > property Appstarting, Arrow, Crosshair, Ibeam, No, Sizeall, Sizenesw > property Sizens, Sizenwse, Sizewe, Uparrow, Wait, Hand > > > on getPropertyDescriptionList > set description = [:] > set path = the moviePath > addProp description, #Appstarting, [#default: path & "Appstarting.cur", > #format:#string, #comment:"Standard arrow and small hourglass:"] > addProp description, #Arrow, [#default: path & "Arrow.cur", > #format:#string, > #comment:"Standard arrow:"] > addProp description, #Crosshair, [#default: path & "Crosshair.cur", > #format:#string, #comment:"Crosshair:"] > addProp description, #Ibeam, [#default: path & "Ibeam.cur", > #format:#string, > #comment:"I-beam:"] > addProp description, #No, [#default: path & "No.cur", #format:#string, > #comment:"Slashed circle:"] > addProp description, #Sizeall, [#default: path & "Sizeall.cur", > #format:#string, #comment:"Four-pointed arrow pointing north, south, east, > and > west:"] > addProp description, #Sizenesw, [#default: path & "Sizenesw.cur", > #format:#string, #comment:"Double-pointed arrow pointing northeast and > southwest:"] > addProp description, #Sizens, [#default: path & "Sizens.cur", > #format:#string, #comment:"Double-pointed arrow pointing north and > south:"] > addProp description, #Sizenwse, [#default: path & "Sizenwse.cur", > #format:#string, #comment:"Double-pointed arrow pointing northwest and > southeast:"] > addProp description, #Sizewe, [#default: path & "Sizewe.cur", > #format:#string, #comment:"Double-pointed arrow pointing west and east:"] > addProp description, #Uparrow, [#default: path & "Uparrow.cur", > #format:#string, #comment:"Vertical arrow:"] > addProp description, #Wait, [#default: path & "Wait.cur", > #format:#string, > #comment:"Hourglass:"] > addProp description, #Hand, [#default: path & "Hand.cur", > #format:#string, > #comment:"Hand (for Windows2000 or later):"] > return description > end > > on getBehaviorDescription > return " " & � > "- - System Cursors Bahavior - -" & RETURN & � > "Changes all system cursors:"& RETURN & � > "Appstarting, Arrow, Crosshair, Ibeam, No, Sizeall, Sizenesw, Sizens, > Sizenwse, Sizewe, Uparrow, Wait, Hand." > end > > on mouseDown > -- List of all system desktop icons > set Cursors = [] > add Cursors, "Appstarting" > add Cursors, "Arrow" > add Cursors, "Crosshair" > add Cursors, "Ibeam" > add Cursors, "No" > add Cursors, "Sizeall" > add Cursors, "Sizenesw" > add Cursors, "Sizens" > add Cursors, "Sizenwse" > add Cursors, "Sizewe" > add Cursors, "Uparrow" > add Cursors, "Wait" > add Cursors, "Hand" > changeCursors > end > > on changeCursors > set cursor = "" > repeat with i = 1 to count(Cursors) > do "set cursor="&getAt(Cursors,i) > set Ok = setSystemCursor (getAt(Cursors,i), cursor) > if getAt(Ok,1) = 0 then > -- Ok > else > -- Error > alert("Error: " & getAt(Ok,1) & " - base error code") > end if > end repeat > end >
|
Pages: 1 Prev: quicktime usage in director Next: Loading Bar managing multiples netthings |