paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 21:11:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tiff support

Browse Source 
git-svn-id: trunk@36401 -
This commit is contained in:
michael 2017-06-03 03:48:14 +00:00
parent 6a457fb06c
commit 3c1b4f6279
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-image/examples/imgconv.pp
View File

@ -19,7 +19,7 @@ program ImgConv;
uses FPWriteXPM, FPWritePNG, FPWriteBMP,
FPReadXPM, FPReadPNG, FPReadBMP, fpreadjpeg,fpwritejpeg,
fpreadtga,fpwritetga,fpreadpnm,fpwritepnm,
fpreadtga,fpwritetga,fpreadpnm,fpwritepnm, fpreadtiff, fpwritetiff,
{$ifndef UseFile}classes,{$endif}
FPImage, sysutils;
@ -44,6 +44,8 @@ begin
Reader := TFPReaderPNG.Create
else if T = 'T' then
Reader := TFPReaderTarga.Create
else if T = 'F' then
Reader := TFPReaderTiff.Create
else if T = 'N' then
Reader := TFPReaderPNM.Create
else
@ -77,6 +79,8 @@ begin
Writer := TFPWriterPNG.Create
else if T = 'T' then
Writer := TFPWriterTARGA.Create
else if T = 'F' then
Writer := TFPWriterTiff.Create
else if T = 'N' then
Writer := TFPWriterPNM.Create
else
@ -150,7 +154,7 @@ begin
begin
writeln ('Give filename to read and to write, preceded by filetype:');
writeln ('X for XPM, P for PNG, B for BMP, J for JPEG, T for TGA,');
writeln ('N for PNM (read only)');
writeln ('N for PNM (read only), F for TIFF');
writeln ('example: imgconv X hello.xpm P hello.png');
writeln ('example: imgconv hello.xpm P hello.png');
writeln ('Options for');