mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-19 07:49:15 +02:00
+ Support for PNM image
This commit is contained in:
parent
9de3e6b588
commit
1917301b40
@ -20,7 +20,7 @@ program ImgConv;
|
||||
|
||||
uses FPWriteXPM, FPWritePNG, FPWriteBMP,
|
||||
FPReadXPM, FPReadPNG, FPReadBMP, fpreadjpeg,fpwritejpeg,
|
||||
fpreadtga,fpwritetga,
|
||||
fpreadtga,fpwritetga,fpreadpnm,
|
||||
{$ifndef UseFile}classes,{$endif}
|
||||
FPImage, sysutils;
|
||||
|
||||
@ -45,6 +45,8 @@ begin
|
||||
Reader := TFPReaderPNG.Create
|
||||
else if T = 'T' then
|
||||
Reader := TFPReaderTarga.Create
|
||||
else if T = 'N' then
|
||||
Reader := TFPReaderPNM.Create
|
||||
else
|
||||
begin
|
||||
Writeln('Unknown file format : ',T);
|
||||
|
Loading…
Reference in New Issue
Block a user