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

added class keyword to proc bodies for fpc 2.1.1

Browse Source 
git-svn-id: trunk@9365 -
This commit is contained in:
mattias 2006-05-27 18:50:56 +00:00
parent bfb3fd9685
commit 2fb5b14a6f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/jpeg/lazjpeg.pas
View File

@ -92,12 +92,12 @@ begin
inherited InitFPImageWriter(ImgWriter); inherited InitFPImageWriter(ImgWriter);
end; end;
function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass; class function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass;
begin begin
Result:=TFPReaderJPEG; Result:=TFPReaderJPEG;
end; end;
function TJPEGImage.GetDefaultFPWriter: TFPCustomImageWriterClass; class function TJPEGImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
begin begin
Result:=TFPWriterJPEG; Result:=TFPWriterJPEG;
end; end;
@ -110,7 +110,7 @@ begin
FQuality:=75; FQuality:=75;
end; end;
function TJPEGImage.GetFileExtensions: string; class function TJPEGImage.GetFileExtensions: string;
begin begin
Result:='jpg;jpeg'; Result:='jpg;jpeg';
end; end;