– 31 –

With Im.Canvas.Cliprect do begin If Y < Top then begin

Y := Top; dY := -dY

end;

If Y+2*R > Bottom then begin Y := Bottom-2*R;

dY := -dY end

end; draw

end;

Кнопка выбора цвета запускает стандартный диалог ColorDialog.

procedure TfGrafic.bColorClick(Sender: TObject); begin

dColor.Execute

end;

При выборе режима pmXor (установке соответствующего переключателя) нужно сначала стереть изображение, выведенное в режиме pmCopy, после чего установить выбранное значение режима и вывести окружность.

procedure TfGrafic.rXORClick(Sender: TObject); begin

Im.Canvas.Brush.Color := clWhite; Im.Canvas.Pen.Color := clWhite; draw;

Im.Canvas.Pen.Mode := pmXor; Im.Canvas.Brush.Color := C; Im.Canvas.Pen.Color := C; draw;

end;

При выборе режима pmCopy достаточно просто установить этот режим.

procedure TfGrafic.rCOPYClick(Sender: TObject); begin

Im.Canvas.Pen.Mode := pmCopy; end;

Варианты заданий

Во всех вариантах заданий необходимо сформировать движущееся изображение какойлибо фигуры или текста. Программа должна предусматривать возможность изменения параметров движущейся фигуры в процессе её движения: цветов и стилей пера и заливки, размеров, направлений движения, параметров шрифта. Набор изменяемых параметров можно расширить самостоятельно.

1.Изобразить движущуюся пятиконечную звезду.

2.Изобразить движущийся треугольник.

3.Изобразить движущийся прямоугольник.

4.Изобразить движущийся текст с возможностью изменения самого текста.

5.Изобразить движущийся сектор окружности.

6.Изобразить движущийся месяц.

7.Изобразить движущийся отсеченный эллипс.

8.Изобразить движущийся ромб.

9.Изобразить движущийся параллелограмм.

10.Изобразить движущуюся трапецию.

Калачев Д.П., Лутай В,Н,. Скороход С.В. Delphi. Лабораторные работы.