Browse Source

UPD: Viewer - speed up the first rotate (based on Exif metadata)

Alexander Koblov 1 month ago
parent
commit
5a23bd3f6e
1 changed files with 6 additions and 6 deletions
  1. 6 6
      src/fviewer.pas

+ 6 - 6
src/fviewer.pas

@@ -1917,11 +1917,11 @@ var
   x, y: Integer;
   xWidth,
   yHeight: Integer;
-  SourceImg: TLazIntfImage = nil;
-  TargetImg: TLazIntfImage = nil;
+  SourceImg: TLazIntfImage;
+  TargetImg: TLazIntfImage;
 begin
   TargetImg:= TLazIntfImage.Create(0, 0);
-  SourceImg:= Image.Picture.Bitmap.CreateIntfImage;
+  SourceImg := TLazIntfImage.Create(TRasterImage(Image.Picture.Graphic).RawImage, False);
   TargetImg.DataDescription:= SourceImg.DataDescription; // use the same image format
   xWidth:= Image.Picture.Bitmap.Width - 1;
   yHeight:= Image.Picture.Bitmap.Height - 1;
@@ -1980,11 +1980,11 @@ var
   x, y: Integer;
   xWidth,
   yHeight: Integer;
-  SourceImg: TLazIntfImage = nil;
-  TargetImg: TLazIntfImage = nil;
+  SourceImg: TLazIntfImage;
+  TargetImg: TLazIntfImage;
 begin
   TargetImg:= TLazIntfImage.Create(0, 0);
-  SourceImg:= Image.Picture.Bitmap.CreateIntfImage;
+  SourceImg := TLazIntfImage.Create(TRasterImage(Image.Picture.Graphic).RawImage, False);
   TargetImg.DataDescription:= SourceImg.DataDescription; // use the same image format
   xWidth:= Image.Picture.Bitmap.Width - 1;
   yHeight:= Image.Picture.Bitmap.Height - 1;