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(