Public Sub Draw
If Mode = "Measure" Then Return
pthScene.Initialize(SceneOriginX, 0)
pthScene.LineTo(cvsGrid.TargetRect.Width, 0)
pthScene.LineTo(cvsGrid.TargetRect.Width, SceneOriginY)
pthScene.LineTo(SceneOriginX, SceneOriginY)
'cvsScene.ClipPath(pthScene) <= Commented out
cvsCursor.ClearRect(cvsScene.TargetRect)
cvsScene.ClearRect(cvsScene.TargetRect)
For o = 0 To ListObjects.Size - 1
Private Obj As ObjectData
Obj = ListObjects.Get(o)
If Obj.ObjectType = "Building" Then
Obj.Item.As(BuildingObject).Draw
End If
Next
For o = 0 To ListObjects.Size - 1
Private Obj As ObjectData
Obj = ListObjects.Get(o)
If Obj.ObjectType = "Load" Then
Obj.Item.As(LoadObject).Draw
End If
Next
For o = 0 To ListObjects.Size - 1
Private Obj As ObjectData
Obj = ListObjects.Get(o)
If Obj.ObjectType = "Crane" Then
Obj.Item.As(CraneObject).Draw
End If
Next
cvsScene.Invalidate
End Sub