Mega Code Archive

 

Categories / Delphi / Graphic

 

Draw randomize bezier curve

Title: draw randomize bezier curve? procedure TForm1.Button1Click(Sender: TObject); var pusat: array of TPoint; i: Integer; begin SetLength(pusat, 4); for i := Low(pusat) to High(pusat) do begin pusat[i].x := Random(Width); pusat[i].y := Random(Height); end; Canvas.PolyBezier(pusat); end;