OnCommand
(Available in 00 TS Base(GUI) - TS_Base_6_StatusBoxDialog)
Source
METHOD OnCommand( dwMessage AS DWORD, wParam AS DWORD, lParam AS LONG ) AS VOID PASCAL ; ...
...CLASS TS_StatusBox
LOCAL oStatusBoxButton AS _TS_StatusBoxButton
LOCAL wLoParam AS WORD
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
#ENDIF
wLoParam:=LoWord( wParam )
DO CASE
CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_1
oStatusBoxButton:=SELF:_OButtons[ 1U ]
SELF:Choice:=oStatusBoxButton:_Value
Send( SELF