Код: Выделить всё
#TAB('&Icons'),WHERE(%ControlHasIcon)
#PREPARE
#FIND(%ControlInstance,%ActiveTemplateInstance,%Control)
#ENDPREPARE
#BUTTON('&Customize BrowseBox Icons'),FROM(%ControlField,' ' & %ControlField & ' - ' & %ControlFieldIcon),AT(,44),INLINE,WHERE(%ControlFieldHasIcon)
#PREPARE
#FIND(%ControlInstance,%ActiveTemplateInstance,%Control)
#ENDPREPARE
#DISPLAY(' Default Icon'),PROP(PROP:Color,8421504),PROP(PROP:FontColor,16777215),PROP(PROP:FontStyle,700),AT(,,190)
#PROMPT('',OPENDIALOG('Select icon file','icon file|*.ico')),%ControlFieldIcon,AT(10,16,190)
#DISPLAY(' Conditional Icon Usage'),PROP(PROP:Color,8421504),PROP(PROP:FontColor,16777215),PROP(PROP:FontStyle,700),AT(,30,190)
#BUTTON('&Conditional Icon Usage'),MULTI(%ConditionalIcons,' ' & %IconCondition & ' - ' & %ConditionalControlFieldIcon),INLINE,AT(,,190)
#DISPLAY(' Condition'),PROP(PROP:Color,8421504),PROP(PROP:FontColor,16777215),PROP(PROP:FontStyle,700),AT(,,190)
#PROMPT('',EXPR),%IconCondition,REQ,AT(,,190)
#DISPLAY(' Icon'),PROP(PROP:Color,8421504),PROP(PROP:FontColor,16777215),PROP(PROP:FontStyle,700),AT(,,190)
#PROMPT('',OPENDIALOG('Select icon file','icon file|*.ico')),%ConditionalControlFieldIcon,REQ,AT(,,190)
#ENDBUTTON
#ENDBUTTON
#ENDTAB
Код: Выделить всё
#PROMPT('',EXPR),%IconCondition,REQ,AT(,,190)