Search content:

 

Personal Menu
Username:
Password:
Save password

Become a member

Forgot Password?

 

Don't miss these
Set FrameRate of a Animated GIF Sprite
Play/ Pause/ Rewind/ StepForward/ StepBackward Video Sprite
Scroll Wheel Lock Behavior
PDFCreator Xtra
Face Sprite-Alphamania
Happy Hour Fonts
vList Utility
Open File WIth Associated Application
Set Sprite Full Screen
Sprite controls
MediaMacros Xtras Mall
 

 

 

Behavior Title Bar Color Gradient Effect Behavior

Added on 1/21/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

Allows to enable and disable Windows98/Me and Windows2000/XP Title Bar Color Gradient Effect

-- Color Gradient Effect Behavior
-- Desktop Xtra 1.0 or later required
-- Compatibilities: Director 6.x, 7.x, 8.x, Windows

property Gradient

on getPropertyDescriptionList
  set description = [:]
  addProp description, #Gradient, [#default: 1, #format:#integer, #comment:"Color gradient effect in windows title bar:" & RETURN & "(1 to enable, 0 to disable)"]
  return description
end

on getBehaviorDescription
  return "            " & ¬
  "- -    Colors Gradient Behavior    - -" & RETURN & ¬
  "Allows to enable or disable color gradient effect in windows title bar that available on Windows98/Me and Windows2000/XP." & RETURN & ¬
  "No need to check windows version, on Windows 95 it just doesn't work without error return."
end

on mouseDown
  setTitleGradient
end

on setTitleGradient
  
  set Ok = setGradient (Gradient)
  if getAt(Ok,1) = 0 then
    -- Ok
  else
    -- Error
    alert("Error: " & getAt(Ok,1) & " - base error code")
  end if
  
end

 


Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail