paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 11:49:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

- non used readers removed

Browse Source 
git-svn-id: trunk@6084 -
This commit is contained in:
mazen 2004-09-28 16:36:14 +00:00
parent ead8badfb4
commit 147197bdf5
2 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/images/lazbmp.pas
View File

@ -50,8 +50,6 @@ implementation
{ TBMPImage } { TBMPImage }
procedure TBMPImage.InitFPImageReader(ImgReader: TFPCustomImageReader); procedure TBMPImage.InitFPImageReader(ImgReader: TFPCustomImageReader);
var
BMPReader: TFPReaderBMP;
begin begin
if ImgReader is TFPReaderBMP then begin if ImgReader is TFPReaderBMP then begin
end; end;
@ -59,8 +57,6 @@ begin
end; end;
procedure TBMPImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader); procedure TBMPImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader);
var
BMPReader: TFPReaderBMP;
begin begin
if ImgReader is TFPReaderBMP then begin if ImgReader is TFPReaderBMP then begin
end; end;

5
components/images/laztga.pas
View File

@ -49,8 +49,6 @@ implementation
{ TTGAImage } { TTGAImage }
procedure TTGAImage.InitFPImageReader(ImgReader: TFPCustomImageReader); procedure TTGAImage.InitFPImageReader(ImgReader: TFPCustomImageReader);
var
TGAReader: TFPReaderTarga;
begin begin
if ImgReader is TFPReaderTarga then begin if ImgReader is TFPReaderTarga then begin
end; end;
@ -58,11 +56,8 @@ begin
end; end;
procedure TTGAImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader); procedure TTGAImage.FinalizeFPImageReader(ImgReader: TFPCustomImageReader);
var
TGAReader: TFPReaderTarga;
begin begin
if ImgReader is TFPReaderTarga then begin if ImgReader is TFPReaderTarga then begin
TGAReader:=TFPReaderTarga(ImgReader);
end; end;
inherited FinalizeFPImageReader(ImgReader); inherited FinalizeFPImageReader(ImgReader);
end; end;