paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-10 02:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Activate TJpegImage.MinHeight and .MinWidth (issue #30408, patch by Nur Cholif Murtadho)

Browse Source 
git-svn-id: trunk@59054 -
This commit is contained in:
wp 2018-09-17 21:50:15 +00:00
parent e10a3065f6
commit 5ba5831cbe
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/graphics.pp
View File

@ -1760,6 +1760,8 @@ type
TJPEGImage = class(TFPImageBitmap)
private
FGrayScale: Boolean;
FMinHeight: Integer;
FMinWidth: Integer;
FPerformance: TJPEGPerformance;
FProgressiveEncoding: boolean;
FQuality: TJPEGQualityRange;
@ -1781,6 +1783,8 @@ type
public
property CompressionQuality: TJPEGQualityRange read FQuality write SetCompressionQuality;
property GrayScale: Boolean read FGrayScale write SetGrayScale;
property MinHeight: Integer read FMinHeight write FMinHeight;
property MinWidth: Integer read FMinWidth write FMinWidth;
property ProgressiveEncoding: boolean read FProgressiveEncoding;
property Performance: TJPEGPerformance read FPerformance write FPerformance;
property Scale: TJPEGScale read FScale write FScale;

2
lcl/include/jpegimage.inc
View File

@ -82,6 +82,8 @@ end;
procedure TJPEGImage.InitializeReader(AImage: TLazIntfImage; AReader: TFPCustomImageReader);
begin
inherited;
TFPReaderJPEG(AReader).MinHeight := MinHeight;
TFPReaderJPEG(AReader).MinWidth := MinWidth;
TFPReaderJPEG(AReader).Performance := Performance;
TFPReaderJPEG(AReader).Scale := Scale;
end;