(Ayuda) Rotar y darle zoom a un shape

[guilloking]

Hola miembros del club delphi.

Nesecito una ayuda de parte de ustedes, resulta que soy nuevo en esto, y pues estoy haciendo una animacion donde tengo un shape circulo, y le e agregado botones para que el circulo valla a la izquierda, derecha, arriba y abajo.

Ahora viene el problema, quiero hacer que ese shape circulo rote hacia la izquierda cuando presione el boton, lo mismo con el de rote hacia la derecha, tambien que cuando le de click al boton zoom +, pues se amplie y cuando le de zoom - se achique, y ese es el problema, no se como hacer.

Espero pronta colaboracion por parte de ustedes.

Gracias.

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

Empezado por guilloking

Ahora viene el problema, quiero hacer que ese shape circulo rote hacia la izquierda cuando presione el boton, lo mismo con el de rote hacia la derecha

A mi me vas a perdonar, pero creo que lo difícil no va a ser rotarlo, sino que alguien se de cuenta de que lo estás rotando...
¿Cómo se rota un shape circular? Si es un cuadro, verás como rota, pero un circulo....

Empezado por guilloking

tambien que cuando le de click al boton zoom +, pues se amplie y cuando le de zoom - se achique, y ese es el problema, no se como hacer.

En este caso puedes agrandar/reducir el tamaño del Shape manteniendo el mismo centro. Eso te dará sensación de Zoom.

[guilloking]

hola neftali, gracias por responder, bueno es cierto lo que dices, pero aun asi como hago para que rote el objeto, sea un shape cualquiera, sea circulo o cuadrado, como seria el codigo para que cuando yo presione el boton rote hacia la izquierda y cuando presione el otro boton rote hacia la derecha, la verdad no tengo ni idea, pues como te digo soy nuevo en delphi.

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.

De nuevo gracias por responder, y espero que me puedas colaborar en lo que puedas ok.

[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.

[guilloking]

Gracias por responder, pues como te digo, intente pero no supe como hacerle, voy a intentar con una funcion seno y coseno para ver si puedo hacerlo, lo e echo en c++, pero aun no se como implementar clases en delphi.

Voy a investigar, cualquier duda pues le comento ok.

Gracias.

[[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