delphi - 如何绘制旋转的圆角矩形

Question

绘制 RoundRect 很容易:

procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer); override;

绘制旋转矩形也很容易。

获取角点并旋转它们，如下所示:

procedure RotatePoints(var Points: TArray<TPoint>; const Angle: Double; const OrgPt: TPoint);
var
  Sin, Cos: Double;
  Prime: TPoint;
  P: TPoint;
begin
 SinCos(NormalizeAngle(Angle), Sin, Cos);
 for P in Points do begin
   Prime.X := P.X - OrgPt.X;
   Prime.Y := P.Y - OrgPt.Y;
   P.X := Round(Prime.X * Cos - Prime.Y * Sin) + OrgPt.X;
   P.Y := Round(Prime.X * Sin + Prime.Y * Cos) + OrgPt.Y;
end;

但是如何绘制旋转的 RoundRect？
请注意，我使用的是 VCL，而不是 Firemonkey。

Answer 1

您可以使用SetWorldTransform在您想要使用的设备上下文上进行旋转。示例:

procedure RotatedRoundRect(DC: HDC; Degrees: Integer;
    X1, Y1, X2, Y2, X3, Y3: Integer);
var
  XForm, SaveXForm: TXForm;
  r: Single;
  ht, vt: Single;
  SaveMode: Integer;
begin
  r := (2 * pi * Degrees) / 360;

  XForm.eM11 := Cos(r);
  XForm.eM12 := Sin(r);
  XForm.eM21 := - XForm.eM12;
  XForm.eM22 := XForm.eM11;
  ht := (X1 + X2) / 2;
  vt := (Y1 + Y2) / 2;
  XForm.eDx := ht - XForm.eM11 * ht + XForm.eM12 * vt;
  XForm.eDy := vt - XForm.eM11 * vt - XForm.eM12 * ht;

  GetWorldTransform(DC, SaveXForm);
  SaveMode := GetGraphicsMode(DC);
  SetGraphicsMode(DC, GM_ADVANCED);
  SetWorldTransform(DC, XForm);
  RoundRect(DC, X1, Y1, X2, Y2, X3, Y3);
  SetWorldTransform(DC, SaveXForm);
  SetGraphicsMode(DC, SaveMode);
end;

顺时针旋转 15° 圆角矩形的示例调用:

RotatedRoundRect(Canvas.Handle, 15, 30, 20, 210, 150, 25, 25);