Show

(Available in 00 TS Base(Base) - TS_Base_5_ErrorSysErrorStatus)

Purpose

Short

Syntax

Arguments

ParamX

Param description

Description

Long

Returns

Return

Example

Source

METHOD Show( ) AS DWORD PASCAL CLASS TS_ErrorStatus
LOCAL struBoxData IS _TS_ErrorSysBoxData
LOCAL dwLevel AS DWORD
   dwLevel:=1U
   IF !_TS_ErrorSysItemShown( SELF, NIL )
      _TS_ErrorSysItemShown( SELF, TRUE )
      IF TS_ErrorSysAborting( )
         SELF:Choice:=EC_ABORT
      ELSE
         struBoxData.ButtonAbort:=SE_NOBUTTON
         struBoxData.ButtonBreak:=SE_NOBUTTON
         struBoxData.ButtonIgnore:=SE_NOBUTTON
         struBoxData.ButtonRetry:=SE_NOBUTTON
         struBoxData.Choice:=SELF:Choice
         struBoxData.ErrorMessage:=String2Psz( SELF:Description  ; ...
        ... )
         struBoxData.ErrorSeverity:=String2Psz( TS_ErrorSysSeverity2String ; ...
        ... ( SELF ) )
         struBoxData.Level:=dwLevel
         struBoxData.Severity:=_TS_ErrorSysItemSeverity( SELF, NIL )
         _TS_ErrorSysErrorBox( SELF, @struBoxData )
      END
   END
RETURN SELF:Choice