Hi Dick,
Great handler that works perfectly :-)
Kudos
Best Regards from Paris,
Eric Chatonet
Le 3 févr. 06 à 10:16, Dick Kriesel a écrit :
Here's a handler that brings a control as close to the front as
possible
without affecting its owner.
No control has its owner changed. All controls other than the one
that
moves keep their original sequence within their owners. No
controls are
copied or deleted, so no system messages like newGroup and
deleteGroup get
sent. There's no "start editing" command, so stepping through the
handler
doesn't cause unexpected results (see the dictionary entry for "start
editing"). The previous value of the relayerGroupedControls is
restored at
the end.
The optional input parameter identifies the control to bring to the
front.
With no input the handler operates on the target.
on bringToFrontWithinOwner pControl
if pControl is empty then
put abbr id of the target into tTarget
else
put abbr id of pControl into tTarget
end if
put long owner of tTarget into tOwner
if word 1 of tOwner is "card" then
put 1 into tLayer
else
put the layer of tOwner + 1 into tLayer
end if
repeat with i = number of controls down to 1
if long owner of control i is tOwner then
if abbr id of control i is not tTarget then
put abbr id of control i & cr after tPeers
-- note: peers share the same owner
end if
end if
end repeat
lock screen
put the relayerGroupedControls into tRelayerGroupedControls
set the relayerGroupedControls to "true"
repeat for each line tPeer in tPeers
set the layer of tPeer to tLayer
end repeat
set the relayerGroupedControls to tRelayerGroupedControls
unlock screen
end bringToFrontWithinOwner
The handler passed my tests. If you find a problem with it, please
let me
know.
------------------------------------------------------------------------
----------------------
http://www.sosmartsoftware.com/ [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
