Enable

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

Source

METHOD Enable( ) AS LOGIC PASCAL CLASS TS_DialogFromResource
LOCAL lRetVal AS USUAL
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
   IF SELF:IsValidObject .AND. SELF:_Handle ; ...
  ... <>NULL_PTR
      EnableWindow( SELF:_Handle, TRUE )
      SetWindowPos( SELF:_Handle, HWND_TOPMOST, 0L, 0L, 0L, 0L ; ...
     ... , _OR( SWP_NOMOVE, SWP_NOSIZE, SWP_SHOWWINDOW ) )
      SetActiveWindow( SELF:_Handle )
      lRetVal:=TRUE
   ELSE
      lRetVal:=FALSE
   END
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedLeave( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
RETURN lRetVal