Q&A

  • 원그리기
머리가 나쁜 탓에 정말 힘이 드는군요 ?

한 점과 반지름을 알고 있는 경우 원을 그리는 방법을

알고 계신분 부탁드립니다.



C 언어에서 보면 Circle(x,y,r) 하면 원을 그리는 것 같던데...

델파이에서는 이렇게 그리는 방법이 없을 까여 ?

1  COMMENTS
  • Profile
    이순구 2001.10.11 22:20
    초보 wrote:

    > 머리가 나쁜 탓에 정말 힘이 드는군요 ?

    > 한 점과 반지름을 알고 있는 경우 원을 그리는 방법을

    > 알고 계신분 부탁드립니다.

    >

    > C 언어에서 보면 Circle(x,y,r) 하면 원을 그리는 것 같던데...

    > 델파이에서는 이렇게 그리는 방법이 없을 까여 ?



    한 점을 중심점이라고 하고 폼위에 원을 그린다면 다음과 같이 하면 되겠군요...



    procedure TForm1.DrawCircle(x, y, r: Integer); // r=반지름

    begin

    Canvas.Ellipse(x - r, y - r, x + r, y + r);

    end;



    procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

    Shift: TShiftState; X, Y: Integer);

    begin

    DrawCircle(X, Y, 100);

    end;