Code:
procedure TForm1.FileListBox1Click(Sender: TObject);
var
Jpeg: TJpegImage;
bmp: TBitmap;
begin
Jpeg:=TJpegImage.Create;
bmp := TBitmap.Create;
try
jpeg.LoadFromFile(FileListBox1.FileName);
bmp.Assign(jpeg);
Image1.Picture.Assign(bmp);
Image1.Picture.Bitmap.PixelFormat := pf24bit;
Drehen90Grad(Image1.Picture.Bitmap);
finally
jpeg.free;
end;
end;
Hi Ich nochmal...
Wie kann ich das Jpg was in BMP umgewandelt wurde direkt nach dem drehen speichern...
Das speichern ist ja kein Problem aber danach lässt sich die datei nicht mehr öffnen
Wenn ihr mir nochmal helfen könntet wäre das echt super!
Gruß
TheReal