<div>
Here is something for ya...<br />
<br />
procedure Circle(x,y, r : Integer; Where : TCanvas);<br />
var<br />
&nbsp; a : integer;<br />
begin<br />
&nbsp; for a := 0 to 359 do<br />
&nbsp; &nbsp; Where.Pixels[round(x+cos(a<wbr />/180*pi)*r<wbr />),round(y+<wbr />sin(a/180*<wbr />pi)*r)] := clBlack;<br />
end;<br />
<br />
Example call:<br />
<br />
Circle(Form1.Width shr 1, Form1.Height shr 1, 50, Form1.Canvas);<br />
<br />
Hope this helps...<br />
<br />
-Viktor<br />
--Ivanov<br />

</div>


Here is something for ya...

procedure Circle(x,y, r : Integer; Where : TCanvas);
var
  a : integer;
begin
  for a := 0 to 359 do
    Where.Pixels[round(x+cos(a/180*pi)*r),round(y+sin(a/180*pi)*r)] := clBlack;
end;

Example call:

Circle(Form1.Width shr 1, Form1.Height shr 1, 50, Form1.Canvas);

Hope this helps...

-Viktor
--Ivanov


<div>
Which comment answer helped you solve your problem?? I'm just curious...<br />

</div>


Which comment answer helped you solve your problem?? I'm just curious...


<div>
No one. I took a cheat of paper, draw a rectangle with a circle and thought that I only have to find out the radius to solve my problem. I knew the mouse up point and from this point i ad to go radius left and radius right and up and down the same.<br />
(:-)<br />

</div>


No one. I took a cheat of paper, draw a rectangle with a circle and thought that I only have to find out the radius to solve my problem. I knew the mouse up point and from this point i ad to go radius left and radius right and up and down the same.
(:-)


<div>
That would take quite a long time to accomplish... You need to change the Xs and Ys in order to be able to do it that way, and it really is a cheap way of doin' it...<br />
<br />
Merry Christmas!<br />
<br />
Take care o' ya<br />
<br />
-Viktor<br />
--Ivanov<br />

</div>


That would take quite a long time to accomplish... You need to change the Xs and Ys in order to be able to do it that way, and it really is a cheap way of doin' it...

Merry Christmas!

Take care o' ya

-Viktor
--Ivanov


<div>
<div class="content wysiwyg-content">
Hi,<br />
I need a procedure which draws a circle. The Code should be<br />
procedure circle (x,y,r : Integer) x,y = Middle r = radius.
</div>
</div>


Hi,
I need a procedure which draws a circle. The Code should be
procedure circle (x,y,r : Integer) x,y = Middle r = radius.

TCanvas.Circle

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.