(Ayuda) Rotar y darle zoom a un shape

[Neftali [Germán.Estévez]]

Empezado por guilloking

Como hago eso que tu me dijistes, sobre darle el efecto zoom y de-zoom al shape agrandando y achicando, me podrias explicar como se hace.

Se trata de que intentes hacerlo. y si tienes problemas preguntes.

Puedes "ampliar" el Shape con este código:

Código Delphi [-]
  Shape1.Left := Shape1.Left - 5;
  Shape1.Top := Shape1.Top - 5;
  Shape1.Height := Shape1.Height + 10;
  Shape1.Width := Shape1.Width + 10;

Para reducir puedes usar algo similar.

Rotar es algo más complejo. Puesto que los componentes estandard no lo permiten, posiblemente lo más práctico sea generar un derivado de TShape que añada esa funcionalidad.
Calculando el centro de la imagen y aplicando senos y cosenos a los puntos de los vértices puedes conseguir calcular los nuevos puntos segun un ángulo de rotación. A partir de ahí deberás dibujar la figura con las nuevas coordenadas.