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

r:tpoint;

location:word;

begin

location:=0;

tscroller.handleevent(event);

case event.what of

evmousedown:

begin

makelocal(mousewhere,r);

location:=delta.y+r.y;

scrolldraw

end;

evkeydown:

case event.keycode of

kbgrayminus:if location>delta.y then

begin

dec(location); scrolldraw

end;

kbgrayplus:if location<delta.y+pred(size.y) then

begin

inc(location);

scrolldraw

end;

end;

end;

end;

{_______________________________________________}

constructor twin.init(bounds:trect); {инициализация прокрутки }

var