DeleteAllShapes removes ALL fo the previous created shapes from memory.
FACTS:
* None
Mini Tutorial:
This example creates a shape, displays the status of the created shapes, calls DeleteAllShapes to delete them all, then displays the status again.
; create 10 shapes,
For ShapeIndex =1 To 10
CreateShape ShapeIndex,10,10
Next
; Display the 10 shapes status
For ShapeIndex=1 To 10
s$="Shape Status:"+Str$(shapeIndex)
Print s$+" "+Str$(GetShapeStatus(ShapeIndex))
Next
; Delete all the Shapes from memory
DeleteAllShapes
; Display the 10 shapes status
Print ""
For ShapeIndex=1 To 10
s$="Shape Status:"+Str$(shapeIndex)
Print s$+" "+Str$(GetShapeStatus(ShapeIndex))
Next
; Display the screen and wait for a key press
Sync
WaitKey
|
This example would output.
Shape Status:1 1
Shape Status:2 1
Shape Status:3 1
Shape Status:4 1
Shape Status:5 1
Shape Status:6 1
Shape Status:7 1
Shape Status:8 1
Shape Status:9 1
Shape Status:10 1
Shape Status:1 0
Shape Status:2 0
Shape Status:3 0
Shape Status:4 0
Shape Status:5 0
Shape Status:6 0
Shape Status:7 0
Shape Status:8 0
Shape Status:9 0
Shape Status:10 0
|
|
