bb.donnay-software.com

Code: Select all

   // Отображение стадии исполнения. Будет написано прямо в окне Progress-bar
   @ 0,0 DCGROUP oGroup1 CAPTION 'Стадии исполнения процесса' FONT "6.Helv" SIZE 105,9.5 ;
         PARENT oTabPage1
   @11,0 DCGROUP oGroup2 CAPTION 'Прогноз времени исполнения' FONT "6.Helv" SIZE 105,5.0 ;
         PARENT oTabPage2
    s = 1
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[ 6] FONT "10.Helv"  // Зарезервировано под название операции
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[ 7] FONT "10.Helv"  // 1
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[ 8] FONT "10.Helv"  // 2 
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[ 9] FONT "10.Helv"  // 3
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[10] FONT "10.Helv"  // 4
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[11] FONT "10.Helv"  // 5  
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[12] FONT "10.Helv"  // 6  
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT aSay[13] FONT "10.Helv"  // 7
    s++
   @s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT oSay97 FONT "10.HelvBold"
    s++
   @0.2+s++,1 DCSAY "" SAYSIZE 100 SAYOBJECT oSay98 FONT "9.Helv Bold" COLOR GRA_CLR_BLUE
   @1.5+s  ,1 DCSAY "" SAYSIZE 100 SAYOBJECT oSay99 FONT "9.Helv Bold" COLOR GRA_CLR_BLUE

   @s  ,1 DCPROGRESS oProgress ;
          SIZE 95,1.5 ;
          PERCENT ;
          EVERY 1+INT(Wsego/nEvery) ;       // Кол-во обновлений изображения
          MAXCOUNT Wsego ;
          COLOR GRA_CLR_CYAN           // Цвет полосы
   @s++,97 DCPUSHBUTTON  CAPTION '&Cancel' ;
          ACTION {||lOk:=.f.} OBJECT oButton ;
          SIZE 7,1.5
   DCREAD GUI ;
          TITLE '5.6. Выбрать модель и сделать ее текущей' ;
          PARENT @oDialog ;
          FIT ;
          EXIT ;
          MODAL
   oDialog:show()

ENDIF