added class keyword to proc bodies for fpc 2.1.1

git-svn-id: trunk@9384 -

components/images/lazbmp.pas

@@ -74,12 +74,12 @@ begin
   inherited InitFPImageWriter(ImgWriter);
 end;
 
-function TBMPImage.GetDefaultFPReader: TFPCustomImageReaderClass;
+class function TBMPImage.GetDefaultFPReader: TFPCustomImageReaderClass;
 begin
   Result:=TFPReaderBMP;
 end;
 
-function TBMPImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
+class function TBMPImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
 begin
   Result:=TFPWriterBMP;
 end;
@@ -89,7 +89,7 @@ begin
   inherited Create;
 end;
 
-function TBMPImage.GetFileExtensions: string;
+class function TBMPImage.GetFileExtensions: string;
 begin
   Result:='bmp';
 end;

components/images/lazjpg.pas

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

components/images/lazpng.pas

@@ -22,8 +22,7 @@ interface
 
 uses
   SysUtils, Classes, FPImage, IntfGraphics, Graphics,
-  FPReadPNG, FPWritePNG,
+  FPReadPNG, FPWritePNG,ClipBrd;
-  ClipBrd;
 
 type
 
@@ -45,12 +44,12 @@ implementation
 
 { TPNGImage }
 
-function TPNGImage.GetDefaultFPReader: TFPCustomImageReaderClass;
+class function TPNGImage.GetDefaultFPReader: TFPCustomImageReaderClass;
 begin
   Result:=TFPReaderPNG;
 end;
 
-function TPNGImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
+class function TPNGImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
 begin
   Result:=TFPWriterPNG;
 end;
@@ -60,7 +59,7 @@ begin
   inherited Create;
 end;
 
-function TPNGImage.GetFileExtensions: string;
+class function TPNGImage.GetFileExtensions: string;
 begin
   Result:='png';
 end;

components/images/lazpnm.pas

@@ -47,12 +47,12 @@ implementation
 
 { TPNMImage }
 
-function TPNMImage.GetDefaultFPReader: TFPCustomImageReaderClass;
+class function TPNMImage.GetDefaultFPReader: TFPCustomImageReaderClass;
 begin
   Result:=TFPReaderPNM;
 end;
 
-function TPNMImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
+class function TPNMImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
 begin
   Result:=TFPWriterPNM;
 end;
@@ -62,7 +62,7 @@ begin
   inherited Create;
 end;
 
-function TPNMImage.GetFileExtensions: string;
+class function TPNMImage.GetFileExtensions: string;
 begin
   Result:='ppm;pgm;pbm';
 end;

components/images/laztga.pas

@@ -73,12 +73,12 @@ begin
   inherited InitFPImageWriter(ImgWriter);
 end;
 
-function TTGAImage.GetDefaultFPReader: TFPCustomImageReaderClass;
+class function TTGAImage.GetDefaultFPReader: TFPCustomImageReaderClass;
 begin
   Result:=TFPReaderTarga;
 end;
 
-function TTGAImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
+class function TTGAImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
 begin
   Result:=TFPWriterTarga;
 end;
@@ -88,7 +88,7 @@ begin
   inherited Create;
 end;
 
-function TTGAImage.GetFileExtensions: string;
+class function TTGAImage.GetFileExtensions: string;
 begin
   Result:='tga';
 end;

components/images/lazxpm.pas

@@ -78,12 +78,12 @@ begin
   inherited InitFPImageWriter(ImgWriter);
 end;
 
-function TXPMImage.GetDefaultFPReader: TFPCustomImageReaderClass;
+class function TXPMImage.GetDefaultFPReader: TFPCustomImageReaderClass;
 begin
   Result:=TFPReaderXPM;
 end;
 
-function TXPMImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
+class function TXPMImage.GetDefaultFPWriter: TFPCustomImageWriterClass;
 begin
   Result:=TFPWriterXPM;
 end;
@@ -93,7 +93,7 @@ begin
   inherited Create;
 end;
 
-function TXPMImage.GetFileExtensions: string;
+class function TXPMImage.GetFileExtensions: string;
 begin
   Result:='xpm';
 end;