ChoiceMoreLess
(Available in 00 TS Base(GUI) - TS_Base_6_StatusBoxDialog)
Source
METHOD ChoiceMoreLess( ) AS VOID PASCAL CLASS TS_StatusBox
LOCAL oStatusBoxButton AS _TS_StatusBoxButton
#IFDEF TS_TRACETIMED_ENABLE
_TS_TraceTimedEnter( SysAddAtom( PSZ( _CAST, __APPLICATION__ ) ), SysAddAtom ; ...
... ( PSZ( _CAST, __MODULE__ ) ), SysAddAtom( PSZ( _CAST, __ENTITY__ ) ) )
#ENDIF
IF SELF:_StatusStatus<>NULL_OBJECT
SELF:_ShowMore:=SELF:_ShowMore==FALSE
oStatusBoxButton:=SELF:_OButtons[ 2U ]
oStatusBoxButton:_Text:="&"+IIF( SELF:_ShowMore ; ...
... , TS_S_LESS, TS_S_MORE )
SELF:_SetSizeContentLayout( )
SetFocus( oStatusBoxButton:_Handle )
oStatusBoxButton:=NULL_OBJECT
END