*-------------------------------------------------------------------------- * -- Parsing Process for OStreet field and Pstreet field in BLDMSTR table *-------------------------------------------------------------------------- select BldMstr local lnRecno, lcOrder lnRecno=recno() lcOrder=order() with thisform .lockscreen=.t. if .ProcParse() .lockscreen=.f. if not .editmode && If already in Editmode then Just Save .navstand.cmdEdit.click() && In Edit Mode endif .add() && Save changes if .ProcType='prclproc' and .SubProc='ppsitus' .cmdShowAddress.visible=.t. endif goto m.lnRecno endif endwith if !empty(m.lcOrder) set order to (m.lcOrder) else set order to endif thisform.grdBldMstr.SetFocus() thisform.lockscreen=.f.And here is the last lines of code in ProcParse() method: (BTW, I have the same situation with other buttons and methods too):
endscan endif && Do nothing if proctype is not PrclProc endwith set message to 'Process is complete...' loTherm.complete() if vartype(loTherm)='O' loTherm.release() endif release loThermwhere loTherm was declared as local and instantiated with
loTherm = newobject("thermometer", "wg","","Calculating Progress for:" + m.lcTitle, ; m.lnReccount) loTherm.show()I was trying couple of ideas already (haven't tried sleep function yet), but the thermometer get relased only after TableUpdate() finished its work (wich takes time). I want it to release immediatelly.