>PUBLIC oFrm && run as test from Command Window >oFrm = CREATEOBJECT("frmResize") >oFrm.Show() >RETURN > >DEFINE CLASS frmResize AS Form > AutoCenter = .T. > ADD OBJECT tmrResize AS tmrResize > > *************************** > FUNCTION Resize > *************************** > This.tmrResize.Enabled = .T. > >ENDDEFINE > >DEFINE CLASS tmrResize AS Timer > Enabled = .F. > Interval = 20 && event tracking resolution > > *********************** > FUNCTION Timer > *********************** > IF NOT MDOWN() > This.Enabled = .F. > ENDIF > > *************************** > FUNCTION Enabled_Assign > LPARAMETERS vNewval > *************************** > LOCAL vOldval > vOldval = This.Enabled > This.Enabled = m.vNewval > IF This.Enabled <> m.vOldval > IF This.Enabled > This.EventStarted() > ELSE > This.EventEnded() > ENDIF > ENDIF > > ***************************** > FUNCTION EventStarted > ***************************** > ACTIVATE SCREEN > ? TIME(1), "Event Started" > > ***************************** > FUNCTION EventEnded > ***************************** > ACTIVATE SCREEN > ? TIME(1), "Event Ended" > ? > >ENDDEFINE > >>