Урок N3 Построение графических объектов в Delphi
Цель работы
1) Работа с графическим компонентом Image
2) Команды графических
построений
(Rectangle, Moveto, LineTo ,
Ellipse, Pixels, TextOut )
3) Настройка установок (Цвета линии, Толщины линии, Цвета и стиля заливки,
Параметров выводимого шрифта)
4) Определение размера
окна Image в
пикселях
Задание
Используя графический компонент Delphi Image и команды графических построений создать рисунок
вида
Примеры кода для построения
10) //Очистка обозначеного сектора
procedure TForm1.Button1Click(Sender: TObject);
var
x0,x1,y0,y1:integer;
begin
x0:=strtoint(Edit1.text);
x1:=strtoint(Edit2.text);
y0:=strtoint(Edit3.text);
y1:=strtoint(Edit4.text);
//Image1.Canvas.FillRect(Rect(0,0,305,21
//Image1.Canvas.Brush.Style:=BsClear;//Установить
бес
Image1.Canvas.Pen.Color:=clWhite;//Цвет контура
Image1.Canvas.Brush.Color:=clWhite;//Цвет Заливки
Image1.Canvas.rectangle(x0,y0,x1,y1);//Цвет линии
end;
//Начало
procedure TForm1.Button2Click(Sender: TObject);
begin
1) //Определение
размера
окна Image1 в
пикселах X:(Image1.ClientWidth), Y:(Image1.ClientHeight)
label1.caption:='Размер окна:
Высота '+inttostr(Image1.ClientHeight)+' Ширина
'+inttostr(Image1.ClientWidth);
//
2) //Пример построения прямоугольника
Image1.Canvas.Pen.Color:=clRed;//Цвет линии
Image1.Canvas.rectangle(0,0,305,217);//Цвет линии
//
3) //Пример построения прямоугольника с заккругленными
углами (Roundrect)
Image1.Canvas.Pen.Color:=clblue;//Цвет линии
Image1.Canvas.Roundrect(20,20,285,197,10,10);// Roundrect
последние цифры 10,10 определяют степень закрггленности
прямоугольника
//
4) //квадрат сиреневого цвета, с зеленым обводом (свойства: Pen.Width, Pen.Color, Brush.Color)
Image1.Canvas.Pen.Width:=3;//толщина линии контура
Image1.Canvas.Pen.Color:=clGreen;//Цвет контура линии
Image1.Canvas.Brush.Color:=clFuchsia;//Цвет Заливки
Image1.Canvas.rectangle(30,160,60,190);//Цвет линии
//
5) //квадрат сиреневого цвета, с зеленым обводом с штриховкой (свойства: Pen.Width, Pen.Color,
Brush.Color)
Image1.Canvas.Pen.Width:=3;//толщина линии контура
Image1.Canvas.Pen.Color:=clGreen;//Цвет контура линии
Image1.Canvas.Brush.Style:=bsFDiagonal;//Тип штриховки
Image1.Canvas.Brush.Color:=clFuchsia;//Цвет Заливки
Image1.Canvas.rectangle(220,140,270,190);//Цвет линии
//
6) //Построение треугольника из линий
Image1.Canvas.Pen.Width:=3;//толщина линии контура
Image1.Canvas.Pen.Color:=clyellow;//Цвет контура линии
Image1.Canvas.Moveto(60,160);// Установка пера на начальную точку
Image1.Canvas.LineTo(160,20);// Линия Снизу вверх
Image1.Canvas.LineTo
(230,160);//Линия Сверху вниз
Image1.Canvas.LineTo(60,160);//Горизонтальная нижняя линия
//
7) //Построение окружности или элипса
Image1.Canvas.Pen.Color:=clBlue;//Цвет контура
Image1.Canvas.Brush.Color:=clLime;//Цвет Заливки контура
Image1.Canvas.Brush.Style:=bsSolid;//Тип штриховки
Image1.Canvas.Pen.Width:=2;//толщина линии контура
Image1.Canvas.Ellipse(120,70,190,140);// Координаты прямоугольника
в котором строится окружность
8) //Построение коричневой точки в центре окружности
Image1.Canvas.Pen.Color:=clMaroon;//Цвет контура линии
Image1.Canvas.Pixels[153,105]:=clRed;//Установить
красную точку в координатах х=150,у=110
//
9) //Созданиен надписи около
окружности (стр 261)
Image1.Canvas.Brush.Style:=BsClear;//Установить бесцветный цвет фона
Image1.Canvas.Font.Size:=9;//Установка размера шрифта
Image1.Canvas.Font.Style:=[fsBold,fsUnderline];//установка
стиля шрифтов (Жирный, подчеркнутый)
Image1.Canvas.Font.Color:=clRed;//Установка цвета шрифта (Красный)
Image1.Canvas.TextOut(155,105,'Центр окружности');//Установка текста
надписи
//