Урок 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,'Центр окружности');//Установка текста надписи

//

Перейти на Главную

<<НАЗАД