paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:19:36 +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);
end;
function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass;
class function TJPEGImage.GetDefaultFPReader: TFPCustomImageReaderClass;
begin
Result:=TFPReaderJPEG;
end;
function TJPEGImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
class function TJPEGImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
begin
Result:=TFPWriterJPEG;
end;
@ -110,7 +110,7 @@ begin
FQuality:=75;
end;
function TJPEGImage.GetFileExtensions: string;
class function TJPEGImage.GetFileExtensions: string;
begin
Result:='jpg;jpeg';
end;