paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ PNG writer temporarily changed to XPM writer

Browse Source
This commit is contained in:
michael 2003-06-30 13:30:35 +00:00
parent 1f7dfadc20
commit 5e987ae6b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/image/imgconv.pp
View File

@ -1,7 +1,7 @@
{$mode objfpc}{$h+}
program ImgConv;
uses FPImage, FPWriteXPM, FPWritePNG, FPReadXPM, FPReadPNG, sysutils;
uses FPImage, FPWriteXPM, {FPWritePNG,} FPReadXPM, FPReadPNG, sysutils;
var img : TFPMemoryImage;
reader : TFPCustomImageReader;
@ -19,7 +19,7 @@ begin
if T = 'X' then
Writer := TFPWriterXPM.Create
else
Writer := TFPWriterPNG.Create;
Writer := TFPWriterXPM.Create;
img := TFPMemoryImage.Create(1,1);
end;