* Allow width 0 (bug ID 23662)

git-svn-id: trunk@26722 -

packages/fcl-image/src/fppen.inc

@@ -21,8 +21,8 @@ end;
 
 procedure TFPCustomPen.SetWidth (AValue : Integer);
 begin
-  if AValue < 1 then
-    FWidth := 1
+  if AValue < 0 then
+    FWidth := 0
   else
     FWidth := AValue;
 end;