Рисование на форме

Начнем с создания нового проекта. Для этого выполним команду главного меню Проект — Создать проект.... В появившемся диалоговом окне выберем из списка слово Приложение и

нажмем кнопку Создать. Результатом этих действий будет появление окна формы и окна редактора программного кода.

Задание № 1. Создание и сохранение проекта

Все дальнейшие изменения будем сохранять командой Проект - Сохранить проект.
Установите свойства Формы:

Размеры Формы - Height – высота-300, Width – ширина 500

Заголовок формы (свойство Caption); – Первый проект

Цвет формы (свойство Color); - по настроению

Задание № 2. Конструирование формы

1. Поместите на Форму одну кнопку Button1: кнопка выбирается одним щелчком мыши по объекту Button, вторым щелчком на поле формы кнопка выставляется в выбранном месте щелчка. Измените свойство Caption, напечатайте Линия.
2. Перейдите в Инспектор объектов на вкладку События и дважды щелкните по пустому полю справа от слова OnClick. В редакторе кода появится заготовка процедуры, реагирующей на нажатие кнопки:

procedure TForm1.Button1Click(Sender: TObject);

begin

...

end;

Для рисования используются методы класса TСanvas, позволяющие изобразить фигуру (линию, прямоугольник и т.д.) или вывести текст в графическом режиме, и три класса, определяющие инструменты вывода фигур и текстов:

• TFont (шрифты); TPen (карандаш, перо); TBrush (кисть).

Положение пикселя характеризуется его вертикальной (У) и горизонтальной (Х) координатами. Левый верхний пиксель имеет координаты (0,0). Вертикальная координата возрастает сверху вниз, горизонтальная — слева направо. Общее количество пикселей по вертикали определяется свойством Height, а по горизонтали — свойством Weight.

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

Пример

Возможные значения

Color - Цвет линии

Form1.Canvas.Pen.Color:=clRed;

with Form1.Canvas do

Begin

Pen.Color:=clBlue;

End

Константа	Цвет	Константа	Цвет
clBlack	Черный	clSilver	Серебристый
clMaroon	Каштановый	clRed	Красный
clGreen	Зеленый	clLime	Салатный
clOlive	Оливковый	clBlue	Синий
clNavy	Темно-синий	clFuchsia	Ярко-розовый
clPurple	Розовый	clAqua	Бирюзовый
clTeal	Зелено-голубой	clWhite	Белый
clGray	Серый

Width - Толщина линии

Form1.Canvas.Pen.Width:=2;

with Form1.Canvas do

Begin

Pen.Width:=15;

End;

Style - Вид линии

Form1.Canvas.Pen.Style:=psDash;

with Form1.Canvas do

Begin

Pen.Style:=psSolid;

End;

Константа	Вид линии
psSolid	Сплошная линия
psDash	Пунктирная линия, длинные штрихи
psDot	Пунктирная линия, короткие штрихи
psDashDot	Пунктирная линия, чередование длинного и короткого штрихов
psDashDotDot	Пунктирная линия, чередование одного длинного и двух коротких штрихов
psClear	Линия не отображается (используется, если не надо изображать границу области, например, прямоугольника)

Класс цвета точки Tcolor определяется как длинное целое longint. Переменные этого типа занимают в памяти четыре байта и содержат информацию о долях синего (B), зеленого (G) и красного(R) цветов и устроены следующим образом: $00BBGGRR (шестнадцатеричный код).

Например: form1.Canvas.brush.Color:=$00D5FFFF;

Установить цвет кисти (информацию о долях синего (B), зеленого (G) и красного(R) цветов) десятичным кодом RGB(R, G, B),

Например: form1.Canvas.brush.Color:=RGBToColor(255, 255, 213);

Цвет кисти можно задать случайным образом

form1.Canvas.Brush.Color:=RGBToColor(random(255),random(255),random(255));

3. В тело процедуры вставьте строки

with Form1.Canvas do

Begin

Pen.Color:=clRed;

Pen.Width:=3;

Line(10,10,100,100);

End;