Окружность и эллипс

End.

Begin

Else

End

Begin

Implementation

Var

Public

Private

Type

Uses

Листинг 4. Вычерчивание замкнутого контура (звезды) в точке нажатия кнопки мыши

Var

Листинг. График функции (использование метода Polyline)

procedure TForml.Button1Click(Sender: TObject);

gr: array[1..50] of TPoint; // график — ломаная линия

x0,y0: integer; // координаты точки начала координат

dx,dy: integer; // шаг координатной сетки по осям X и Y

i: integer; begin

х0:= 10; у0:= 200; dx := 5; dy:= 5;

// заполним массив gr

for i:=l to 50 do begin

gr[i].x:= x0 + (i-l)*dx;

gr[i].y:= y0 - Data[i]*dy;

end;

// строим график

with forml.Canvas do begin

MoveTo(x0,y0); LineTo(x0,10); // ось Y

MoveTo(x0,y0); LineTo(200,y0); // ось X

Polyline(gr); // график

end;

end;

Метод Polyline можно использовать для вычерчивания замкнутых контуров. Для этого надо, чтобы первый и последний элементы массива содержали координаты одной и той же точки. В качестве примера использования метода Polybine для вычерчивания замкнутого контура в листинге 4 приведена программа, которая на поверхности диалогового окна, в точке нажатия кнопки мыши, вычерчивает контур пятиконечной звезды. Цвет, которым вычерчивается звезда, зависит от того, какая из кнопок мыши была нажата. Процедура обработки нажатия кнопки мыши (событие MouseDown) вызывает процедуру рисования звезды starLine и передает ей в качестве параметра координаты точки, в которой была нажата кнопка. Звезду вычерчивает процедура starLine, которая в качестве параметров получает координаты центра звезды и холст, на котором звезда должна быть выведена. Сначала вычисляются координаты концов и впадин звезды, которые записываются в массив р. Затем этот массив передается в качестве параметра методу Polyline. При вычислении координат лучей и впадин звезды используются функции sin и cos. Так как аргумент этих функций должен быть выражен в радианах, то значение угла в градусах домножается на величину pi/18о, где pi — это стандартная именованная константа равная числу л.

unit Stars_; interface

Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms, Dialogs, StdCtrls;

TForm1 = class (TForm)

procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

{ Private declarations }

{ Public declarations }

end;

Forml: TForml;

f$R *.dfm}

// вычерчивает звезду

procedure StarLine(x0,y0,r: integer; Canvas: TCanvas);

// x0,y0 — координаты центра звезды

//r — радиус заезды var

р: array [1.. 11] of TPoint;

// массив координат лучей и впадин

a: integer; // угол между осью ОХ и прямой, соединяющей

// центр звезды и конец луча или впадину i: integer;

а:= 18; // строим от правого гор. луча

for i:=l to 10 do begin

if (i mod 2=0) then begin // впадина

p[i].x:= x0+Round(r/2*cos(a*pi/180));

p[i].y:=y0-Round(r/2*sin(a*pi/180));

begin // луч

[i].x:=x0+Round(r*cos (a*pi/180));

[i].y:=y0-Round(r*sin(a*pi/180));

end;

a:= a+36;

end;

p[ll].X:= p[l].X; // чтобы замкнуть контур звезды

Canvas. Polyline (р); // начертить звезду

end;

// нажатие кнопки мыши

procedure TForm1. FormMouseDown { Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

if Button = mbLeft // нажата левая кнопка?

then Form1. Canvas. Pen. Color: = clRed

else Form1. Canvas. Pen. Color:= clGreen;

StarLine(x, y, 30, Forml. Canvas);

end;

Метод Ellipse вычерчивает эллипс или окружность, в зависимости от значений параметров. Инструкция вызова метода в общем виде выглядит следующим образом:

Объект.Canvas.Ellipse(x1,y1, х2,у2]

где:

Ø объект — имя объекта (компонента), на поверхности которого выполняется вычерчивание;

Ø x1, y1, х2, у2 — координаты прямоугольника, внутри которого вычерчивается эллипс или, если прямоугольник является квадратом, окружность (рис. 10.6).

Цвет, толщина и стиль линии эллипса определяются значениями свойства Реп, а цвет и стиль заливки области внутри эллипса — значениями свойства Brush поверхности (canvas), на которую выполняется вывод.

Дата добавления: 2014-11-16