Hallo,
ich habe ein Problem mit dem Drehen von Jpg-Bildern.
Wenn ich ein Bild mit folgendem Code drehe:
Delphi-Quellcode:
procedure TForm1.DrehenClick(Sender: TObject);
var Jpg:TJpegImage;
begin
Screen.Cursor:=crHourGlass;
Jpg:=TJpegImage.Create;
Jpg.LoadFromFile('c:\testbild\dsc04860.jpg');
Jpg.Transform(jt_ROT_180);
Jpg.SaveToFile('C:\dsc04860a.jpg');
Jpg.Free;
Screen.Cursor:=crDefault;
end;
wird die Miniaturansicht im Explorer nicht aktualisiert. Erst wenn ich im Kontextmenu auf "Miniaturansicht aktualisieren" klicke stimmt das Bild wieder.
Doch damit nicht genug: Wenn ich dieses Bild dann in die XP-Vorschau lade und drehe es im oder gegen den Uhrzeigersinn wird die Miniaturansicht um 180° verkehrt herum angezeigt.
Wennn ich das Bild nur mit
Jpg.Transform(jt_ROT_90);
drehe klappt alles prima.
Kennt jemand dieses Phänomen und kann mir erklären was das ist, und wie ich das Ganze richtig machen kann?