// Win95/NT4.0 부터 베쥬(Bezier) 곡선을 그릴 수 있는 API가 추가되었습니다
// 그러나, Delphi 의 TCanvas 에서는 지원되지 않습니다
// 물론 API 를 직접 호출하면 사용할 수 있습니다
// 아래 예제는 PolyBezierTo() API 를 사용해 타원을 그리는 예제입니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure DrawCircle(dc: HDC; x, y, rx, ry: Integer);
var
pt: array [0..2] of TPoint;
cx, cy: Integer;
begin
cx := rx * 55 div 100;
cy := ry * 55 div 100;
MoveToEx(dc, x, y - ry, nil);
pt[0] := Point(x + cx, y - ry);
pt[1] := Point(x + rx, y - cy);
pt[2] := Point(x + rx, y );
PolyBezierTo(dc, pt, 3);
pt[0] := Point(x + rx, y + cy);
pt[1] := Point(x + cx, y + ry);
pt[2] := Point(x , y + ry);
PolyBezierTo(dc, pt, 3);
pt[0] := Point(x - cx, y + ry);
pt[1] := Point(x - rx, y + cy);
pt[2] := Point(x - rx, y );
PolyBezierTo(dc, pt, 3);
pt[0] := Point(x - rx, y - cy);
pt[1] := Point(x - cx, y - ry);
pt[2] := Point(x , y - ry);
PolyBezierTo(dc, pt, 3);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DrawCircle(Image1.Canvas.Handle, 50, 50, 40, 30);
end;
end. |
|
