←предыдущая следующая→
1 2
visualres.put(machine,'Машина вывода');
dispose(machine,done)
end;
procedure createmanager;
var r:trect;
begin
r.assign(10,5,70,15);
manager:=new(pmanager,init(r,'Заключение'));
with manager^ do
begin
r.assign(1,3,11,5);
insert(new(pbutton,init(r,'Объяснить',cmwhy,bfdefault)));
r.assign(12,3,22,5);
insert(new(pbutton,init(r,'Протокол',cmreport,bfnormal)));
r.assign(23,3,33,5);
insert(new(pbutton,init(r,'Печать',cmprint,bfnormal)));
r.assign(34,3,44,5);
insert(new(pbutton,init(r,'Помощь',cmmhelp,bfnormal)));
r.assign(45,3,55,5);
insert(new(pbutton,init(r,'Отмена',cmcancel,bfnormal)));
selectnext(false)
end;
visualres.put(manager,'Менеджер');
dispose(manager,done)
end;
procedure createstatewindow;
var r:trect;
f:string;
begin
r.assign(5,1,75,21);
state:=new(pstatewindow,init(r,'Установка редактора шаг 1 из 5'));
with state^ do
begin
r.assign(2,3,33,5);
bv:=new(pradiobuttons,init(r,
newsitem('~Л~огические цепи',
newsitem('~Т~ест',nil))));
insert(bv);
r.assign(2,2,12,3);
insert(new(plabel,init(r,'Вид ~б~азы:',bv)));
r.assign(37,3,68,5);
ev:=new(pradiobuttons,init(r,
newsitem('~М~атрица',
newsitem('~П~ротокол',nil))));
insert(ev);
r.assign(38,2,58,3);
insert(new(plabel,init(r,'Вид ~р~едактора:',ev)));
r.assign(2,7,33,9);
bi:=new(pradiobuttons,init(r,
newsitem('~В~опрос/ответ',
newsitem('В~и~ртуальный пульт',nil))));
insert(bi);
r.assign(2,6,15,7);
insert(new(plabel,init(r,'~И~нтерфейс:',bi)));
r.assign(37,7,68,9);
rv:=new(pradiobuttons,init(r,
newsitem('~С~трока',
newsitem('~Т~екст',nil))));
insert(rv);
r.assign(37,6,68,7);
insert(new(plabel,init(r,'Вид р~е~сурсов:',rv)));
r.assign(2,11,33,14);
c:=new(pradiobuttons,init(r,
newsitem('Редактор ~о~бъектов',
newsitem('Редактор ~з~начений',
newsitem('Редактор ~п~равил',nil)))));
insert(c);
r.assign(2,10,16,11);
insert(new(plabel,init(r,'~С~оставляющие:',c)));
r.assign(37,11,68,14);
a:=new(pcheckboxes,init(r,
newsitem('~З~ащита',
newsitem('~И~нформация',
newsitem('~Д~оверие',nil)))));
insert(a);
r.assign(37,10,55,11);
insert(new(plabel,init(r,'Ре~к~визиты базы:',a)));
r.assign(2,17,16,19);
insert(new(pbutton,init(r,'~П~уск',cmok,bfdefault)));
r.assign(18,17,32,19);
insert(new(pbutton,init(r,'~С~брос',cmnil,bfnormal)));
r.assign(38,17,52,19);
insert(new(pbutton,init(r,'~О~тмена',cmcancel,bfnormal)));
r.assign(54,17,68,19);
insert(new(pbutton,init(r,'По~м~ощь',cmhelp,bfnormal)));
selectnext(false)
end;
visualres.put(state,'Установка');
dispose(state,done)
end;
procedure createatributeditor;
var r:trect;
begin
r.assign(15,3,65,18);
atributeditor:=new(patributeditor,init(r,'Редактор объектов шаг 2 из 5'));
with atributeditor^ do
begin
r.assign(1,8,11,10);
insert(new(pbutton,init(r,'В~н~ести',cmin,bfdefault)));
r.assign(13,8,23,10);
insert(new(pbutton,init(r,'~У~далить',cmout,bfnormal)));
r.assign(25,8,35,10);
insert(new(pbutton,init(r,'~З~апись',cmrec,bfnormal)));
r.assign(37,8,47,10);
insert(new(pbutton,init(r,'~П~омощь',cmaehelp,bfnormal)));
r.assign(1,11,11,13);
insert(new(pbutton,init(r,'~О~чистить',cmclear,bfnormal)));
r.assign(13,11,23,13);
insert(new(pbutton,init(r,'Н~а~зад',cmreturn,bfnormal)));
r.assign(25,11,35,13);
insert(new(pbutton,init(r,'~Д~алее',cmfar,bfnormal)));
r.assign(37,11,47,13);
insert(new(pbutton,init(r,'О~т~мена',cmcancel,bfnormal)));
selectnext(false)
end;
visualres.put(atributeditor,'Объекты');
dispose(atributeditor,done)
end;
procedure createvalueeditor;
var r:trect;
begin
r.assign(15,3,65,16);
valueeditor:=new(pvalueeditor,init(r,'Редактор значений шаг 3 из 5'));
with valueeditor^ do
begin
r.assign(1,7,11,9);
insert(new(pbutton,init(r,'В~н~ести',cmin,bfdefault)));
r.assign(13,7,23,9);
insert(new(pbutton,init(r,'~Д~ругой',cmcancel,bfnormal)));
r.assign(25,7,35,9);
insert(new(pbutton,init(r,'~З~апись',cmrec,bfnormal)));
r.assign(37,7,47,9);
insert(new(pbutton,init(r,'~П~омощь',cmaehelp,bfnormal)));
r.assign(1,10,11,12);
insert(new(pbutton,init(r,'~О~чистить',cmclear,bfnormal)));
r.assign(13,10,23,12);
insert(new(pbutton,init(r,'Н~а~зад',cmreturn,bfnormal)));
r.assign(25,10,35,12);
insert(new(pbutton,init(r,'~Д~алее',cmfar,bfnormal)));
r.assign(37,10,47,12);
insert(new(pbutton,init(r,'О~т~мена',cmcancel,bfnormal)));
selectnext(false)
end;
visualres.put(valueeditor,'Значения');
dispose(valueeditor,done)
end;
procedure createruleeditor;
var r:trect;
begin
r.assign(0,0,80,23);
ruleeditor:=new(pruleeditor,init(r,'Редактор правил шаг 4 из 5'));
with ruleeditor^ do
begin
r.assign(1,1,79,2);
insert(new(pstatictext,init(r,'Введите правило:')))
end;
visualres.put(ruleeditor,'Правила');
dispose(ruleeditor,done)
end;
begin
pvisualstrm:=new(pprotectedstream,init('expert.air',stcreate,4096));
visualres.init(pvisualstrm);
registermenus;
registerobjects;
registerviews;
registerdialogs;
registercalendar;
registercalc;
registerpuzzle;
registermain;
createstatusline;
createmenubar;
createbank;
createcalendar;
createcalc;
creategame;
createnewwindow;
createrenamewindow;
createdeletewindow;
createexitwindow;
createmachine;
createmanager;
createstatewindow;
createatributeditor;
createvalueeditor;
createruleeditor;
visualres.done
end.
←предыдущая следующая→
1 2
|
|