Rotar imagen jpg

[[ArdiIIa]]

Empezado por ElDioni

Hola a todos, espero me puedan ayudar, he estado buscando por los foros pero no he encontrado nada que me pueda ayudar

Viste esto

y Esto otro

Seguramente la piedra filosofal de los gráficos

[[ElDioni]]

yo ya habia probado los trucos de estos hilos a los que me haces referencia y efectivamente cuando cargo un bitmap si me lo gira y el codigo funciona y tal, pero cuando lo que cargo es un archivo jpg el dibujo desaparece, y hasta ahí he llegado, espero me puedan ayudar y gracias por tu respuesta ardilla.

[[ArdiIIa]]

En un TImage hay que distinguir el Picture si es bmp u otro tipo dado que el tratamiento es diferente.
En todo caso tú quieres rotar un jpg dentro de un TImage pues prueba con este código.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Bmp1,bmp2 : TBitmap;
x,y : integer;
begin

Bmp1 := TBitmap.Create;
Bmp1.Assign(Image1.Picture.Graphic);

Bmp2 := TBitmap.Create;
Bmp2.Width:=Bmp1.height;
Bmp2.Height := Bmp2.width;

   for x:=0 to Bmp1.Height -1 do
   begin
     for y:=0 to Bmp1.Width -1 do
     begin
       Bmp2.Canvas.Pixels[x,(Bmp1.Height -1) - y]:= Bmp1.Canvas.Pixels[y,x];
     end;
   end;

Image1.Picture.Graphic.Assign(Bmp2);

Image1.Refresh;

end;

El resultado final, será cosa tuya.

[[ElDioni]]

Muchas gracias ardilla por tu tiempo, efectivamente he probado el codigo que me propones y me gira el jpg, no se lo que habia hecho antes, con tu ayuda ya me las arreglo para adaptarlo a lo que necesito, de nuevo gracias me ha sido de gran ayuda.

[[ElDioni]]

Creo que he hablado de más antes de avanzar.
Tengo puesto el TImage la propiedad proportional a true para que si la imagen es grande o pequeña se cargue siempre dentro de unos límites. Pero al hacerla rotar pierde esta propiedad y aunque la vuelva a pone a true no funciona, tampoco funciona el strech ya que la imagen sale cortada. alguna idea.