Алгоритмы и программы. Афанасьева Т. В - 219 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

219
function isVisible: boolean;
end;
procedure СWindow.Init (x,y,lenx,leny: integer);
{Задает начальные параметры окна}
begin
Self.x:=x;
Self.y:=y;
Self.lenx:=lenx;
Self.leny:=leny;
visible:=true;
end;
procedure СWindow.show;
{Рисует окно}
var i,j: integer;
begin
textbackground (BLUE);
gotoxy (x,y);
write ('╔'); {ALT+201}
for i:=1 to lenx–2 do write ('═'); {ALT+205}
write ('╗') {ALT+187}
for j:=y+1 to y+leny–2 do
begin
gotoxy (x,j);
write ('║'); {ALT+186}
for i:=1 to lenx–2 do write (' '); {ALT+205}
write ('║'); {ALT+186}
end;
gotoxy (x,y+leny–1);
write ('╚'); {ALT+200}
for i:=1 to lenx–2 do write ('═'); {ALT+205}
write ('╝') {ALT+188}
visible:=true;
end;
function CWindow.isVisible: boolean;
begin
isVisible:=visible;
end;

Страницы