(Ayuda) Rotar y darle zoom a un shape

[[cHackAll]]

Las respuestas que te pudiesen dar en éste hilo, son las mismas a las que te darán aquí, pues son los mismos miembros los que te responderían en ambos casos, no es necesario revivir todos los hilos que traten del mismo tema hasta que te respondan, en ese caso muchos hilos trataria de temas de hace varios años.

Ahora, si deseas deformar un objeto "físicamete" revisa la Api SetWindowRgn
Si deseas girar una imagen revisa el truco 455.

Pero en cualquiera de los casos lo mejor es solo dibujar sin tener que usar pasos adicionales que pueden ser inecesarios, revisa el siguiente code;

Código Delphi [-]
procedure DrawPie(Canvas: TCanvas; X, Y, Size, Dir: Integer);
begin
 case Dir of
  0: Canvas.Pie(X, Y, X + Size, X + Size, X + (Size div 2), 0, X + (Size div 2), 0);                               // up
  1: Canvas.Pie(X, Y, X + Size, X + Size,  0, Y + (Size div 2), 0, Y + (Size div 2));                              // left
  2: Canvas.Pie(X, Y, X + Size, X + Size, X + (Size div 2), Y + (Size div 2), X + (Size div 2), Y + (Size div 2)); // right
  3: Canvas.Pie(X, Y, X + Size, X + Size, X + (Size div 2), Y + Size, X + (Size div 2), Y + Size);                 // down
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 DrawPie(Canvas, 0, 0, 200, 0);
 DrawPie(Canvas, 200, 200, 150, 1);
 DrawPie(Canvas, 350, 350, 100, 2);
 DrawPie(Canvas, 450, 450, 50, 3);
end;

Saludos