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) ну и полилайн от нее забабахал, думаю понять не трудно, что творится.
---------- И создал Бог женщину... Существо получилось злобное, но забавное... |
|