#include <wnd_asm.h>
#include <graph.h>

/* MODE poit1 = 0;
 MENU  opr1 = { 5, 11, 259, 44,
  1, "yYнНhHрР"
 };
 CASE tabl1[] = {
 {14, 29,306,140, 0,12,1, "Расчет $н$ормальных зазоров...",
  "   Используя   данный  пункт  меню&"
  "$Вы$ можете  рассчитать нормальные&"
  "зазоры для конкретных температурных&"
  "условий и характеристик ж.д. пути",  Normal},

 {14,40,292,140, 0, 12, 0, "Расчет $р$егулировки зазоров...",
 "    Используя  данный  пункт меню&"
 "$Вы$ можете рассчитать требуемые&"
 "передвижки рельсов для создания&"
 "нормальных зазоров", Regul}
 }; */
/*
 MODE poit3 = 0;
 VID  opr3 = { 61, 17, 350, 61, 1, "","dDвВfFаА" };
 CASE tabl3[] = {
  {70,29,346,149, 0,12,1, "Расчет с $в$водом исходных данных",
  "  Данный пункт меню  позволяет&"
  "выполнить расчеты с вводом кон-&"
  "кретных характеристик температур-&"
  "ных условий и участка ж.д. пути,&"
  "для которого Вы желаете рассчи-&"
  "тать зазоры", Input},

  {70,40,340,122, 0,12,0, "$А$втоматизированный расчет...",
    "  Данный пункт меню позволяет&"
    "выполнить расчеты без ввода&"
    "данных при наличии базы данных&"
    "характеристик ж.д. пути",
   Auto}
 };
 */
/*
 MODE poit2 = 0;
 VID  opr2 = { 61, 22, 300, 77, 2, "","hHрРjJоОdDвВ" };
 CASE tabl2[] = {
  { 70,29,332,129, 0,12,1, "Выборочный $р$асчет",
  "  Данный пункт меню позволяет&"
  "выполнить автоматизированный&"
  "расчет нормальных зазоров для&"
  "участка ж.д.  пути  протяжен-&"
  "ностью менее перегона", Vybor},

  {70,40,332,140, 0,12,0, "Расчет на $о$дном перегоне",
  "  Данный пункт меню позволяет&"
  "выполнить автоматизированный&"
  "расчет нормальных зазоров на&"
  "одном перегоне", One_Per},

  {70,51,332,151, 0,12,0,"Расчет на $в$сех перегонах",
  "  Данный пункт меню позволяет&"
  "выполнить автоматизированный&"
  "расчет нормальных зазоров на&"
  "всех перегонах, находящихся на&"
  "дистанции пути", All_Per}
 };
*/
/*
 MENU opr4={ 176, 180,430, 240, 2,
	      " Введите номер записи&для перехода"
 };
 CASE   tabl4[] = {
	{157,137,483,213, 9, 9,0, "",
	"     В данном поле $Вы$ можете ввести&"
	"$номер записи$ файла,на которую будет&"
	"совершен переход",What_Number}
 };
*/

/*  MENU opr5={ 180, 150, 460, 200, 1,
	      " Введите дату промера зазоров:"
 };

 CASE   tabl5_[] = {                       //поле прокрутки,дл.строки
	{157,137,483,213, FIELD_IN, STRING_LEN,0, "",
	"В данном поле $Вы$ можете ввести&"
	"$дату$ промера зазоров в формате&"
	"$ДД$-$ММ$-$ГГГГ$"
	,Esc_Key}
 }; */

 MENU opr6={ 176, 180,430, 240, 2,
	      " Введите ключ для поиска&по данным текущего поля:"
 };
 CASE   tabl6[] = {
	{157,137,483,213, 30, 60,0, "",
	"     В данном поле $Вы$ можете ввести&"
	"$строку$,которая будет найдена в теку-&"
	"щем поле активного DBF-файла",Key_Search }
 };

 MENU opr6_={ 176, 180,430, 240, 2,
	      " Введите ключ для поиска& по полям базы данных:"
 };
 CASE   tabl6_[] = {
	{157,137,483,213, 30, 60,0, "",
	"     В данном поле $Вы$ можете ввести&"
	"$строку$,которая будет найдена в теку-&"
	"щем DBF-файле",All_Search }
 };

 MENU opr9 = { 178,120,408,180, 2,
  "Выберите длину страницы:"};
 CASE  tabl9[] = {
  { 157,137,483,213, 30,60,0,"",
	"     В данном поле $Вы$ можете ввести&"
	"$количество строк$, соответствующее&"
	"размеру страницы при печати",Esc_Key }
  };

 MENU opr10= {178,70,454,155,0x13,"Выберите режим работы с печатью"};
 CASE tabl10[]={
  { 80, 111,380,191,14,0,0, "Заголовок в начале страницы",
   "   Если опция включена, имена полей&"
   "таблицы печатаются в начале каждой&"
   "страницы, иначе - только на первой", Nop },

  { 80,122,360,202, 14,0,0,  "Нумерация страниц",
   " Управляет выводом на печать но-&"
   "мера страницы в последней строке", Nop},

  { 80,133,370,213,14,0,0, "Номера записей",
   "   Если опция включена, слева&"
   "выводится столбец с номерами&"
   "записей в файле", Nop },

  { 80,144,380,224,14,0,0, "Печать имени файла в заголовке",
   "   Если опция включена,после номера&"
   "страницы печатается строка с именем&"
   "DBF-файла", Nop }
 };
/*
 static KEY Alt_11[] = { ALT_G, ALT_R,  0 };
 static char s110[8],s111[8];
 VIDI   opr11 = { 178, 70, 424, 240, 0x12,
  "Введены следующие данные:",Alt_11};
 CASEI  tabl11[] = {
  { 20,0,228,50, 28, 10,0,
    "$П$огрешность расчета (мм):",294,20,70,
    s110, "Значение по умолчанию-& 1 мм.", Nop },

  { 20,50,228,100, 28, 10,0,
    "$К$ол-во используемых стыков:",294,20,70,
    s111, "Допустимые значения-&1 и 4 стыка", Nop }
 };
*/
/*
 MENU opr12={ 176,210,430, 240, 1,
  " Введите температуру рельсов: "
 };
 CASE   tabl12[] = {
	{157,117,483,213, 10, 6,0, "",
	"     В данном поле $Вы$ можете ввести&"
	"$измеренную температуру$ рельсов"
	,Esc_Key }
 };
*/
/*
 MENU  oprmode= { 27, 41, 27+210, 121, 0x22,
"Установите режимы работы&"
"с данной программой:"
		      };
 CASE   tablmode[3] = {
     {37,90,37+22+8*30,90+90, 14,1,1,
      "Звук",
      "   Выбор данного пункта меню&"
      "позволяет  Вам разрешать или&"
      "отменять выдачу звукового си-&"
      "гнала  при выводе текстовых&"
      "сообщений", Nop},

      {37,101,37+22+8*30,101+90, 14, 1,1,
      "Использовать \"мышь\"",
      "   Выбор данного пункта  меню&"
      "позволяет Вам работать с мани-&"
      "пулятором , \"мышь\", что значи-&"
      "тельно ускоряет работу",Nop},

      {37,112,37+22+8*31,112+90, 14, 1,1,
      "Заставка",
      "   Выбор данного пункта  меню&"
      "позволяет Вам разрешать или за-&"
      "прещать выдачу заставки при за-&"
      "грузке программы", Nop}
 };
*/
///////////////////////////////////////////////////////////////////////
// Active.cpp
///////////////////////////////////////////////////////////////////
// Функции для окна выбора цвета
///////////////////////////////////////////////////////////////////
/*
#include <graphics.h>
void Select_Index (void) { // Вызов окна
 static char far *vv[]={" ","Цвет"};
 static int pp[]= {150,10,10,11};
 static char ee[4];
 WINDOW Record_ = {
  220,100,420,200,
  1,2,1,
  pp, "Выберите график:",
  vv,YES,NO,NO,NO,NO,NO,ee,
  Show_1,Item_1,Nop
 };
 FIELD Field_;
 Window (&Record_,&Field_);
 return;
}

void Show_1(int cx,int cy,int metx,long mety) { // Вывод элемента
 extern Graph_Fun_Param Fun_Param[];
 fillsettingstype Fill;
 int i=getcolor();
 getfillsettings (&Fill);
 setfillstyle (SOLID_FILL,Fun_Param[mety].Color);
 setcolor ((Fun_Param[mety].Color==0)?15:0);
 if (metx==-1) { // Столбец номеров|названий
  bar (cx+2,cy,cx+7,cy+7);
  rectangle (cx+2,cy,cx+7,cy+7);
  Gprintf (cx,cy,"%4d",mety+1);
 }
 else { // Столбцы таблицы
  bar (cx+10,cy,cx+60,cy+7);
  rectangle (cx+10,cy,cx+60,cy+7);
 }
 setfillstyle (Fill.pattern,Fill.color);
 setcolor (i); return;
}

void Item_1(int cx,int cy,int metx,long mety) { // Обработка элемента
 extern int Index;
 Index=mety;
 Set_Key (1,ESC);
 return;
}

////////////////////////////////////////////////////////////////////
void Demo_1 (void) {
 CASE   Text = { 158,125,500,225,14,12,0,"",
  " Для расчета необходима база данных&"
  "  характеристик железнодорожного&"
  "             пути"
 };
 Message_Text( &Text );  return;
}
*/