NBPRG23.PAS - головна програма малої GNU операційної системи NBPRG23.

NBPRG23.PAS

{ Nikita Beloshenko (GNU) 2012 }

program NBPRG23;
uses Graph,Crt,N23t1,N23t2,N23t3,N23t4,Inst,Simple,Calc,Edit,Files,NBPRG_I;
label NEXT,PREV,START,EXIT;
const
MaxNTask = 20;
MenuColor = 4;
var
TFile : Text;
TaskList : array[1..MaxNTask] of String;
PNameList : array[1..MaxNTask] of String;
Ntask : Byte;
gd,gm,i : Integer;
s : String;
ch : Char;

procedure DrawSmallPicture16x16(var X0,Y0 : Integer; Path : String);
var
X,Y : Integer;
i1,j1 : Byte;
TFile : Text;
Color : Byte;
begin
assign(TFile, Path);
reset(TFile);
for i1 := 1 to 16 do
begin
for j1 := 1 to 16 do
begin
X := X0 + j1;
Y := Y0 + i1;
Read(TFile, Color);
PutPixel(X,Y,Color);
end;
ReadLn(TFile);
end;
close(TFile);
end;

procedure DrawRectangle(var x1,y1,x2,y2:Integer);
begin
Line(x1,y1,x2,y1);
Line(x2,y1,x2,y2);
Line(x2,y2,x1,y2);
Line(x1,y2,x1,y1);
end;

procedure DrawNtaskRectangle;
var
x1,y1,x2,y2:Integer;
j:Byte;
Path : String;
begin
SetColor(MenuColor);
for j:=1 to Ntask do
begin
x1 := 20; y1 := 20 + (j-1)*40;
x2 := 40; y2 := 40 + (j-1)*40;
DrawRectangle(x1,y1,x2,y2);
SetTextStyle(2, HorizDir, 5);
OutTextXY(x2 + 20, y1, TaskList[j]);

Path := PNameList[j];
DrawSmallPicture16x16(x1,y1,Path);
end;

x1 := 20 - 5;
x2 := 20 + 20 + 5;
y1 := 20 - 5;
y2 := 40 + (Ntask - 1)*40 + 5;

DrawRectangle(x1,y1,x2,y2);
end;

procedure DrawMRectangle;
var
x1,y1,x2,y2:Integer;
begin
SetColor(4);
x1:=20 - 1;y1:=20 + (i-1)*40 - 1;x2:=40 + 1;y2:=40 + (i-1)*40 + 1;
DrawRectangle(x1,y1,x2,y2);
end;

procedure ErraseMRectangle;
var
x1,y1,x2,y2:Integer;
begin
SetColor(0);
x1:=20 - 1;y1:=20 + (i-1)*40 - 1;x2:=40 + 1;y2:=40 + (i-1)*40 + 1;
DrawRectangle(x1,y1,x2,y2);
end;

procedure ExecuteTask(var Command:String);
begin
if Command ='task1' then DoTask1;
if Command ='task2' then DoTask2;
if Command ='task3' then DoTask3;
if Command ='task4' then DoTask4;

{...TODO : ADD HERE REACTIONS...}

if Command = 'calc' then DoCalc;
if Command = 'edit' then DoEdit;
if Command = 'files' then DoFiles;

if Command ='install/del customer task (help)' then DoInstHelp;
if Command ='Reset SIMPLE.PAS (test user task)' then DoInst;
if Command ='Simple (test user task)' then DoSimple;

end;

var
x1,y1,x2,y2 : Integer;
begin
gd := Detect;
InitGraph(gd,gm,'');

Ntask := 0;

assign(TFile,'list.tck');
reset(TFile);
while not eof(TFile) do
begin
Inc(NTask);
ReadLn(TFile,TaskList[Ntask]);
ReadLn(TFile,PNameList[Ntask]);
end;
close(TFile); 

if NTask > MaxNTask then NTask := MaxNTask;

i:=1;

{ ADDITION GRAPHICAL INTERFACE RELOADING ... }
NBPRG_I_reload_interf;

START:

DrawNtaskRectangle;

SetTextStyle(2, HorizDir, 5);
OutTextXY(350,300,'Enter - Select task');

x1 := 350 - 10;
x2 := 500 + 10;
y1 := 300 - 10;
y2 := 300 + 20 + 10;
DrawRectangle(x1,y1,x2,y2);

OutTextXY(350,50,'Nikita Beloshenko (GNU) 2012');

DrawMRectangle;
ch := ReadKey;
ErraseMRectangle;
if Ord(ch) = 80 then goto NEXT;
if Ord(ch) = 72 then goto PREV;
if Ord(ch) = 27 then goto EXIT;

{ 13 = "ENTER". }
if Ord(ch) = 13 then
begin
ExecuteTask(TaskList[i]);

{ ADDITION GRAPHICAL INTERFACE RELOADING ... }
NBPRG_I_reload_interf;
end;
goto START;

NEXT:
Inc(i);
if i>Ntask then Dec(i);
goto START;

PREV:
Dec(i);
if i<1 br="" i="" inc="" then="">goto START;

EXIT:
ReadLn(s);
CloseGraph;
end.