OnInitDialog

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

Source

METHOD OnInitDialog( hNextFocus AS PTR, lInitParam AS LONG ) AS LOGIC PASCAL CLASS  ; ...
...TS_DialogFromResource
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
   SetWindowText( SELF:_Handle, Cast2Psz( SELF:_Caption  ; ...
  ... ) )
   IF SELF:_BeepSound<>TS_DIALOGFROMRESOURCE_BEEP_SILENT
      IF SELF:_BeepSound<>TS_DIALOGFROMRESOURCE_BEEP_DEFAULT
         MessageBeep( SELF:_BeepSound )
      ELSE
         _TS_ErrorSysErrorBeep( )
      END
   END
   #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 TRUE