Destroy
(Available in 00 TS Base(GUI) - TS_Base_6_StatusBoxDialog)
Source
METHOD Destroy( ) CLASS TS_StatusBox
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
#ENDIF
SELF:_App:=NULL_OBJECT
IF SELF:_Bitmap<>NULL_PTR
DeleteObject( SELF:_Bitmap )
SELF:_Bitmap:=NULL_PTR
END
IF SELF:_OButtons<>NULL_ARRAY
AFill( SELF:_OButtons, NIL )
SELF:_OButtons:=NULL_ARRAY
END
SELF:_ErrorSharedObj:=NULL_OBJECT
SELF:_FriendlyMessage:=NULL_STRING
SELF:_ProductName:=NULL_STRING
IF SELF:_SetErrorBoxCount==TS_LOGIC_TRUE
SELF:_SetErrorBoxCount:=TS_LOGIC_FALSE
_TS_ErrorSysSetErrorBoxCount( FALSE,