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
EXE Screen Saver
Side Scroller
Video Cleanup
TetonPop Xtra
Ultimate karaoke behavior.
NJC - Space Invaders
MUI-GUI
SpriTec Xtra! - Export your Cast and Score
Scroll Sprite by MouseLoc Behavior
Xtrema - Unicode String Class [ public beta ]
 

 

 

Behavior Color Dialog behavior

Added on 2/24/2003

 

Compatibilities:
behavior D6_5 D7 D8 D8_5 D9 PC US

Required Xtras:
HandyDialog Xtra

This item has not yet been rated

Author: Shockdev

Generic behavior to display Color Selection Dialog.

-- Color Dialog Behavior
-- HandyDialog Xtra 1.0 or later is required
-- by Meliora Software www.meliorasoft.com/xtras/
-- Compatibilities: Director 6.0 or higher, Windows

property Version, Color1, Color2, Color3, IC

on getPropertyDescriptionList
  set description = [:]
  addProp description, #Version, [#default:"", #format:#string, #comment:"Dialog Type (Basic, Full or NoFullOpen):"]
  addProp description, #Color1, [#default:"", #format:#string, #comment:"Custom Color 1 (R,G,B):"]
  addProp description, #Color2, [#default:"", #format:#string, #comment:"Custom Color 2 (R,G,B):"]
  addProp description, #Color3, [#default:"", #format:#string, #comment:"Custom Color 3 (R,G,B):"]
  addProp description, #IC, [#default:"", #format:#string, #comment:"Initially Selected Color (R,G,B):"]
  return description
end

on mouseDown
  colorDialog
end

on colorDialog
  -- Color Dialog Init Settings
  set InitSettings = [:]
  addProp InitSettings, #Version, Version
  set TempDelimiter = the itemDelimiter
  set the itemDelimiter = ","
  set C1 = [integer(item 1 of Color1), integer(item 2 of Color1), integer(item 3 of Color1)]
  set C2 = [integer(item 1 of Color2), integer(item 2 of Color2), integer(item 3 of Color2)]
  set C3 = [integer(item 1 of Color3), integer(item 2 of Color3), integer(item 3 of Color3)]
  set Colors = [C1, C2, C3]
  addProp InitSettings, #CustomColors, Colors
  set InitColor = [integer(item 1 of IC), integer(item 2 of IC), integer(item 3 of IC)]
  addProp InitSettings, #InitColor, InitColor
  
  set Ok = showColorDialog(InitSettings)
  
  if getAt(Ok,1) = 0 then
    if count(Ok) = 3 then
      -- Some color was selected
      put getAt(Ok,3)
    else
      --  Cancel button was clicked
      put "Cancel button was clicked"
    end if
  else
    -- Error occured
    alert("Error: " & getAt(Ok, 1) & " - base error code")
  end if
  
  set the itemDelimiter = TempDelimiter
  
end

on getBehaviorDescription
  return "- -   Color Selection Dialog Behavior   - -"
end

 


Contact

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

Send e-mail