delphi - 更改形状的方向

Question

我想知道是否有办法改变 TShape 的方向，而不是正方形，我想旋转它看起来像钻石..

如果不是 TShape 的方法，那怎么能做到呢？

Answer 1

一个 Delphi TShape 无非就是画一堆矢量图。

您可以使用二维变换矩阵“旋转”X/Y 坐标。计算机图形学 101：

• http://www.cs.uic.edu/~jbell/CourseNotes/ComputerGraphics/2DTransforms.html

• http://www.willamette.edu/~gorr/classes/GeneralGraphics/Transforms/transforms2d.htm

Answer 2

TShape 本身不能旋转。但是你可以使用 TPaintBox 来绘制你自己想要的图形，这只是在数学上绘制要绘制的点的问题。例如：

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  Points: array[0..3] of TPoint;
  W, H: Integer;
begin
  W := PaintBox1.Width;
  H := PaintBox1.Height;

  Points[0].X := W div 2;
  Points[0].Y := 0;

  Points[1].X := W;
  Points[1].Y := H div 2;

  Points[2].X := Points[0].X;
  Points[2].Y := H;

  Points[3].X := 0;
  Points[3].Y := Points[1].Y;

  PaintBox1.Canvas.Brush.Color := clBtnFace;
  PaintBox1.Canvas.FillRect(Rect(0, 0, W, H));

  PaintBox1.Canvas.Brush.Color := clBlue;
  PaintBox1.Canvas.Pen.Color := clBlack;
  PaintBox1.Canvas.Pen.Width := 1;
  PaintBox1.Canvas.Polygon(Points);
end;