OnInitDialog

 (Available in 00 TS Base(GUI) - TS_Base_6_StatusBoxDialog)

Source

METHOD OnInitDialog( hNextFocus AS PTR, lInitParam AS LONG ) AS LOGIC PASCAL CLASS  ; ...
...TS_StatusBox
LOCAL oStatusBoxButton AS _TS_StatusBoxButton
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
   SUPER:OnInitDialog( hNextFocus, lInitParam )
   SELF:_HCheckBox1:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_CHECKBOX_1 )
   SELF:_HCheckBox2:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_CHECKBOX_2 )
   SELF:_HCheckBox3:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_CHECKBOX_3 )
   SELF:_HFixedBitmap:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_FIXEDBITMAP )
   SELF:_HMultiLineEdit:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_MULTILINEEDIT )
   SELF:_WinProcMLE:=SetWindowLong( SELF:_HMultiLineEdit ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcMLE( ) ) )
   SELF:_HGroupBox:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_GROUPBOX )
   oStatusBoxButton:=SELF:_OButtons[ 1U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_1 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=SELF:_OButtons[ 2U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_2 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=SELF:_OButtons[ 3U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_3 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=SELF:_OButtons[ 4U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_4 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=SELF:_OButtons[ 5U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_5 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=SELF:_OButtons[ 6U ]
   oStatusBoxButton:_Handle:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_PUSHBUTTON_6 )
   oStatusBoxButton:_WinProc:=PTR( _CAST, SetWindowLong( oStatusBoxButton:_Handle ; ...
  ... , GWL_WNDPROC, LONGINT( _CAST, @_TS_StatusBoxWinProcButton( ) ) ) )
   oStatusBoxButton:=NULL_OBJECT
   SELF:_HSingleLineEdit:=GetDlgItem( SELF:Handle ; ...
  ... , _TS_STATUSBOXRESOURCE_SINGLELINEEDIT )
   SetWindowLong( SELF:Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW  ; ...
  ... )
   SetWindowText( SELF:_HCheckBox1, String2Psz( TS_S_STACK+TS_S_INFO  ; ...
  ... ) )
   SetWindowText( SELF:_HCheckBox2, String2Psz( TS_S_ERROR+TS_S_INFO  ; ...
  ... ) )
   SetWindowText( SELF:_HCheckBox3, String2Psz( TS_S_EXTENDED ; ...
  ... +TS_S_INFO ) )
   SELF:_SetSizeContentLayout( )
   oStatusBoxButton:=SELF:_OButtons[ 1U ]
   SetFocus( oStatusBoxButton:_Handle )
   oStatusBoxButton:=NULL_OBJECT
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
// The dialog box procedure should return TRUE to direct Windows to set the keyboard ; ...
// ...focus to the control given by hNextFocus
RETURN FALSE