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, NULL_OBJECT, FALSE )
   END
   SELF:_SetErrorBoxCount:=TS_LOGIC_UNKNOWN
   SELF:_StatusError:=NULL_OBJECT
   SELF:_StatusStatus:=NULL_OBJECT
   SUPER:Destroy( )
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
RETURN NIL