procedure TForm1.FormPaint(Sender: TObject);var lPoints: array[0..2] of TPoint;begin lPoints[0].X := Self.Width div 4; lPoints[0].Y := Self.Height div 4; lPoints[1].X := Self.Width div 2; lPoints[1].Y := 0; lPoints[2].X := Self.Width div 2; lPoints[2].Y := Self.Height div 2; ...
function TForm1.RotatePoint(APoint, ACenter: TPoint; AAngle: Double): TPoint;var dx, dy: Double;begin dx := (ACenter.Y * Sin(AAngle)) - (ACenter.X * Cos(AAngle)) + ACenter.X +10; dy := -(ACenter.X * Sin(AAngle)) - (ACenter.Y * Cos(AAngle)) + ACenter.Y +Self.Height div 4; ...