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

LCL: Fix FPC_FullVersion text for FPC 3.0.4. Now 30004, was 30400.

Browse Source 
git-svn-id: trunk@62703 -
This commit is contained in:
juha 2020-03-07 20:31:32 +00:00
parent 08b5b4a244
commit 6a5c733584
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/jpeg_more/main.pas
View File

@ -135,7 +135,7 @@ begin
try
jpeg.LoadFromFile(filename);
jpeg.CompressionQuality := SbQuality.Position;
{$IF FPC_FullVersion >= 30400}
{$IF FPC_FullVersion >= 30004}
jpeg.GrayScale := CbGrayScale.Checked;
{$IFEND}
jpeg.ProgressiveEncoding := CbProgressive.Checked;
@ -171,7 +171,7 @@ begin
LblProgressive.Caption := '';
BtnReadClick(nil);
SbQualityChange(nil);
{$IF FPC_FullVersion >= 30400}
{$IF FPC_FullVersion >= 30004}
CbGrayScale.Enabled := false;
{$ENDIF}
end;

2
lcl/graphics.pp
View File

@ -1780,7 +1780,7 @@ type
class function GetFileExtensions: string; override;
public
property CompressionQuality: TJPEGQualityRange read FQuality write SetCompressionQuality;
property GrayScale: Boolean read FGrayScale {$IF FPC_FullVersion >= 30400} write SetGrayScale{$IFEND};
property GrayScale: Boolean read FGrayScale {$IF FPC_FullVersion >= 30004} write SetGrayScale{$IFEND};
property MinHeight: Integer read FMinHeight write FMinHeight;
property MinWidth: Integer read FMinWidth write FMinWidth;
property ProgressiveEncoding: boolean read FProgressiveEncoding write SetProgressiveEncoding;

2
lcl/include/jpegimage.inc
View File

@ -95,7 +95,7 @@ begin
if not(AWriter is TFPWriterJPEG) then Exit;
TFPWriterJPEG(AWriter).ProgressiveEncoding := ProgressiveEncoding;
TFPWriterJPEG(AWriter).CompressionQuality := CompressionQuality;
{$IF FPC_FullVersion >= 30400}
{$IF FPC_FullVersion >= 30004}
TFPWriterJPEG(AWriter).GrayScale := GrayScale;
{$IFEND}
end;