INIT

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

Source

METHOD INIT( uoOwner, ucResource, ucCaption ) CLASS TS_DialogFromResource
LOCAL oGlobalData AS _TS_GlobalData
LOCAL oSelf AS TS_DialogFromResource
LOCAL X AS DWORD
   #IFDEF TS_TRACETIMED_ENABLE
      _TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
     ... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
   #ENDIF
   oGlobalData:=_TS_GlobalDataGet( )
   oSelf:=SELF
   X:=AScan( oGlobalData:_DialogFromResourceStack, { | _a | _a[ 2U ]==oSelf  ; ...
  ... } )
   IF LOGIC( _CAST, X )
      SELF:OnError( TRUE, __APPLICATION__, __MODULE__, __ENTITY__ ; ...
     ... , __LINE__, "AScan(oGlobalData:_DialogFromResourceStack,{|_a|_a[2U]==oSelf})<>0"  ; ...
     ... )
   ELSE
      IF IsObject( uoOwner )
         SELF:_Owner:=uoOwner
      ELSE
         SELF:_Owner:=NULL_OBJECT
      END
      IF Empty( ucResource )
         SELF:_DialogResource:= ; ...
        ... "_TS_DIALOGFROMRESOURCE_RESOURCE"
      ELSE
         SELF:_DialogResource:=AsString( ucResource )
      END
      IF Empty( ucCaption