راهنمایی برای رسم دایره

[samir2253122]

مثال
C:\Program Files\Borland\Delphi7\Demos\Doc\Graphex
رسم بیضی را توضیح داده و میدانیم که در برنامه ای مثل ورد با گرفتن کلید شیفت ما میتونیم همیشه دایره بجای بیضی داشته باشیم ولی در این مثال به خاطر سادگی کار این قضیه استفاده نشده حالا مشکل من اینه که من همیشه میخوام دایره داشته باشم شیفت لازم نیست چکار باید کرد؟
چندین راه حل ریاضی بکار بردم موثر نبود.

[DAMAVAND]

اگه میخواهید دایره رسم کنید.اگه میخواهید دایره رسم کنید
چرا از Ellipse استفاده نمیکنید ???


procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Pen.Style:=psSolid;
Canvas.Pen.Width:=2;
Canvas.Pen.Color:=clRed;
Canvas.Ellipse(100,100,5,5);
end;

[samir2253122]

فکر نکنم دستوری غیر از این وجود داشته باشه ولی همونطور که میدونید باید از dx=dy استفاده کنم تا بیضی تبدیل به دایره بشه این درست. ولی وقتی با دراگ کردن قطری بین دو نقطه میخواهیم دایره ای رسم کنیم درست عمل نمیکنه یعنی بهتر بگم دایره رو در بالای موس یا جایی که انتظار نداریم رسم میکنه در حالی که بیضی رو نه.