Code: Select all
@DISPLAY {Width = 300, Height = 200, Layers = True}
SetFillStyle(#FILLCOLOR)
Const #Name$="n"
Box(10, 20, 100, 50, #WHITE, {Name=#Name$})
DebugPrint("ATTRWIDTH",GetAttribute(#LAYER, #Name$, #ATTRWIDTH))
DebugPrint("ATTRHEIGHT",GetAttribute(#LAYER, #Name$, #ATTRHEIGHT))
Wait(1,#SECONDS)
SetLayerStyle(#Name$,{Width=250, Height=77})
DebugPrint("ATTRWIDTH",GetAttribute(#LAYER, #Name$, #ATTRWIDTH))
DebugPrint("ATTRHEIGHT",GetAttribute(#LAYER, #Name$, #ATTRHEIGHT))
Wait(10,#SECONDS)