* fix compilation after r17747

git-svn-id: trunk@21084 -
2025-11-20 19:29:36 +01:00 · 2012-04-27 19:49:27 +00:00 · 2012-04-27 19:49:27 +00:00 · 759b927a9b
commit 759b927a9b
parent 5f58dd6395
1 changed files with 1 additions and 1 deletions
--- a/packages/fcl-image/examples/imgconv.pp
+++ b/packages/fcl-image/examples/imgconv.pp
@ -78,7 +78,7 @@ begin
  else if T = 'T' then
    Writer := TFPWriterTARGA.Create
  else if T = 'N' then
-    Writer := TFPWriterPNM.Create(4)
+    Writer := TFPWriterPNM.Create
  else
    begin
    Writeln('Unknown file format : ',T);