Bonjour Chipp,
Le 8 août 08 à 22:49, Chipp Walters a écrit :
If anyone already has an "isEffectiveVisible" function, let me know.
IsVisible returns any control effective visibility:
function IsVisible pObj
if not the visible of pObj then return false
repeat until "Card" is word 1 of the long owner of pObj
put the long owner of pObj into pObj
if not the visible of pObj then return false
end repeat
return true
end IsVisible
ObjOwners lists the owners of an object:
function ObjOwners pObj
-- return the owners of any object until the card (not included)
local tOwner,tOwners
-----
put pObj into tOwner
repeat until "Card" is word 1 of the long owner of tOwner
put the long owner of tOwner & cr after tOwners
put the long owner of tOwner into tOwner
end repeat
if tOwners = empty then return pObj
return pObj & cr & line 1 to -1 of tOwners
end ObjOwners
OutOfCardWindow returns is an object is out of the card window:
function OutOfCardWindow pObj,pCard
if the left of pObj > the right of pCard then return true
if the right of pObj < 0 then return true
if the bottom of pObj < 0 then return true
if the top of pObj > the bottom of pCard then return true
return false
end OutOfCardWindow
IsHiddenByAnotherControl checks if a control can be hidden by another
one:
function IsHiddenByAnotherControl pObj,pCard
repeat with i = (the layer of pObj + 1) to the number of controls
of pCard
if the topLeft of pObj is within the rect of control i of pCard
and the botright of pObj is within the rect of control i of pCard and
the opaque of control i of pCard then return true
end repeat
return false
end IsHiddenByAnotherControl
Best regards from Paris,
Eric Chatonet.
----------------------------------------------------------------
Plugins and tutorials for Revolution: http://www.sosmartsoftware.com/
Email: [EMAIL PROTECTED]/
----------------------------------------------------------------
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
