Delphi 7 dasturida aylana hosil qilish

Question

Hammaga salom. Delphi 7 dasturlash tilida aylana hosil qilish kerak, kim yordam bera oladi, oldindan raxmat.

Answer 1

Markazning koordinatalari va radius berilganda canvas yordamida chizish uchun quyidagi kod yordam beradi

procedure TForm1.Button1Click(Sender: TObject);
var r,x0,y0:Integer;
begin
 r:=100;     // radius
 x0:=300;   // markaz koordinatasi
 y0:=200;   // markaz koordinatasi
 Canvas.Ellipse(x0-r,y0-r,x0+r,y0+r);
end;