Is there a way to hide the group in the dialogue?

[Eugene Lutsenko]

Is there a way to hide or show groups in dialogue zavismosti from values ​​previously entered variables?
Something like this (it works fine):

Code: Select all

@ 5.25, 2 DCSAY 'В качестве классов рассматриваются:' PARENT oGroup7 EDITPROTECT {|| .NOT.mScenario=3 } HIDE {|| .NOT.mScenario=3 }

And unfortunately it is already causing compile-time error:

Code: Select all

@ 5.25, 2 DCGROUP oGroup8  CAPTION 'В качестве классов рассматриваются:' SIZE mWidthFrame*2+1,3.5  PARENT oGroup7 EDITPROTECT {|| .NOT.mScenario=3 } HIDE {|| .NOT.mScenario=3 }

[Wolfgang Ciriack]

Remove the EDITPROTECT clause of DCGROUP.

[Eugene Lutsenko]

When I select the variant red, then appear below its corresponding input fields with comments. When choosing another option, these fields disappear:

Code: Select all

   mStrinFrame = mStrinFrame+4
********************************
   @mStrinFrame, 0              DCGROUP oGroup7 CAPTION 'Задание параметров формирования сценариев или способа интерпретации текстовых полей "Inp_data":' SIZE mWidthFrame*2+3, 12.5
   @ 1, 2                       DCRADIO mScenario VALUE 1 PROMPT 'Не применять сценарный метод АСК-анализа и спец.интерпретацию TXT-полей' PARENT oGroup7 SIZE 0
   @ 2, 2                       DCRADIO mScenario VALUE 2 PROMPT 'Применить сценарный метод прогнозирования АСК-анализа'                  PARENT oGroup7 SIZE 0
   @ 3, 2                       DCRADIO mScenario VALUE 3 PROMPT 'Применить специальную интерпретацию текстовых полей "Inp_data"'         PARENT oGroup7 SIZE 0

   @ 1.7, mWidthFrame+3+19      DCPUSHBUTTON CAPTION "Пояснения по режиму" SIZE 30, 2.1 ACTION {||Help2_3_2_2scen()} PARENT oGroup7
********************************
   @ 4.6,2+2.5                  DCSAY "Параметры формирования сценариев:"      PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }  FONT "10.HelvBold" SIZE 0
   @ 5.5,2+2.5                  DCSAY "Глубина предыстории минимальная :"      PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 6.5,2+2.5                  DCSAY "Глубина предыстории минимальная :"      PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 6.5,2+2.5                  DCSAY "Глубина предыстории максимальная:"      PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 5.5,mPosGet                DCGET mGlubMin                                 PARENT oGroup7 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
   @ 6.5,mPosGet                DCGET mGlubMax                                 PARENT oGroup7 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
   @ 5.5,mWidthFrame+3+2.5      DCSAY "Горизонт прогнозирования минимальный :" PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 6.5,mWidthFrame+3+2.5      DCSAY "Горизонт прогнозирования максимальный:" PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 5.5,mWidthFrame+3+mPosGet  DCGET mGorizMin                                PARENT oGroup7 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
   @ 6.5,mWidthFrame+3+mPosGet  DCGET mGorizMAx                                PARENT oGroup7 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }

[/size]


But I can not do it when the fields should be grouped. I know that if you remove EDITPROTETST, the compiler error disappears. But I need a similar construction for groups. That's what I'm asking.

PS please excuse for disgusting automated translation

Code: Select all

********************************
   @ 7.1, 2+2.5                 DCSAY 'Параметры интерпретации значений текстовых полей "Inp_data":'          PARENT oGroup7 EDITPROTECT {|| .NOT.mScenario=3 } HIDE {|| .NOT.mScenario=3 } FONT "10.HelvBold" SIZE 0
   @ 8.25, 2                    DCGROUP oGroup8  CAPTION 'В качестве классов рассматриваются:' SIZE mWidthFrame-2,3.5  PARENT oGroup7
   @ 1, 2                       DCRADIO mTxtCSField VALUE 1 PROMPT 'Целые знач.полей'                         PARENT oGroup8
   @ 1, 2+19                    DCRADIO mTxtCSField VALUE 2 PROMPT 'Элементы знач.полей-символы'              PARENT oGroup8
   @ 2, 2                       DCRADIO mTxtCSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'  PARENT oGroup8
   @ 2, mPosGet-2               DCGET mTxtCSSep                                                               PARENT oGroup8

   @ 8.25, mWidthFrame+3        DCGROUP oGroup9  CAPTION 'В качестве признаков рассматриваются:' SIZE mWidthFrame-2,3.5  PARENT oGroup7
   @ 1, 2                       DCRADIO mTxtOSField VALUE 1 PROMPT 'Целые знач.полей'                         PARENT oGroup9
   @ 1, 2+19                    DCRADIO mTxtOSField VALUE 2 PROMPT 'Элементы знач.полей-символы'              PARENT oGroup9
   @ 2, 2                       DCRADIO mTxtOSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'  PARENT oGroup9
   @ 2, mPosGet                 DCGET mTxtOSSep                                                               PARENT oGroup9
********************************

[/size]


I would like to dialogue groups is not visualized when not selected third paragraph (blue). Similarly to the way it turned out to make the second paragraph (red). It must be added that the group would shields or masks action EDITPROTECT variable defined outside the group. Then I would use the same place on the screen form for alternative dialogue and before the eyes of the user would be less unnecessary information not relevant to the case.

[Wolfgang Ciriack]

Put the HIDE clause {|| mScenario<>2} or {|| mScenario<>3} to the Groups.

[Eugene Lutsenko]

Thank you very much! Be sure to try. That's what I asked

[Eugene Lutsenko]

Wrote:

Code: Select all

********************************
   @ 7.1, 2+2.5                 DCSAY 'Параметры интерпретации значений текстовых полей "Inp_data":'          PARENT oGroup7 EDITPROTECT {|| .NOT.mScenario=3 } HIDE {|| .NOT.mScenario=3 } FONT "10.HelvBold" SIZE 0
   @ 8.25, 2                    DCGROUP oGroup8  CAPTION 'В качестве классов рассматриваются:' SIZE mWidthFrame-2,3.5  PARENT oGroup7 HIDE clause {|| mScenario<>2}
   @ 1, 2                       DCRADIO mTxtCSField VALUE 1 PROMPT 'Целые знач.полей'                         PARENT oGroup8
   @ 1, 2+19                    DCRADIO mTxtCSField VALUE 2 PROMPT 'Элементы знач.полей-символы'              PARENT oGroup8
   @ 2, 2                       DCRADIO mTxtCSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'  PARENT oGroup8
   @ 2, mPosGet-2               DCGET mTxtCSSep                                                               PARENT oGroup8

   @ 8.25, mWidthFrame+3        DCGROUP oGroup9  CAPTION 'В качестве признаков рассматриваются:' SIZE mWidthFrame-2,3.5  PARENT oGroup7 HIDE clause {|| mScenario<>2}
   @ 1, 2                       DCRADIO mTxtOSField VALUE 1 PROMPT 'Целые знач.полей'                         PARENT oGroup9
   @ 1, 2+19                    DCRADIO mTxtOSField VALUE 2 PROMPT 'Элементы знач.полей-символы'              PARENT oGroup9
   @ 2, 2                       DCRADIO mTxtOSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'  PARENT oGroup9
   @ 2, mPosGet                 DCGET mTxtOSSep                                                               PARENT oGroup9
********************************

[/size]

When compiling and linking got the message:


D:\ALASKA\AIDOS-X>CLS

D:\ALASKA\AIDOS-X>ARC _Aidos.arc

D:\ALASKA\AIDOS-X>XPP _aidos-x
_aidos-x.prg(27982:0): error XBT0251: Reserved keyword
_aidos-x.prg(27988:0): error XBT0251: Reserved keyword

D:\ALASKA\AIDOS-X>ALINK _aidos-x _Aidos.res /PM:PM
Alaska 32-Bit Linker Version 1.90.355
Copyright (c) Alaska Software 1997-2009. All rights reserved.

Could you tell me what is my mistake?

[Tom]

Remove the word "clause" behind "HIDE". The correct syntax is: HIDE {|| ... }, no "clause".

[Eugene Lutsenko]

Thank you all! Get a great, exactly what I wanted:

Code: Select all

   mStrinFrame = mStrinFrame+4
********************************
   @mStrinFrame, 0              DCGROUP oGroup7 CAPTION 'Задание параметров формирования сценариев или способа интерпретации текстовых полей "Inp_data":' SIZE mWidthFrame*2+3, 10.5
   @ 1, 2                       DCRADIO mScenario VALUE 1 PROMPT 'Не применять сценарный метод АСК-анализа и спец.интерпретацию TXT-полей' PARENT oGroup7 SIZE 0
   @ 2, 2                       DCRADIO mScenario VALUE 2 PROMPT 'Применить сценарный метод прогнозирования АСК-анализа'                   PARENT oGroup7 SIZE 0
   @ 3, 2                       DCRADIO mScenario VALUE 3 PROMPT 'Применить специальную интерпретацию текстовых полей "Inp_data"'          PARENT oGroup7 SIZE 0

   @ 1.7, mWidthFrame+3+19      DCPUSHBUTTON CAPTION "Пояснения по режиму" SIZE 30, 2.1 ACTION {||Help2_3_2_2scen()} PARENT oGroup7
********************************
   @ 5.1,2+2.5                  DCSAY "Параметры формирования сценариев:"      PARENT oGroup7                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }  FONT "10.HelvBold" SIZE 0
   @ 6.5,2                      DCGROUP oGroup8  CAPTION 'Прошлый период:' SIZE mWidthFrame-2,3.5  PARENT oGroup7 HIDE {|| .NOT.mScenario=2 }
   @ 1,2                        DCSAY "Глубина предыстории минимальная :"      PARENT oGroup8                  EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 2,2                        DCSAY "Глубина предыстории максимальная:"      PARENT oGroup8                  EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 1,mPosGet-2                DCGET mGlubMin                                 PARENT oGroup8  PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
   @ 2,mPosGet-2                DCGET mGlubMax                                 PARENT oGroup8  PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }

   @ 6.5,mWidthFrame+3          DCGROUP oGroup10  CAPTION 'Будущий период:' SIZE mWidthFrame-2,3.5  PARENT oGroup7 HIDE {|| .NOT.mScenario=2 }
   @ 1,2                        DCSAY "Горизонт прогнозирования минимальный :" PARENT oGroup10                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 2,2                        DCSAY "Горизонт прогнозирования максимальный:" PARENT oGroup10                 EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 } 
   @ 1,mPosGet                  DCGET mGorizMin                                PARENT oGroup10 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
   @ 2,mPosGet                  DCGET mGorizMAx                                PARENT oGroup10 PICTURE "#####" EDITPROTECT {|| .NOT.mScenario=2 } HIDE {|| .NOT.mScenario=2 }
********************************
   @ 5.1,2+2.5                  DCSAY 'Параметры интерпретации значений текстовых полей "Inp_data":'           PARENT oGroup7 EDITPROTECT {|| .NOT.mScenario=3 } HIDE {|| .NOT.mScenario=3 } FONT "10.HelvBold" SIZE 0
   @ 6.5,2                      DCGROUP oGroup11  CAPTION 'В качестве классов рассматриваются:' SIZE mWidthFrame-2,3.5   PARENT oGroup7 HIDE {|| .NOT.mScenario=3 }
   @ 1,2                        DCRADIO mTxtCSField VALUE 1 PROMPT 'Целые знач.полей'                          PARENT oGroup11
   @ 1,2+19                     DCRADIO mTxtCSField VALUE 2 PROMPT 'Элементы знач.полей-символы'               PARENT oGroup11
   @ 2,2                        DCRADIO mTxtCSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'   PARENT oGroup11
   @ 2,mPosGet-2                DCGET mTxtCSSep                                                                PARENT oGroup11
 
   @ 6.5,mWidthFrame+3          DCGROUP oGroup12  CAPTION 'В качестве признаков рассматриваются:' SIZE mWidthFrame-2,3.5 PARENT oGroup7 HIDE {|| .NOT.mScenario=3 }
   @ 1,2                        DCRADIO mTxtOSField VALUE 1 PROMPT 'Целые знач.полей'                          PARENT oGroup12
   @ 1,2+19                     DCRADIO mTxtOSField VALUE 2 PROMPT 'Элементы знач.полей-символы'               PARENT oGroup12
   @ 2,2                        DCRADIO mTxtOSField VALUE 3 PROMPT 'Элементы значений полей по разделителю:'   PARENT oGroup12
   @ 2,mPosGet                  DCGET mTxtOSSep                                                                PARENT oGroup12
********************************

[/size]