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

* fixed compilation

Browse Source 
git-svn-id: trunk@11862 -
This commit is contained in:
marc 2007-08-25 09:48:36 +00:00
parent 04b4e27b62
commit fa05992ce0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/jpeg/lazjpeg.pas
View File

@ -34,9 +34,9 @@ type
FProgressiveEncoding: boolean; FProgressiveEncoding: boolean;
FQuality: TJPEGQualityRange; FQuality: TJPEGQualityRange;
protected protected
procedure InitFPImageReader(ImgReader: TFPCustomImageReader); override; procedure InitFPImageReader(IntfImg: TLazIntfImage; ImgReader: TFPCustomImageReader); override;
procedure FinalizeFPImageReader(ImgReader: TFPCustomImageReader); override; procedure FinalizeFPImageReader(ImgReader: TFPCustomImageReader); override;
procedure InitFPImageWriter(ImgWriter: TFPCustomImageWriter); override; procedure InitFPImageWriter(IntfImg: TLazIntfImage; ImgWriter: TFPCustomImageWriter); override;
public public
constructor Create; override; constructor Create; override;
class function GetFileExtensions: string; override; class function GetFileExtensions: string; override;
@ -57,7 +57,7 @@ implementation
{ TJPEGImage } { TJPEGImage }
procedure TJPEGImage.InitFPImageReader(ImgReader: TFPCustomImageReader); procedure TJPEGImage.InitFPImageReader(IntfImg: TLazIntfImage; ImgReader: TFPCustomImageReader);
var var
JPEGReader: TFPReaderJPEG; JPEGReader: TFPReaderJPEG;
begin begin
@ -66,7 +66,7 @@ begin
JPEGReader.Performance:=Performance; JPEGReader.Performance:=Performance;
JPEGReader.OnProgress:=@Progress; JPEGReader.OnProgress:=@Progress;
end; end;
inherited InitFPImageReader(ImgReader); inherited InitFPImageReader(IntfImg, ImgReader);
end; end;
procedure TJPEGImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader); procedure TJPEGImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader);
@ -80,7 +80,7 @@ begin
inherited FinalizeFPImageReader(ImgReader); inherited FinalizeFPImageReader(ImgReader);
end; end;
procedure TJPEGImage.InitFPImageWriter(ImgWriter: TFPCustomImageWriter); procedure TJPEGImage.InitFPImageWriter(IntfImg: TLazIntfImage; ImgWriter: TFPCustomImageWriter);
var var
JPEGWriter: TFPWriterJPEG; JPEGWriter: TFPWriterJPEG;
begin begin
@ -91,7 +91,7 @@ begin
JPEGWriter.CompressionQuality:=CompressionQuality; JPEGWriter.CompressionQuality:=CompressionQuality;
JPEGWriter.OnProgress:=@Progress; JPEGWriter.OnProgress:=@Progress;
end; end;
inherited InitFPImageWriter(ImgWriter); inherited InitFPImageWriter(IntfImg, ImgWriter);
end; end;
class function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass; class function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass;