Private
Procedure Show; Virtual;появление объекта
Procedure Hide; Virtual;скрытие объекта
End;
Constructor TRing.Init;переопределеннаяинициализация
Begin
x:=a; x, y, rad –глобальные переменные
y:=b; a, b, r –входные переменные(формальные параметры) –координаты центра объекта и его радиус
rad:=r;
End;
Procedure TRing.Show; переопределенноепоявление
Begin
SetColor(14); цвет фигуры - желтый
Circle(x,y,rad);помещаем желтую окружность по координатамxиy
End;
Procedure TRing.Hide; переопределенноескрытие
Begin
SetColor(1); цвет фигуры – синий (цвет фона)
Circle(x,y,rad);помещаем синюю окружность по координатамxиy
End;
Var x0, y0, dx, dy, radius: Word;
driver, regim: Integer;
pixel: TPix; создаем экземпляр объекта TPix – переменную pixel
ring: TRing; создаем экземпляр объекта TRing – переменную ring
Begin
driver:=detect;автоопределение графического драйвера
InitGraph(Driver,Regim,'C:\BP\BGI');инициализация графическогорежима
SetBkColor(1);цвет фона - синий
ClearDevice;очистка экрана
SetColor(14);цвет фигур - желтый
x0:=100; x0 и y0 – начальные координаты центра окружности
y0:=150;
dx:=50; dx и dy – шаги по координатам
dy:=40;
radius:=10; радиус окружности
ring.Init(x0, y0, radius); инициализация окружности: задаем начальные координаты ее центра и радиус
ring.Show; выводим окружность на экран по заданным координатам
Delay(1000); пауза в 1 сек
ring.Move(dx, dy); перемещаем окружностьна dx,dy
x0:=200; x0 и y0 – начальные координаты точки
y0:=250;
dx:=80; dx и dy – шаги по координатам
dy:=50;
pixel.Init(x0, y0); инициализация точки: задаем начальные координаты точки
pixel.Show; выводим точку на экран по заданным координатам
Delay(1000); пауза в 1 сек
Pixel.Move(dx, dy); перемещаем точкуна dx,dy
Delay(1000); пауза в 1 сек
Дата добавления: 2015-08-08; просмотров: 563;