呵呵！你们领导一定是“图象处理的@@狂”！
开个玩笑！助人为乐！不要Cry了！
一个小的Bezier曲线运用单元，用来画圆弧的（如：圆，椭圆等等）
type
T2DPoint = packed record
X, Y: Double;
end;
procedure EllipseEx(DC: hDC; X, Y, A, B, Angle: Double; N: Integer);
var
P: array of T2DPoint;
Q: array of TPoint;
Alpha, Beta: Double;
SinA, CosA: Double;
Temp: Double;
I, J, K: Integer;
begin
if N < 2 then N := 2;
Alpha := Pi/N;
Beta := 4 * (1-Cos(Alpha)) / (3*Sin(Alpha));
SetLength(P, N*3+1);
for I := 0 to N-1 do
begin
Temp := I * (2*Alpha);
CosA := cos(Temp);
SinA := sin(Temp);
K := I*3;
if K = 0
then J := N*3-1
else J := K-1;
P[K].X := A * CosA;
P[K].Y := B * SinA;
SinA := Beta * A * SinA;
CosA := Beta * B * CosA;
P[J].X := P[K].X + SinA;
P[J].Y := P[K].Y - CosA;
P[K+1].X := P[K].X - SinA;
P[K+1].Y := P[K].Y + CosA;
end;
P[N*3] := P[0];
CosA := cos(Angle);
SinA := sin(Angle);
SetLength(Q, N*3+1);
for i := Low(P) to High(P) do
begin
Q.X := Round(P.X*CosA - P.Y*SinA +X);
Q.Y := Round(P.X*SinA + P.Y*CosA +Y);
end;
BeginPath(DC);
PolyBezier(DC, Q, High(Q)+1);
EndPath(DC);
StrokeAndFillPath(DC);
end;
