diff --git a/lcl/graphics.pp b/lcl/graphics.pp
index 88df24a44c..3cb401a08e 100644
--- a/lcl/graphics.pp
+++ b/lcl/graphics.pp
@@ -1763,6 +1763,7 @@ type
     FPerformance: TJPEGPerformance;
     FProgressiveEncoding: boolean;
     FQuality: TJPEGQualityRange;
+    FScale: TJPEGScale;
     procedure SetCompressionQuality(AValue: TJPEGQualityRange);
     procedure SetGrayScale(AValue: Boolean);
   protected
@@ -1782,6 +1783,7 @@ type
     property GrayScale: Boolean read FGrayScale write SetGrayScale;
     property ProgressiveEncoding: boolean read FProgressiveEncoding;
     property Performance: TJPEGPerformance read FPerformance write FPerformance;
+    property Scale: TJPEGScale read FScale write FScale;
   end;
   {$ENDIF}
 
diff --git a/lcl/include/jpegimage.inc b/lcl/include/jpegimage.inc
index 934218f436..1a5bebfb3d 100644
--- a/lcl/include/jpegimage.inc
+++ b/lcl/include/jpegimage.inc
@@ -83,6 +83,7 @@ procedure TJPEGImage.InitializeReader(AImage: TLazIntfImage; AReader: TFPCustomI
 begin
   inherited;
   TFPReaderJPEG(AReader).Performance := Performance;
+  TFPReaderJPEG(AReader).Scale := Scale;
 end;
 
 procedure TJPEGImage.InitializeWriter(AImage: TLazIntfImage; AWriter: TFPCustomImageWriter);