
// Copyright (c) 1993-2005 "Компания БЭСТ". Все права сохраняются.
#include "s_public.ch"
/**********
*   ScrMain()
*   Вывод центрального экрана !!!
****/
Function ScrMain(lHeads)
   LOCAL cColor := SetColor('W/N'),;
         cMess  := "F1:Помощь   ESC:Выход" ,;
         cClrScr := IF(MEMVAR->INST_COLOR,'W/B','W/N')
   SET DATE FRENCH //!!!!!
   IF (lHeads!=NIL)
      CLS
      IF Count_Lbl() > 0
        @ 00,00 SAY MEMVAR->LBL_NAME COLOR 'G+/N'
      ELSE
        @ 00,00 SAY cMess
      ENDIF
      @ 00,MAXCOL()-8 SAY DTOC(DATE()) COLOR "W+/N"  //!!!!!
      SETCOLOR('N/W')
      @ 01,00 SAY SPACE(MAXCOL()+1)
      @ MAXROW(),00 SAY SPACE(MAXCOL()+1)
   ENDIF
   SetColor(cClrScr)
   @ 02,00,MAXROW()-IF(lHeads!=NIL,1,0),MAXCOL() BOX "░░░░░░░░░"
   SetColor(cColor)
RETURN NIL

