Разработка игровой программы
Категория реферата: Рефераты по информатике, программированию
Теги реферата: банк дипломов, решебник 6 класс
Добавил(а) на сайт: Софрон.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата
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}
Рекомендуем скачать другие рефераты по теме: индия реферат, акт.
Предыдущая страница реферата | 1 2 3 4 | Следующая страница реферата