Hi All,

I have a form. At runtime I add a bunch of objects to the form, mainly rectangular shapes. I then want to draw some lines over those shapes using THISFORM.LINE(X,Y) method.

Pseudo code 1:

THISFORM.LOCKSCREEN=.T.
ADDOBJECT( shapes )  &&  mulitple shapes added
THISFORM.LINE(X,Y)   &&  multiple lines needed
THISFORM.LOCKSCREEN=.F.

In the above example either no lines are shown or they are shown but behind the shapes even though the shapes were drawn/added first.

Pseudo Code 2:

THISFORM.LOCKSCREEN=.T.
ADDOBJECT( shapes )  &&  mulitple shapes added
THISFORM.LOCKSCREEN=.F.

THISFORM.LOCKSCREEN=.T.
THISFORM.LINE(X,Y)   &&  multiple lines needed
THISFORM.LOCKSCREEN=.F.

In this example again no lines are drawn or they incorrectly appear behind the shapes.

However, if I introduce an INKEY() between the two operations the lines appear correctly and on top of the shapes as desired. i.e.;

Pseudo Code 3:

THISFORM.LOCKSCREEN=.T.
ADDOBJECT( shapes )
THISFORM.LOCKSCREEN=.F.

INKEY(0.01)

THISFORM.LOCKSCREEN=.T.
THISFORM.LINE(X,Y)
THISFORM.LOCKSCREEN=.F.

Substituting DOEVENTS for the INKEY() does not work. Only using INKEY() (or probably some other wait state I assume).


Why?