Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Работа с графикой






План работы:

Проект “Декартова система координат”

Разработать проект, рисующий декартову систему координат. На этапе выполнения форма должна иметь следующий вид:

1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Декартова система координат”;

Разместите на форме со страницы Additional компонент Image. Данный компонент имеет канву – пространство для создания графических объектов – и позволяет рисовать на ней, а также облегчает располагать рисунки в области формы.

 

 

2. Установите цвет рисуемых объектов (осей) - свойство Pen и заливки (фона) - свойство Brush класса TCanvas.

3. в событии OnCreate формы реализуйте рисование декартовой системы координат на компоненте Image, подпись осей и начала системы координат, используя следующие методы класса TCanvas:

· MoveTo(x, y) – перемещение в точку с указанными координатами;

· LineTo(x', y') – рисование линии от текущей точки (x, y) до следующей точки с координатами (x', y');

· TextOut(x, y, ‘текст’) – вывод текста в указанную позицию (x, y);

Пример рисования оси y:

На Image1, на его канве, рисуем ОТ точки(середина ширины Image1, 0)

На Image1, на его канве, рисуем ДО точки(середина ширины Image1, высота Image1)

 

4. Поместите на форму компонент RadioGroup, оформите его внешний вид в соответствии с требуемым.

5. Измените стиль линий при рисовании декартовой системы координат, используя метод Style класса TPen, для этого создать обработку OnClick RadioGroup след.образом:

выбор по индексуRadioGroup1 из

0: стилю линии канвы Image1: = psSolid;

1: стилю линии канвы Image1: = psDash;

2: стилю линии канвы Image1: = psDot;

3: стилю линии канвы Image1: = psDashDot;

end;

вызвать процедуру перерисования Image1

 

6. Проверьте работу проекта.

 

5. Проект «Random».

Разработайте проект, демонстрирующий работу с холстом (Canvas) в Delphi, строящий случайным образом точки, линии, прямоугольники, эллипсы и т.д. Для этого:

1. Разместите на форме 5 кнопок SpeedButton (Точки, Линии, Прямоугольники, Эллипсы, Очистка) и компонент PaintBox (вкладка System) для рисования. Для кнопок установите свойство Flat в состояние True.

2. Сохраните проект в папку Edit.

 

 

3. Обработайте событие OnClick кнопки «Точки» так, чтобы на форме появлялись точки, изображенные цветом, выбранным случайным образом.

randomize;

for i: =1 to 5000 do {количество точек}

PaintBox1.Canvas.Pixels[random(PaintBox1.Width), random(PaintBox1.Height)]: =random (65535);

4. Аналогично обработайте событие OnClick для кнопок «Линии», «Прямоугольники», «Эллипсы». Цвета этих фигур должны быть выбраны случайным образом.

5. Проверьте работу проекта.

 

 

6. Кнопка «Очистка» должна очищать компонент PaintBox (это можно сделать, поместив на компонент прямоугольник, залитый цветом PaintBox (clBtnFace)).

7. Проверьте работу проекта.



Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал