From 2fb5b14a6f794c7cf017afdf27dc53dd95a57ec0 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 27 May 2006 18:50:56 +0000 Subject: [PATCH] added class keyword to proc bodies for fpc 2.1.1 git-svn-id: trunk@9365 - --- components/jpeg/lazjpeg.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/jpeg/lazjpeg.pas b/components/jpeg/lazjpeg.pas index 151c71ffe8..0a72ad5365 100644 --- a/components/jpeg/lazjpeg.pas +++ b/components/jpeg/lazjpeg.pas @@ -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;