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, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_2
      oStatusBoxButton:=SELF:_OButtons[ 2U ]
      SELF:Choice:=oStatusBoxButton:_Value
      Send( SELF, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_3
      oStatusBoxButton:=SELF:_OButtons[ 3U ]
      SELF:Choice:=oStatusBoxButton:_Value
      Send( SELF, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_4
      oStatusBoxButton:=SELF:_OButtons[ 4U ]
      SELF:Choice:=oStatusBoxButton:_Value
      Send( SELF, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_5
      oStatusBoxButton:=SELF:_OButtons[ 5U ]
      SELF:Choice:=oStatusBoxButton:_Value
      Send( SELF, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_PUSHBUTTON_6
      oStatusBoxButton:=SELF:_OButtons[ 6U ]
      SELF:Choice:=oStatusBoxButton:_Value
      Send( SELF, oStatusBoxButton:_Function )
      SetFocus( oStatusBoxButton:_Handle )
      oStatusBoxButton:=NULL_OBJECT
   CASE wLoParam==_TS_STATUSBOXRESOURCE_CHECKBOX_1
      SELF:_StatusBoxIsWithStack:=SendMessage( SELF:_HCheckBox1 ; ...
     ... , BM_GETCHECK, 0U, 0L )<>0L
      SELF:_SetSizeContentLayout( )
      SetFocus( SELF:_HCheckBox1 )
   CASE wLoParam==_TS_STATUSBOXRESOURCE_CHECKBOX_2
      SELF:_StatusBoxIsWithError:=SendMessage( SELF:_HCheckBox2 ; ...
     ... , BM_GETCHECK, 0U, 0L )<>0L
      DO CASE
      CASE SELF:_StatusBoxIsWithError==FALSE
         SendMessage( SELF:_HCheckBox3, BM_SETCHECK, BST_UNCHECKED ; ...
        ... , 0L )
      CASE SELF:_StatusBoxIsWithExtEr
         SendMessage( SELF:_HCheckBox3, BM_SETCHECK, BST_CHECKED ; ...
        ... , 0L )
      OTHERWISE
         SendMessage( SELF:_HCheckBox3, BM_SETCHECK, BST_UNCHECKED ; ...
        ... , 0L )
      END
      SELF:_SetSizeContentLayout( )
      SetFocus( SELF:_HCheckBox2 )
   CASE wLoParam==_TS_STATUSBOXRESOURCE_CHECKBOX_3
      SELF:_StatusBoxIsWithExtEr:=SendMessage( SELF:_HCheckBox3 ; ...
     ... , BM_GETCHECK, 0U, 0L )<>0L
      IF SELF:_StatusBoxIsWithExtEr
         SendMessage( SELF:_HCheckBox2, BM_SETCHECK, BST_CHECKED ; ...
        ... , 0L )
         SELF:_StatusBoxIsWithError:=TRUE
      END
      SELF:_SetSizeContentLayout( )
      SetFocus( SELF:_HCheckBox3 )
   END
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
RETURN