I want to observe the 2D drawing being drawn. If I use debugger break-points, nothing is displayed until the whole shape is drawn. So, I thought - use a macro for that instead, but the issue is the same.
Code: Select all
Macro QaNextDrg
;#-------------
InvalidateRect_(GadgetID(#CnvDrawing),#Null, #True)
While WindowEvent() : Wend
MessageRequester("Next", "Next")
EndMacro
Code: Select all
AddPathCircle(ptStart1\x, ptStart1\y, 3, 0, 360, #PB_Path_Default)
VectorSourceColor(RGBA(255, 0, 0, 255))
StrokePath(4)
QaNextDrg
AddPathCircle(ptEnd1\x, ptEnd1\y, 3, 0, 360, #PB_Path_Default)
VectorSourceColor(RGBA(0, 0, 255, 255))
StrokePath(4)
QaNextDrg