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
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA