bb.donnay-software.com

Code: Select all

aColors := { {GRA_CLR_WHITE,GRA_CLR_DARKRED}, ;
             {GRA_CLR_WHITE,GRA_CLR_DARKBLUE}, ;
             {GRA_CLR_BLACK,GRA_CLR_DARKGREEN} }

aPres := ;
  { { XBP_PP_COL_HA_FGCLR, GRA_CLR_WHITE },    /*  Header FG Color  */     ;
    { XBP_PP_COL_HA_BGCLR, GRA_CLR_DARKGRAY }, /*  Header BG Color  */     ;
    { XBP_PP_COL_FA_FGCLR, GRA_CLR_YELLOW },   /*  Footer FG Color  */     ;
    { XBP_PP_COL_FA_BGCLR, GRA_CLR_DARKGRAY }, /*  Footer BG Color  */     ;
    { XBP_PP_COL_DA_ROWSEPARATOR, XBPCOL_SEP_DOTTED },  /* Row Sep  */     ;
    { XBP_PP_COL_DA_COLSEPARATOR, XBPCOL_SEP_DOTTED },  /* Col Sep  */     ;
    { XBP_PP_COL_DA_ROWHEIGHT, 20 },                  /* Row Height */     ;
    { XBP_PP_COL_DA_CELLHEIGHT, 20 }  }              /* Cell Height */

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

@ 1, 0 DCBROWSE oBrowse ALIAS 'Klas_res' SIZE 150,30       ;
       EDIT xbeBRW_ItemSelected MODE DCGUI_BROWSE_EDITDOWN ;
       HEADLINES 4                                         ;     // Кол-во строк в заголовке
       PRESENTATION aPres                                  ;

   DCBROWSECOL FIELD Klas_res->Kod        HEADER "Код;класса"                                PARENT oBrowse WIDTH  5 PROTECT {|| .T. }    // 1  Код класса
   DCBROWSECOL FIELD Klas_res->Name       HEADER "Наименование;класса"                       PARENT oBrowse WIDTH 30 PROTECT {|| .T. }    // 2  Наименование класса
   DCBROWSECOL FIELD Klas_res->Resource   HEADER "Начальный;ресурс;класса"                   PARENT oBrowse WIDTH  7 FONT "10.Arial Bold" // 3  Начальный ресурс класса
   DCBROWSECOL FIELD Klas_res->OstatokRes HEADER "Остаток;ресурса;класса"                    PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 4  Остаток ресурса класса
   DCBROWSECOL FIELD Klas_res->Kol_Obj    HEADER "Количество;объектов,;назначенных;на класс" PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 5  Количество объектов, назначенных на класс
   DCBROWSECOL FIELD Klas_res->Sum_UrSxod HEADER "Суммарное;сходство;назначенных;объектов"   PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 6  Суммарное сходство назначенных объектов
   DCBROWSECOL FIELD Klas_res->Sum_Zatrat HEADER "Суммарные;затраты на;назначенные;объекты"  PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 7  Суммарные затраты на назначенные объекты
   DCBROWSECOL FIELD Klas_res->Svz_UdSxod HEADER "Средневз-;вешенное;удельное;сходство"      PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 8  Средневзвешенное удельное сходство
   DCBROWSECOL FIELD Klas_res->Avr_UrSxod HEADER "Средний;на объект;уровень;сходства"        PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 9  Средний на объект уровень сходства
   DCBROWSECOL FIELD Klas_res->Avr_Zatrat HEADER "Средние;на объект;затраты"                 PARENT oBrowse WIDTH  6 PROTECT {|| .T. }    // 10 Средние на объект затраты

Code: Select all

    aBrowPres := ;
     {{ XBP_PP_COL_HA_FGCLR, GRA_CLR_BLACK },             /* Header FG Color  */  ;
      { XBP_PP_COL_HA_BGCLR, GRA_CLR_PALEGRAY },          /* Header BG Color  */  ;
      { XBP_PP_COL_DA_ROWSEPARATOR, XBPCOL_SEP_DOTTED },  /* Row Sep          */  ;
      { XBP_PP_COL_DA_COLSEPARATOR, XBPCOL_SEP_DOTTED },  /* Col Sep          */  ;
      { XBP_PP_COL_DA_FGCLR, GRA_CLR_BLACK },             /* Row FG Color     */  ;
      { XBP_PP_COL_DA_BGCLR, GRA_CLR_WHITE },             /* Row BG Color     */  ;
      { XBP_PP_COL_DA_ROWHEIGHT, LB_SetSize(13.75,14) },  /* Row Height       */  ;             // 13   // PC CAW 10-17-14 added LB_SetSize()
      { XBP_PP_COL_DA_CELLHEIGHT, LB_SetSize(13.75,-1) }, /* Cell Height      */  ;             // 13   // PC CAW 10-17-14 added LB_SetSize()
      { XBP_PP_COL_HA_HEIGHT, LB_SetSize(13.75,-1) },     /* Header Height    */  ;             // 15   // PC CAW 10-17-14 added LB_SetSize()
      { XBP_PP_COL_DA_HILITE_FGCLR, GRA_CLR_WHITE },      /* Cursor FG Color  */  ;
      { XBP_PP_COL_DA_HILITE_BGCLR, GRA_CLR_BLUE},        /* Cursor BG Color  */  ;
      { XBP_PP_HILITE_FGCLR, GRA_CLR_WHITE },             /* Hilite FG color  */  ;
      { XBP_PP_HILITE_BGCLR, GRA_CLR_BLUE },              /* Hilite BG color  */  ;
      { XBP_PP_COL_FA_FGCLR, GRA_CLR_WHITE },             /* Footer FG Color  */  ;
      { XBP_PP_COL_FA_BGCLR, GRA_CLR_PALEGRAY },          /* Footer BG Color  */  ;
      { XBP_PP_COL_DA_COMPOUNDNAME,'11.Arial'},           /* Font             */  ;             // 11.Arial
      { XBP_PP_COL_HA_COMPOUNDNAME,'11.Helv'},            /* Font             */  ;
      { XBP_PP_COL_FA_HEIGHT, LB_SetSize(15,-1) },        /* Footer Height    */  ;                     // PC CAW 10-17-14 added LB_SetSize()        
      { XBP_PP_COL_HA_ALIGNMENT,XBPALIGN_HCENTER}         /* Header Alignment */  ;
     }
    
  ENDIF

Code: Select all

  @ .2,.5 DCBROWSE d_oBrowse ALIAS 'SIMPLE' SIZE nTPWidth-2,nTPHeight-3.4  ;           // defines browse for tab page 1
           HEADLINES 2                          ;
           PRESENTATION DC_BrowPres()           ;

Code: Select all

aPres := ;
  { { XBP_PP_COL_HA_FGCLR, GRA_CLR_WHITE },    /*  Header FG Color  */     ;
    { XBP_PP_COL_HA_BGCLR, GRA_CLR_DARKGRAY }, /*  Header BG Color  */     ;
    { XBP_PP_COL_FA_FGCLR, GRA_CLR_YELLOW },   /*  Footer FG Color  */     ;
    { XBP_PP_COL_FA_BGCLR, GRA_CLR_DARKGRAY }, /*  Footer BG Color  */     ;
    { XBP_PP_COL_DA_ROWSEPARATOR, XBPCOL_SEP_DOTTED },  /* Row Sep  */     ;
    { XBP_PP_COL_DA_COLSEPARATOR, XBPCOL_SEP_DOTTED },  /* Col Sep  */     ;
    { XBP_PP_COL_HA_ALIGNMENT, XBPALIGN_LEFT}, ;  /* Header alignment*/ ;
    { XBP_PP_COL_DA_ROWHEIGHT, 20 },                  /* Row Height */     ;
    { XBP_PP_COL_DA_CELLHEIGHT, 20 }  }              /* Cell Height */