LiveCode Forums.

Code: Select all

## PURPOSE : resize stack to content when moving to another card
# NOTE: do not use with any cards containing background and/or shared groups, as these cannot be grouped

command autoResizeOnContent pMargins
    # groups all elements into a large temporary group, calls autoResize then ungroups the temp group
    local tControls, tGroupMembers, tGroupID
    lock screen  
    repeat with x = 1 to the number of controls of this card
        put the long name of control x of this card & return after tControls
    end repeat
    filter lines of tControls without regex pattern "\sgroup" // eliminates members of other groups
    repeat for each line tLine in tControls
        if there is a tLine then put the name of tLine & " and " after tGroupMembers
    end repeat
    delete the last word in tGroupMembers
    do merge ("group  [[tGroupMembers]]")
    put it into tGroupID
    autoResize pMargins
    ungroup tGroupID
    select empty
    unlock screen with visual "stretch from top" 
end autoResizeOnContent

command autoResize pMargins
    # Resizes stack by the rect of the temporary group of all content in autoResizeOnContent
    # default margin is 21 px (minus the 4 px of the group) = 17 px (leave blank to accept this)
    # the groups have margin of 4, so subtract that from whatever margin you choose, or leave blank for default of 21 px (= 17 )
    local tRect, tTopLeft, tWidth, tHeight, tGroup
    put the topLeft of this stack into tTopLeft
    if pMargins is empty then put 17 into pMargins
    put the groupIDs of this card into tGroup
    put the rect of group id tGroup into tRect
    
    subtract pMargins from item 1 of tRect
    subtract pMargins from item 2 of tRect
    add pMargins to item 3 of tRect
    add pMargins to item 4 of tRect
    put item 3 of tRect - item 1 of tRect into tWidth
    put item 4 of tRect - item 2 of tRect into tHeight
    
    set the width of this stack to tWidth
    set the height of this stack to tHeight
    set the topLeft of this stack to tTopLeft
    set the loc of group id tGroup to the loc of this card
end autoResize

on openCard
    # if in stack script and if a card has an openCard handler, end this with 'pass openCard' or just add to card script directly
    if the controlIDs of this card is not empty then
        autoResizeOnContent
    end if
end openCard

Code: Select all

create field "tempfield1"
create field "tempfield2"
group field "tempfield1" and field "tempfield2"
delete it

Code: Select all

do merge ("group  [[tGroupMembers]]")

Code: Select all

lock screen for visual effect