paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +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} {_$define UseFile}
uses FPImage, FPWriteXPM, FPWritePNG, FPReadXPM, FPReadPNG, uses FPWriteXPM, FPWritePNG, FPWriteBMP,
FPReadXPM, FPReadPNG, FPReadBMP,
{$ifndef UseFile}classes,{$endif} {$ifndef UseFile}classes,{$endif}
sysutils; FPImage, sysutils;
var img : TFPMemoryImage; var img : TFPMemoryImage;
reader : TFPCustomImageReader; reader : TFPCustomImageReader;
@ -35,6 +36,8 @@ begin
T := upcase (paramstr(1)[1]); T := upcase (paramstr(1)[1]);
if T = 'X' then if T = 'X' then
Reader := TFPReaderXPM.Create Reader := TFPReaderXPM.Create
else if T = 'B' then
Reader := TFPReaderBMP.Create
else else
Reader := TFPReaderPNG.Create; Reader := TFPReaderPNG.Create;
ReadFile := paramstr(2); ReadFile := paramstr(2);
@ -52,9 +55,11 @@ begin
T := WriteOptions[1]; T := WriteOptions[1];
if T = 'X' then if T = 'X' then
Writer := TFPWriterXPM.Create Writer := TFPWriterXPM.Create
else if T = 'B' then
Writer := TFPWriterBMP.Create
else else
Writer := TFPWriterPNG.Create; Writer := TFPWriterPNG.Create;
img := TFPMemoryImage.Create(1,1); img := TFPMemoryImage.Create(0,0);
end; end;
procedure ReadImage; procedure ReadImage;
@ -118,7 +123,7 @@ begin
if (paramcount <> 4) and (paramcount <> 3) then if (paramcount <> 4) and (paramcount <> 3) then
begin begin
writeln ('Give filename to read and to write, preceded by filetype:'); 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 X hello.xpm P hello.png');
writeln ('example: imgconv hello.xpm P hello.png'); writeln ('example: imgconv hello.xpm P hello.png');
writeln ('Options for'); writeln ('Options for');