paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-25 21:36:15 +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 try
jpeg.LoadFromFile(filename); jpeg.LoadFromFile(filename);
jpeg.CompressionQuality := SbQuality.Position; jpeg.CompressionQuality := SbQuality.Position;
{$IF FPC_FullVersion >= 30400} {$IF FPC_FullVersion >= 30004}
jpeg.GrayScale := CbGrayScale.Checked; jpeg.GrayScale := CbGrayScale.Checked;
{$IFEND} {$IFEND}
jpeg.ProgressiveEncoding := CbProgressive.Checked; jpeg.ProgressiveEncoding := CbProgressive.Checked;
@ -171,7 +171,7 @@ begin
LblProgressive.Caption := ''; LblProgressive.Caption := '';
BtnReadClick(nil); BtnReadClick(nil);
SbQualityChange(nil); SbQualityChange(nil);
{$IF FPC_FullVersion >= 30400} {$IF FPC_FullVersion >= 30004}
CbGrayScale.Enabled := false; CbGrayScale.Enabled := false;
{$ENDIF} {$ENDIF}
end; end;

2
lcl/graphics.pp
View File

@ -1780,7 +1780,7 @@ type
class function GetFileExtensions: string; override; class function GetFileExtensions: string; override;
public public
property CompressionQuality: TJPEGQualityRange read FQuality write SetCompressionQuality; 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 MinHeight: Integer read FMinHeight write FMinHeight;
property MinWidth: Integer read FMinWidth write FMinWidth; property MinWidth: Integer read FMinWidth write FMinWidth;
property ProgressiveEncoding: boolean read FProgressiveEncoding write SetProgressiveEncoding; 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; if not(AWriter is TFPWriterJPEG) then Exit;
TFPWriterJPEG(AWriter).ProgressiveEncoding := ProgressiveEncoding; TFPWriterJPEG(AWriter).ProgressiveEncoding := ProgressiveEncoding;
TFPWriterJPEG(AWriter).CompressionQuality := CompressionQuality; TFPWriterJPEG(AWriter).CompressionQuality := CompressionQuality;
{$IF FPC_FullVersion >= 30400} {$IF FPC_FullVersion >= 30004}
TFPWriterJPEG(AWriter).GrayScale := GrayScale; TFPWriterJPEG(AWriter).GrayScale := GrayScale;
{$IFEND} {$IFEND}
end; end;