paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 07:43:13 +01: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;
FQuality: TJPEGQualityRange;
protected
procedure InitFPImageReader(ImgReader: TFPCustomImageReader); override;
procedure InitFPImageReader(IntfImg: TLazIntfImage; ImgReader: TFPCustomImageReader); override;
procedure FinalizeFPImageReader(ImgReader: TFPCustomImageReader); override;
procedure InitFPImageWriter(ImgWriter: TFPCustomImageWriter); override;
procedure InitFPImageWriter(IntfImg: TLazIntfImage; ImgWriter: TFPCustomImageWriter); override;
public
constructor Create; override;
class function GetFileExtensions: string; override;
@ -57,7 +57,7 @@ implementation
{ TJPEGImage }
procedure TJPEGImage.InitFPImageReader(ImgReader: TFPCustomImageReader);
procedure TJPEGImage.InitFPImageReader(IntfImg: TLazIntfImage; ImgReader: TFPCustomImageReader);
var
JPEGReader: TFPReaderJPEG;
begin
@ -66,7 +66,7 @@ begin
JPEGReader.Performance:=Performance;
JPEGReader.OnProgress:=@Progress;
end;
inherited InitFPImageReader(ImgReader);
inherited InitFPImageReader(IntfImg, ImgReader);
end;
procedure TJPEGImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader);
@ -80,7 +80,7 @@ begin
inherited FinalizeFPImageReader(ImgReader);
end;
procedure TJPEGImage.InitFPImageWriter(ImgWriter: TFPCustomImageWriter);
procedure TJPEGImage.InitFPImageWriter(IntfImg: TLazIntfImage; ImgWriter: TFPCustomImageWriter);
var
JPEGWriter: TFPWriterJPEG;
begin
@ -91,7 +91,7 @@ begin
JPEGWriter.CompressionQuality:=CompressionQuality;
JPEGWriter.OnProgress:=@Progress;
end;
inherited InitFPImageWriter(ImgWriter);
inherited InitFPImageWriter(IntfImg, ImgWriter);
end;
class function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass;