• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 133
  • Last Modified:

How can i print varios lines in a Canvas of form...

How can i print varios lines in a Canvas of form for example:

i have the form, i determine the center of the form then the user want draw an polygon regular of 5 sides and with the lines drawed stared of the point center of the polygon to the vertices
Any idea?

atte kok77




 
0
jamiguel
Asked:
jamiguel
1 Solution
 
intheCommented:
hi there ,
use the tpoint like so:
procedure TForm1.Button1Click(Sender: TObject);
var
    pts : array[0..3] of TPoint;
begin
    pts[0] := Point(100,100);
    pts[1] := Point(150,300);
    pts[2] := Point(200, 50);
    pts[3] := Point(250, 175);
PolyBezier(Canvas.Handle, pts, 4);
end;

this would draw a curve but just add amount of points to array
and plot your polygon with the starting point being the center of the canvas

Regards Barry.
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now