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

* added BMP writer in options

Browse Source 
* create image with size 0,0 before reading (for correct calculation of transparency)
This commit is contained in:
luk 2003-10-19 21:11:28 +00:00
parent bfa55a332c
commit 753f08ae83
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
fcl/image/imgconv.pp
View File

@ -18,9 +18,10 @@ program ImgConv;
{_$define UseFile}
uses FPImage, FPWriteXPM, FPWritePNG, FPReadXPM, FPReadPNG,
uses FPWriteXPM, FPWritePNG, FPWriteBMP,
FPReadXPM, FPReadPNG, FPReadBMP,
{$ifndef UseFile}classes,{$endif}
sysutils;
FPImage, sysutils;
var img : TFPMemoryImage;
reader : TFPCustomImageReader;
@ -35,6 +36,8 @@ begin
T := upcase (paramstr(1)[1]);
if T = 'X' then
Reader := TFPReaderXPM.Create
else if T = 'B' then
Reader := TFPReaderBMP.Create
else
Reader := TFPReaderPNG.Create;
ReadFile := paramstr(2);
@ -52,9 +55,11 @@ begin
T := WriteOptions[1];
if T = 'X' then
Writer := TFPWriterXPM.Create
else if T = 'B' then
Writer := TFPWriterBMP.Create
else
Writer := TFPWriterPNG.Create;
img := TFPMemoryImage.Create(1,1);
img := TFPMemoryImage.Create(0,0);
end;
procedure ReadImage;
@ -118,7 +123,7 @@ begin
if (paramcount <> 4) and (paramcount <> 3) then
begin
writeln ('Give filename to read and to write, preceded by filetype:');
writeln ('X for XPM, P for PNG');
writeln ('X for XPM, P for PNG, B for BMP (write only)');
writeln ('example: imgconv X hello.xpm P hello.png');
writeln ('example: imgconv hello.xpm P hello.png');
writeln ('Options for');