Como Rotar imagnes(rotar el TImage).
tfercho
19 de Abril del 2004
Hola.
Estoy trabajando sobre un editor gráfico, he logrado colocar todo tipo de objetos sobre un panel el cual hace de fondo. Entre los objetos que coloco esta TLabel(en forma dinámica), los cuales con llamadas a la API de windows he logrado rotar con el mouse, he crado imagenes recurriendo al objeto TImage(creado dinamicamente), lo coloco en el panel y recurriendo a los eventos del Mouse lo redimenciono y lo reubico.
Pero no he podido rotarlo como roto los TLabels, si alguien sabe como puedo rotar el compoente TImage(tal ves con la funciones de la API de Windows, GetWindowRgn con algun truco o algo así, etc) le agradeceria mucho su alluda.
Estoy trabajando sobre un editor gráfico, he logrado colocar todo tipo de objetos sobre un panel el cual hace de fondo. Entre los objetos que coloco esta TLabel(en forma dinámica), los cuales con llamadas a la API de windows he logrado rotar con el mouse, he crado imagenes recurriendo al objeto TImage(creado dinamicamente), lo coloco en el panel y recurriendo a los eventos del Mouse lo redimenciono y lo reubico.
Pero no he podido rotarlo como roto los TLabels, si alguien sabe como puedo rotar el compoente TImage(tal ves con la funciones de la API de Windows, GetWindowRgn con algun truco o algo así, etc) le agradeceria mucho su alluda.
DCelso
19 de Abril del 2004
Más facil usando las funciones del Canvas del timage
TImage->Canvas->LoadBitmap();
O FillRect, o algunas, sigue la ayuda de builder del canvas y mira sus métodos, hay para casi todo.
Eso de rotar ya debe de ser con un bucle leyendo en horizontal y escribiendo en vertical en otro timage temporal en modo no visible y luego cargar el timage invisible en el otro anterior con la función TImage->Bitmap->Assiggn(TImage2->Bitmap);
TImage->Canvas->LoadBitmap();
O FillRect, o algunas, sigue la ayuda de builder del canvas y mira sus métodos, hay para casi todo.
Eso de rotar ya debe de ser con un bucle leyendo en horizontal y escribiendo en vertical en otro timage temporal en modo no visible y luego cargar el timage invisible en el otro anterior con la función TImage->Bitmap->Assiggn(TImage2->Bitmap);