04-14-2025, 12:58 PM
AB,
Try this snippet! The Ldshapes.SetShapeEvent appears to work.
MyShape=Shapes.AddRectangle(40,40)
LDShapes.SetShapeEvent(MyShape)
LDShapes.ShapeEvent=OnShapeEvent
sub OnShapeEvent
TextWindow.WriteLine("H")
EndSub
JR
Try this snippet! The Ldshapes.SetShapeEvent appears to work.
MyShape=Shapes.AddRectangle(40,40)
LDShapes.SetShapeEvent(MyShape)
LDShapes.ShapeEvent=OnShapeEvent
sub OnShapeEvent
TextWindow.WriteLine("H")
EndSub
JR