ItemSetOptions

 (Available in 00 TS Tools(Base) - TS_Tools_Atomizer)

Source

METHOD ItemSetOptions( cItem AS STRING, ulNeedsLeadingWhite AS USUAL, ulNeedsTrailingWhite  ; ...
...AS USUAL, ulNeedsLeadingGray AS USUAL, ulNeedsTrailingGray AS USUAL, ulIsAtractorLeft  ; ...
...AS USUAL, ulIsAtractorRight AS USUAL, ulIsGray AS USUAL, ulIsReserved AS USUAL ; ...
..., ulIsEOL AS USUAL, ulIsEntity AS USUAL, uliID AS USUAL ) AS LOGIC PASCAL CLASS  ; ...
...TS_Atomizer
LOCAL oAtomizerItem AS TS_AtomizerItem
LOCAL lRetVal AS LOGIC
LOCAL iItem AS DWORD
   TSTrace Enter
   iItem:=SELF:_LocateItem( cItem )
   IF LOGIC( _CAST, iItem )
      oAtomizerItem:=SELF:_ItemsAtivated[ iItem ]
      IF IsLogic( ulNeedsLeadingWhite )
         oAtomizerItem:NeedsLeadingWhite:=ulNeedsLeadingWhite
      END
      IF IsLogic( ulNeedsTrailingWhite )
         oAtomizerItem:NeedsTrailingWhite:=ulNeedsTrailingWhite
      END
      IF IsLogic( ulNeedsLeadingGray )
         oAtomizerItem:NeedsLeadingGray:=ulNeedsLeadingGray
      END
      IF IsLogic( ulNeedsTrailingGray )
         oAtomizerItem:NeedsTrailingGray:=ulNeedsTrailingGray
      END
      IF IsLogic( ulIsAtractorLeft )
         IF ulIsAtractorLeft
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_ATRACTORLEFT  ; ...
           ... )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_ATRACTORLEFT  ; ...
           ... )
         END
      END
      IF IsLogic( ulIsAtractorRight )
         IF ulIsAtractorRight
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_ATRACTORRIGHT  ; ...
           ... )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_ATRACTORRIGHT  ; ...
           ... )
         END
      END
      IF IsLogic( ulIsGray )
         IF ulIsGray
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_GRAY )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_GRAY )
         END
      END
      IF IsLogic( ulIsReserved )
         IF ulIsReserved
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_RESERVED )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_RESERVED )
         END
      END
      IF IsLogic( ulIsEOL )
         IF ulIsEOL
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_EOL )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_EOL )
         END
      END
      IF IsLogic( ulIsEntity )
         IF ulIsEntity
            oAtomizerItem:_AddTypeInfo( TS_ATOMIZER_ITEMTYPE_ENTITY )
         ELSE
            oAtomizerItem:_DelTypeInfo( TS_ATOMIZER_ITEMTYPE_ENTITY )
         END
      END
      IF IsNumeric( uliID )
         oAtomizerItem:ID:=LONGINT( uliID )
      END
      oAtomizerItem:=NULL_OBJECT
      lRetVal:=TRUE
   ELSE
      TSTrace Warning "LOGIC(_CAST,SELF:_LocateItem("+cItem+"))"
      lRetVal:=FALSE
   END
   TSTrace Leave
RETURN lRetVal