BeepSound
(Available in 00 TS Base(GUI) - TS_Base_6_DialogFromResource)
Source
ASSIGN BeepSound( dwBeepSound AS DWORD ) AS DWORD PASCAL CLASS TS_DialogFromResource
// ============================================================================
// TS_DIALOGFROMRESOURCE_BEEP_DEFAULT Standard beep using the computer speaker
// TS_DIALOGFROMRESOURCE_BEEP_SILENT No Sound ( Added for Arie )
// ============================================================================
// MB_ICONASTERISK SystemAsterisk ( Default for 'Error' )
// MB_ICONEXCLAMATION SystemExclamation ( Default for 'Fatal' )
// MB_ICONHAND SystemHand ( Default for 'Warning' )
// MB_ICONQUESTION SystemQuestion
// MB_OK SystemDefault
// ============================================================================
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
#ENDIF
SELF:_BeepSound:=dwBeepSound
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST,