Reaction to the buttons "OK" and "Cancel"

[Eugene Lutsenko]

Prompt, please, as do the treatment clicking on "OK" button and "Cancel" in the following program that displays the form

Code: Select all

**********************************************************************************************************************
   // Диалог задания моделей расчета матриц сходства классов
   @ 0,0 DCGROUP oGroup1 CAPTION 'Задайте модели, для которых рассчитывать матрицы сходства классов:' SIZE 82,13.5

   @ 1,1 DCSAY 'Статистические базы:' PARENT oGroup1
   @ 2,3 DCCHECKBOX aClustMod[ 1] PROMPT '1. ABS  - частный критерий: количество встреч сочетаний: "класс-признак" у объектов обуч.выборки' PARENT oGroup1
   @ 3,3 DCCHECKBOX aClustMod[ 2] PROMPT '2. PRC1 - частный критерий: усл. вероятность i-го признака среди признаков объектов j-го класса ' PARENT oGroup1
   @ 4,3 DCCHECKBOX aClustMod[ 3] PROMPT '3. PRC2 - частный критерий: условная вероятность i-го признака у объектов j-го класса           ' PARENT oGroup1
   @ 5.2,1 DCSAY 'Базы знаний:'       PARENT oGroup1
   @ 6,3 DCCHECKBOX aClustMod[ 4] PROMPT '4. INF1 - частный критерий: количество знаний по А.Харкевичу; вероятности из PRC1               ' PARENT oGroup1
   @ 7,3 DCCHECKBOX aClustMod[ 5] PROMPT '5. INF2 - частный критерий: количество знаний по А.Харкевичу; вероятности из PRC2               ' PARENT oGroup1
   @ 8,3 DCCHECKBOX aClustMod[ 6] PROMPT '6. INF3 - частный критерий: Xи-квадрат, разности между фактическими и ожидаемыми абс.частотами'   PARENT oGroup1
   @ 9,3 DCCHECKBOX aClustMod[ 7] PROMPT '7. INF4 - частный критерий: ROI (Return On Investment); вероятности из PRC1                     ' PARENT oGroup1
   @10,3 DCCHECKBOX aClustMod[ 8] PROMPT '8. INF5 - частный критерий: ROI (Return On Investment); вероятности из PRC2                     ' PARENT oGroup1
   @11,3 DCCHECKBOX aClustMod[ 9] PROMPT '9. INF6 - частный критерий: разн.усл.и безусл.вероятностей; вероятности из PRC1                 ' PARENT oGroup1
   @12,3 DCCHECKBOX aClustMod[10] PROMPT '10.INF7 - частный критерий: разн.усл.и безусл.вероятностей; вероятности из PRC2                 ' PARENT oGroup1

   @1,58 DCPUSHBUTTON                           ;
         CAPTION  'Пояснение по режиму'         ;
         SIZE LEN('Пояснение по режиму')+3, 0.9 ;
         ACTION {||Help4221()}

   DCGETOPTIONS TABSTOP

   DCREAD GUI ;
      FIT ;
      OPTIONS GetOptions ;
      ADDBUTTONS;
      MODAL ;
      TITLE '4.2.2.1. Расчет матриц сходства классов'
   **********************************************************************************************************************

[/size]

[Wolfgang Ciriack]

Code: Select all

 DCREAD GUI ;
      TO lExit ;
      FIT ;
      OPTIONS GetOptions ;
      ADDBUTTONS;
      MODAL ;
      TITLE '4.2.2.1. Расчет матриц сходства классов'

if lExit
   ** Button Ok
endif

[Eugene Lutsenko]

Thank you very much!
Simple as that, when you know.