Mega Code Archive

 

Categories / Delphi / Graphic

 

Birden fazla köşeli şekil

//x1,x2,x3,y1,y2,y3 integer olmalı// form1.image1.Canvas.Brush.Color:=clgreen; form1.image1.Canvas.Pen.Color := clyellow; form1.image1.Canvas.Polygon([point(x1,y1), point(x2,y2),point(x3,y3)]);