ShIvADeSt
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
Цитата:| Просто код с помощью LineTo и MoveToEx кажется мне еще сложным для понимания |
Набросал вот (несмотри на OnPaint - рисуется все на АПИ)
Код:
procedure TForm1.FormPaint(Sender: TObject);
procedure Line(DC:HDC; x1,y1,x2,y2:integer);
begin
MoveToEx(DC, x1,y1,nil);
LineTo(DC, x2,y2);
end;
procedure PolylineEx(DC:HDC; Points:array of TPoint);
var
i :integer;
begin
for i := 1 to High(Points) do Line(DC,Points[i-1].x,Points[i-1].y,Points[i].x,Points[i].y)
end;
var
lp :array of TPoint;
begin
Line(Form1.Canvas.Handle,100,100,200,200);
SetLength(lp,3);
lp[0].x:=100;
lp[0].y:=150;
lp[1].x:=200;
lp[1].y:=250;
lp[2].x:=150;
lp[2].y:=100;
PolylineEx(Form1.Canvas.Handle, lp);
SetLength(lp,0);
end;
|
Сделал по аналогии со старым бейсиков (там была продеру Line) ну и полилайн от нее забабахал, думаю понять не трудно, что творится.
----------
И создал Бог женщину... Существо получилось злобное, но забавное... |
|
... 
