Разработка игровой программы

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: банк дипломов, решебник 6 класс
| Добавил(а) на сайт: Софрон.

VS:=StandardScrollBar(sbVertical+sbHandleKeyBoard); {разрешение перемещения вертикального бегунка стрелками на клавиатуре}

HS:=StandardScrollBar(sbHorizontal+sbHandleKeyBoard); {разрешение перемещения горизонтального бегунка стрелками на клавиатуре}

Interior:=New(PInterior, Init(Bounds, HS, VS));

Insert(Interior); {добавляет интерьер к окну} end;
Описание конструктора инициализации интерьера: constructor TInterior.Init(var Bounds:TRect; HS, VS: PScrollBar); begin

TScroller.Init(Bounds, HS, VS);

GrowMode:=gfGrowHiX+gfGrowHiY; end;
Описание процедуры прорисовки интерьера окна: procedure TInterior.Draw; begin

TScroller.Draw; {Вызов стандартной прорисовки}

WriteStr(0,0,'Текст в окне',1); {Вывод текста в окно}

TScroller.ShowCursor; {Показать курсор} end;
Описание тела процедуры создания нового окна: procedure TMyApp.NewWindow; var

Window:PDemoWindow;

R: TRect;
Begin

Inc(WinCount);

R.Assign(0,0,26,7); {установка начального размера и позиции}

R.Move(Random(58),Random(16)); {случайное перемещение по экрану}

Window:=New(PDemoWindow, Init(R, 'Demo Window', WinCount));

DeskTop^.Insert(Window); {вывести окно на панель экрана}
End;
Описание тела процедуры обработки команд среды procedure TMyApp.HandleEvent(var Event:TEvent);
Begin

TApplication.HandleEvent(Event); {действует как предок} if Event.What=evCommand Then

Begin case Event.Command of {но откликается на дополнительные команды} cmNew: NewWindow; {определяет действие для команды cmNew} else

Exit;

End;

ClearEvent(Event); {очищает событие после обработки} end;
End;
Описание тела процедуры обработки команд в окне procedure TInterior.HandleEvent(var Event:TEvent);
Begin

TScroller.HandleEvent(Event); {действует как предок} case Event.What of {проверка события} evKeyDown: {если нажата клавиша}

Begin

Case Event.KeyCode of {проверка: какая клавиша нажата} kbLeft: {стрелка влево} begin if x>0 then {если координата по Х больше 0}

Begin x:=x-1; {то уменьшить ее на 1}