bb.donnay-software.com

Donnay Software Web Forums
http://bb.mobile.donnay-software.com/Donnay/

In DCBROWSE to assign a particular string on a given bckgrnd

http://bb.mobile.donnay-software.com/Donnay/viewtopic.php?f=2&t=2081

Page 1 of 2

In DCBROWSE to assign a particular string on a given bckgrnd

Posted: Wed Jan 11, 2017 1:40 pm
by Eugene Lutsenko
In DCBROWSE to assign a particular string on a given background?

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Wed Jan 11, 2017 1:59 pm
by rdonnay
Your question is confusing. Please clarify.

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Wed Jan 11, 2017 2:05 pm
by Eugene Lutsenko
I know how to make in DCBROWSE the background in the specified column (for example yellow). But I don't know how to make the background in the given string (for example green).

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Wed Jan 11, 2017 2:23 pm
by rdonnay
This will paint every record that has an even record number as PALEGRAY and every record that has an odd number as WHITE.

Code: Select all

@ .. DCBROWSE .. COLOR {||IIF(Recno()%2==0,{nil,GRA_CLR_PALEGRAY},{nil,GRA_CLR_WHITE})}

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Wed Jan 11, 2017 9:30 pm
by Eugene Lutsenko
Thank You, Roger!

This is great work! This is the blue highlighted column with the F-measure of the validity of different models of van Ritbergen and the same color of the selected row in the models and integral criteria, for which it is maximum. Very clear, comfortable and beautiful. Thank you!

Code: Select all

        @ 1, 0 DCBROWSE oBrowse ALIAS 'Dost_modCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 4                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               COLOR {||IIF(L2_mera=M_MaxValL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValL1,{nil,aColor[107]},IIF(F_mera=M_MaxValF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))}
[/size]

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Thu Jan 12, 2017 3:23 am
by Eugene Lutsenko
Somehow, in this form at the bottom of the desired rows are highlighted in the background and in the top window are not highlighted. Don't know why. Sort of been doing the same thing.

Code: Select all

/* ----- Create browse-1 ----- */

bScale := {|| VerModCls->(DC_SetScope(0,VerModClsIT->ModIntKrit)), ;
              VerModCls->(DC_SetScope(1,VerModClsIT->ModIntKrit)), ;
              VerModCls->(DC_DbGoTop()), ;
              oBrowGrSc:refreshAll() }

DO CASE
   CASE M_MaxValAllF <= M_MaxValAllL1 .AND. M_MaxValAllL1 <= M_MaxValAllL2

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllF <= M_MaxValAllL2 .AND. M_MaxValAllL2 <= M_MaxValAllL1

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL1 <= M_MaxValAllF  .AND. M_MaxValAllF  <= M_MaxValAllL2

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL1 <= M_MaxValAllL2 .AND. M_MaxValAllL2 <= M_MaxValAllF

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL2 <= M_MaxValAllF  .AND. M_MaxValAllF  <= M_MaxValAllL1

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL2 <= M_MaxValAllL1 .AND. M_MaxValAllL1 <= M_MaxValAllF

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

ENDCASE


WNF = 9  // Ширина числового поля

DCSETPARENT oBrowScale

* Строка заданным фоном
DCBROWSECOL FIELD VerModClsIT->Name_Mod HEADER "Наименование модели;и частного критерия" PARENT oBrowScale FONT "9.Courier" WIDTH 75
DCBROWSECOL FIELD VerModClsIT->Int_Krit HEADER "Наименование;интегрального критерия"     PARENT oBrowScale FONT "9.Courier" WIDTH 20
DCBROWSECOL DATA FieldAnchorA(14,"VerModClsIT",9,3) HEADER "Точность;модели"             PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(15,"VerModClsIT",9,3) HEADER "Полнота;модели"              PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(16,"VerModClsIT",9,3) HEADER "F-мера;Ван Ризбергена"       PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[33]}}
DCBROWSECOL DATA FieldAnchorA(30,"VerModClsIT",9,3) HEADER "S-Точность;модели"           PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(31,"VerModClsIT",9,3) HEADER "S-Полнота;модели"            PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(32,"VerModClsIT",9,3) HEADER "L1-мера;проф.Е.В.Луценко"    PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[107]}}
DCBROWSECOL DATA FieldAnchorA(37,"VerModClsIT",9,3) HEADER "A-Точность;модели"           PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(38,"VerModClsIT",9,3) HEADER "A-Полнота;модели"            PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(39,"VerModClsIT",9,3) HEADER "L2-мера;проф.Е.В.Луценко"    PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[153]}}


/* ----- Create browse-2 ----- */

DCSETPARENT TO

DO CASE
   CASE M_MaxValClsF <= M_MaxValClsL1 .AND. M_MaxValClsL1 <= M_MaxValClsL2

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(L2_mera=M_MaxValClsL2, {nil,aColor[153]},IIF(L1_mera=M_MaxValClsL1,{nil,aColor[107]},IIF(F_mera=M_MaxValClsF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))}

   CASE M_MaxValClsF <= M_MaxValClsL2 .AND. M_MaxValClsL2 <= M_MaxValClsL1

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(L1_mera=M_MaxValClsL1, {nil,aColor[107]},IIF(L2_mera=M_MaxValClsL2,{nil,aColor[153]},IIF(F_mera=M_MaxValClsF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))}

   CASE M_MaxValClsL1 <= M_MaxValClsF  .AND. M_MaxValClsF  <= M_MaxValClsL2

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(L2_mera=M_MaxValClsL2, {nil,aColor[153]},IIF(F_mera =M_MaxValClsF,{nil,aColor[33]},IIF(L1_mera=M_MaxValClsL1,{nil,aColor[107]},{nil,GRA_CLR_WHITE})))}

   CASE M_MaxValClsL1 <= M_MaxValClsL2 .AND. M_MaxValClsL2 <= M_MaxValClsF

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(F_mera=M_MaxValClsF, {nil,aColor[33]},IIF(L2_mera=M_MaxValClsL2,{nil,aColor[153]},IIF(L1_mera=M_MaxValClsL1,{nil,aColor[107]},{nil,GRA_CLR_WHITE})))}

   CASE M_MaxValClsL2 <= M_MaxValClsF  .AND. M_MaxValClsF  <= M_MaxValClsL1

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(L1_mera=M_MaxValClsL1, {nil,aColor[107]},IIF(F_mera=M_MaxValClsF,{nil,aColor[33]},IIF(L2_mera=M_MaxValClsL2,{nil,aColor[153]},{nil,GRA_CLR_WHITE})))}

   CASE M_MaxValClsL2 <= M_MaxValClsL1 .AND. M_MaxValClsL1 <= M_MaxValClsF

        @ 9, 0 DCBROWSE oBrowGrSc ALIAS 'VerModCls' SIZE 217,27    ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 8                ;                                     // Кол-во строк в заголовке
               FREEZELEFT {1,2}           ;                                     // При горизонтальной прокрутке не прокручивать первые 2 колонки
               NOSOFTTRACK ;
               SCOPE ;
               ITEMMARKED bItems;
               COLOR {||IIF(F_mera=M_MaxValClsF, {nil,aColor[33]},IIF(L1_mera=M_MaxValClsL1,{nil,aColor[107]},IIF(L2_mera =M_MaxValClsL2,{nil,aColor[153]},{nil,GRA_CLR_WHITE})))}

ENDCASE

DCSETPARENT oBrowGrSc

WNF = 9

