Реферат: Програмирование на языке Паскаль

interior:pinterior;

begin

twindow.init(bounds,'',0);

getcliprect(bounds);

bounds.grow(-1,-1);

vs:=standardscrollbar(sbvertical+sbhandlekeyboard); hs:=standardscrollbar(sbhorizontal+sbhandlekeyboard);

interior:=new(pinterior,init(bounds,hs,vs));

insert(interior);

readmas;

end;

{_______________________________________________}

procedure tinputwindow.handleevent;

begin

inherited handleevent(event);

if event.what=evcommand then

endmodal(event.command);

end;

{_______________________________________________}

procedure tmatrix.PrintMatrix; {Вывод рабочей матрицы в окне }

var

i,j:integer; {счётчики }

sr:string;

r:trect;

begin

r.assign(0,0,80,23);

wind:=new(pwind,init(r));

desktop^.insert(wind);

with wind^ do

begin