Пример 2. procedure TForm1.Button1Click(Sender: TObject);

Пример 1.

procedure TForm1.Button1Click(Sender: TObject);

Var

X, Y: extended;

PX, PY: LongInt;

HalfHeight: LongInt;

begin

Canvas.Pen.Color:= clBlue;

Canvas.Pen.Width:= 4;

Canvas.MoveTo(10, 10);

Canvas.LineTo(300, 400);

Canvas.Brush.Color:= clRed;

Canvas.Rectangle(10,10, 200,200);

HalfHeight:= Form1.Height div 2;

For PX:=0 to Form1.Width do

begin

X:= PX*(2*Pi/Form1.Width);

Y:= Sin(X);

PY:= Trunc(0.7*Y*HalfHeight) + HalfHeight;

Canvas.Pixels[PX, PY]:= RGB(250, 0, 0);

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

Var

X, Y: extended;

PX, PY: LongInt;

i: LongInt;

HalfHeight: LongInt;

begin

Canvas.Pen.Color:= clBlue;

Canvas.Pen.Width:= 4;

Canvas.MoveTo(10, 10);

//Canvas.LineTo (300, 400);

Canvas.Brush.Color:= clRed;

Canvas.Rectangle(10, 10, 200,200);

HalfHeight:= Form1.Height div 2;

For i:= -10 to 10 do

begin

PX:= 0;

while PX<Form1.Width do

begin

X:= PX*(2*PI/Form1.Width);

Y:= SIN(X);

PY:= Trunc(0.7*Y*HalfHeight)+ HalfHeight+(i*10);

IF(PX=0) then Canvas.MoveTo(PX,PY);

Canvas.LineTo(PX, PY);

PY:=Trunc(0.6*Y*HalfHeight)+ HalfHeight+((i - 1)*10);

Canvas.LineTo(PX, PY);

PX:= PX + 15;

end;

Form1.Canvas.Ellipse(200, 200, 400, 400);

Form1.Canvas.Pie (450, 300, 500, 400,

100, 100, 100, 200);

Form1.Canvas.Rectangle(400, 200, 450, 400);

end;

end;

Дата добавления: 2014-01-07