MAVBrowse.tpw, условие отображения иконки

StillZero · Сообщение **StillZero** » 03 Май 2007, 10:55

На закладке настройки иконок для листа, чтобы ввести условие используется entry-поле. А надо бы "кнопку с тремя точками", чтобы появлялся диалог выбора полей. Например так,

Код: Выделить всё

  #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)

и в остальных местах тоже надо

Сообщение **Andrew™** » 10 Май 2007, 10:08

StillZero писал(а):На закладке настройки иконок для листа, чтобы ввести условие используется entry-поле. А надо бы "кнопку с тремя точками", чтобы появлялся диалог выбора полей. Например так,

Код: Выделить всё

  #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)

и в остальных местах тоже надо

а кто мешает в Conditional условие, кге @s255 прописать метод класса

Код: Выделить всё

SELF.IconColumn1()

и реализовать данный метод, тады строк для реализации кода будет немерянно

StillZero · Сообщение **StillZero** » 10 Май 2007, 13:46

строк для реализации кода будет немерянно

да не, дело не в количестве, обычно в этом поле надо выбрать какую-либо переменную, т.е. чутка подправить PROMPT, чтобы было удобнее

Сообщение **Andrew™** » 14 Май 2007, 15:26

StillZero писал(а):
строк для реализации кода будет немерянно
да не, дело не в количестве, обычно в этом поле надо выбрать какую-либо переменную, т.е. чутка подправить PROMPT, чтобы было удобнее

но если я вкрячу такую кнопку, будет проверка на видимость переменной, т е не смогу вставить условие типа

Код: Выделить всё

SELF.Isicon = 1

если оставить как есть, то можно что угодно вставить

StillZero · Сообщение **StillZero** » 16 Май 2007, 4:03

но если я вкрячу такую кнопку, будет проверка на видимость переменной

не будет, промпт типа EXPR, это не промпт типа FIELD, т.е. позволяет вводить все-что угодно

Сообщение **Andrew™** » 16 Май 2007, 8:51

StillZero писал(а):
но если я вкрячу такую кнопку, будет проверка на видимость переменной
не будет, промпт типа EXPR, это не промпт типа FIELD, т.е. позволяет вводить все-что угодно

ага, точно, реализовал, не только для иконок, но и везде где можно задавать Conditional условия, Color, для Buttons и т д

forum.clarionlife.net

MAVBrowse.tpw, условие отображения иконки

MAVBrowse.tpw, условие отображения иконки

Re: MAVBrowse.tpw, условие отображения иконки