* Строка заданным фоном
DCBROWSECOL DATA  FieldAnchor( 2,6,0) HEADER "Код;класса"                                                              PARENT oBrowGrSc FONT "9.Courier" WIDTH  6
DCBROWSECOL FIELD VerModCls->Name_cls HEADER "Наименование;класса"                                                     PARENT oBrowGrSc FONT "9.Courier" WIDTH 25
DCBROWSECOL DATA FieldAnchor( 4,9,3)  HEADER "Дифферен-;циальная;досто-;верность;модели;{-1, +1}"                      PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor( 8,9,0)  HEADER "Кол-во;логических;объектов;выборки"                                      PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor( 9,9,0)  HEADER "Число истино-;положительных;решений (TP)"                                PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(12,9,0)  HEADER "Число истино-;отрицательных;решений (TN)"                                PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(11,9,0)  HEADER "Число ложно- ;положительных;решений (FP)"                                PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(10,9,0)  HEADER "Число ложно- ;отрицательных;решений (FN)"                                PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(14,9,3)  HEADER "Точность;модели"                                                         PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(15,9,3)  HEADER "Полнота ;модели"                                                         PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(16,9,3)  HEADER "F-мера  ;Ван;Ризбергена"                                                 PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF COLOR {||{nil,aColor[33]}}
DCBROWSECOL DATA FieldAnchor(26,9,3)  HEADER "Сумма модулей;уровней сходства;истино-положит.;решений (STP)"            PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(29,9,3)  HEADER "Сумма модулей;уровней сходства;истино-отрицат.;решений (STN)"            PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(28,9,3)  HEADER "Сумма модулей;уровней сходства;ложно-положит.;решений (SFP)"             PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(27,9,3)  HEADER "Сумма модулей;уровней сходства;ложно-отрицат.;решений (SFN)"             PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(30,9,3)  HEADER "S-Точность;модели"                                                       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(31,9,3)  HEADER "S-Полнота ;модели"                                                       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(32,9,3)  HEADER "L1-мера  ;проф.;Е.В.Луценко"                                             PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF COLOR {||{nil,aColor[107]}}
DCBROWSECOL DATA FieldAnchor(33,9,3)  HEADER "Средний модуль;уровней сходства;истино-положит.;решений;(ATP=STP/TP)"    PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(34,9,3)  HEADER "Средний модуль;уровней сходства;истино-отрицат.;решений;(ATN=STN/TN)"    PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(35,9,3)  HEADER "Средний модуль;уровней сходства;ложно-положит.;решений;(AFP=SFP/FP)"     PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(36,9,3)  HEADER "Средний модуль;уровней сходства;ложно-отрицат.;решений;(AFN=SFN/FN)"     PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(37,9,3)  HEADER "A-Точность;модели;APrecision;= ATP/(ATP+AFP)"                            PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(38,9,3)  HEADER "A-Полнота ;модели;ARecall;= ATP/(ATP+AFN)"                               PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(39,9,3)  HEADER "L2-мера  ;проф.;Е.В.Луценко"                                             PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF COLOR {||{nil,aColor[153]}}
DCBROWSECOL DATA FieldAnchor( 5,9,3)  HEADER "Средний;модуль;уровня;сходства;ВЕРНО;идентиф.;и неидент.;объектов"       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor( 6,9,3)  HEADER "Средний;модуль;уровня;сходства;ОШИБ.;идентиф.;и неидент.;объектов"       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor( 7,9,3)  HEADER "Разность;ср.модулей;ур.сход.;ВЕРНО и;ОШИБ.;идентиф.;и неидент.;объектов" PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(17,9,3)  HEADER "Процент ;правильной;идентификации"                                       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(18,9,3)  HEADER "Процент ;правильной;не идентификации"                                    PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(19,9,3)  HEADER "Процент ;ошибочной ;идентификации"                                       PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(20,9,3)  HEADER "Процент ;ошибочной ;не идентификации"                                    PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(21,9,3)  HEADER "Вероятн.;случайн.;угадыв.;принадл.;объектов;к классам"                   PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(22,9,3)  HEADER "Вероятн.;случайн.;угадыв.;непринадл.;объектов;к классам"                 PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(23,9,3)  HEADER "Эффект.;модели;при;идентиф.:;=C13/C17"                                   PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(24,9,3)  HEADER "Эффект.;модели;при;неидент.:;=C14/C18"                                   PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL DATA FieldAnchor(25,9,3)  HEADER "Средняя;эффект.;модели:;=(C19+;C20)/2"                                   PARENT oBrowGrSc FONT "9.Courier" WIDTH WNF
DCBROWSECOL FIELD VerModCls->Date     HEADER "Дата;получения;результата"                                               PARENT oBrowGrSc FONT "9.Courier" WIDTH 10
DCBROWSECOL FIELD VerModCls->Time     HEADER "Время;получения;результата"                                              PARENT oBrowGrSc FONT "9.Courier" WIDTH  8

DCGETOPTIONS SAYFONT '10.Helv Bold' TABSTOP AUTORESIZE

cTitle = '4.1.3.8. Стат.анализ результатов идентификации по классам, моделям и инт.критериям'+'. Текущая модель: "'+UPPER(Ar_Model[M_CurrInf])+'"'

DCREAD GUI ;
   FIT ;
   OPTIONS GetOptions ;
   MODAL ;
   TITLE cTitle ;
   EVAL {|o|SetAppFocus(oBrowScale:GetColumn(1))}
[/size]

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Thu Jan 12, 2017 9:54 am
by reganc
Eugene Lutsenko wrote:Somehow, in this form at the bottom of the desired rows are highlighted in the background and in the top window are not highlighted. Don't know why. Sort of been doing the same thing.

Code: Select all

/* ----- Create browse-1 ----- */
...snip
[/size]
Eugene, the DCBROWSE definitions for the 1st browse all seem to be using the same variables in the tests and are therefore identical...

Or am I seeing that wrong?

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Thu Jan 12, 2017 11:11 am
by Eugene Lutsenko
Yes, the names of the fields in the top and bottom are the same. But it's a different base. The upper base to the final model. And the bottom more detailed, with a breakdown of the top lines of the base.

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Mon Jan 16, 2017 3:59 am
by reganc
Eugene Lutsenko wrote:Yes, the names of the fields in the top and bottom are the same. But it's a different base. The upper base to the final model. And the bottom more detailed, with a breakdown of the top lines of the base.
But from what I see, the DBBROWSE definitions for the top browse are EXACTLY identical. They use all the same variables...is that right?

Perhaps I am not understanding correctly where the problem is, after all...

Re: In DCBROWSE to assign a particular string on a given bck

Posted: Mon Jan 16, 2017 5:56 am
by Eugene Lutsenko
It's all good! Thank you very much. But only made specific reference to the fields (VerModClsIT->L2_mera) for the database:

Code: Select all

DO CASE
   CASE M_MaxValAllF <= M_MaxValAllL1 .AND. M_MaxValAllL1 <= M_MaxValAllL2

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllF <= M_MaxValAllL2 .AND. M_MaxValAllL2 <= M_MaxValAllL1

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL1 <= M_MaxValAllF  .AND. M_MaxValAllF  <= M_MaxValAllL2

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL1 <= M_MaxValAllL2 .AND. M_MaxValAllL2 <= M_MaxValAllF

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL2 <= M_MaxValAllF  .AND. M_MaxValAllF  <= M_MaxValAllL1

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

   CASE M_MaxValAllL2 <= M_MaxValAllL1 .AND. M_MaxValAllL1 <= M_MaxValAllF

        @ 1, 0 DCBROWSE oBrowScale ALIAS 'VerModClsIT' SIZE 217,7.5 ;
               PRESENTATION DC_BrowPres() ;                                     // Только просмотр БД Users
               HEADLINES 2                ;                                     // Кол-во строк в заголовке
               NOSOFTTRACK ;
               SCOPE ;
               COLOR {||IIF(VerModClsIT->L2_mera=M_MaxValAllL2, {nil,aColor[153]},IIF(VerModClsIT->L1_mera=M_MaxValAllL1,{nil,aColor[107]},IIF(VerModClsIT->F_mera=M_MaxValAllF,{nil,aColor[33]},{nil,GRA_CLR_WHITE})))};
               ITEMMARKED {|| Eval(bScale), DC_GetRefresh(GetList,, DCGETREFRESH_TYPE_EXCLUDE,{GETLIST_BROWSE}) }

ENDCASE


WNF = 9  // Ширина числового поля

DCSETPARENT oBrowScale

* Строка заданным фоном
DCBROWSECOL FIELD VerModClsIT->Name_Mod HEADER "Наименование модели;и частного критерия" PARENT oBrowScale FONT "9.Courier" WIDTH 75
DCBROWSECOL FIELD VerModClsIT->Int_Krit HEADER "Наименование;интегрального критерия"     PARENT oBrowScale FONT "9.Courier" WIDTH 20
DCBROWSECOL DATA FieldAnchorA(14,"VerModClsIT",9,3) HEADER "Точность;модели"             PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(15,"VerModClsIT",9,3) HEADER "Полнота;модели"              PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(16,"VerModClsIT",9,3) HEADER "F-мера;Ван Ризбергена"       PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[33]}}
DCBROWSECOL DATA FieldAnchorA(30,"VerModClsIT",9,3) HEADER "S-Точность;модели"           PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(31,"VerModClsIT",9,3) HEADER "S-Полнота;модели"            PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(32,"VerModClsIT",9,3) HEADER "L1-мера;проф.Е.В.Луценко"    PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[107]}}
DCBROWSECOL DATA FieldAnchorA(37,"VerModClsIT",9,3) HEADER "A-Точность;модели"           PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(38,"VerModClsIT",9,3) HEADER "A-Полнота;модели"            PARENT oBrowScale FONT "9.Courier" WIDTH 10
DCBROWSECOL DATA FieldAnchorA(39,"VerModClsIT",9,3) HEADER "L2-мера;проф.Е.В.Луценко"    PARENT oBrowScale FONT "9.Courier" WIDTH 15 COLOR {||{nil,aColor[153]}}
[/size]
All times are UTC-07:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited