diff --git a/packages/fcl-image/src/fpbrush.inc b/packages/fcl-image/src/fpbrush.inc
index 9b3b135eca..ad7710c90d 100644
--- a/packages/fcl-image/src/fpbrush.inc
+++ b/packages/fcl-image/src/fpbrush.inc
@@ -30,6 +30,7 @@ begin
     begin
     self.Style := Style;
     self.Image := Image;
+    self.Pattern := Pattern;
     end;
   inherited DoCopyProps(From);
 end;
diff --git a/packages/fcl-image/src/fpfont.inc b/packages/fcl-image/src/fpfont.inc
index 6e6129eaea..c4226983ae 100644
--- a/packages/fcl-image/src/fpfont.inc
+++ b/packages/fcl-image/src/fpfont.inc
@@ -37,13 +37,14 @@ end;
 
 procedure TFPCustomFont.DoCopyProps (From:TFPCanvasHelper);
 begin
-  with from as TFPCustomFont do
-    begin
-    self.FName := FName;
-    self.FSize := FSize;
-    self.FFPColor := FFPColor;
-    self.FFlags := FFlags;
-    end;
+  if From is TFPCustomFont then
+   with from as TFPCustomFont do
+     begin
+     self.FName := FName;
+     self.FSize := FSize;
+     self.FOrientation := FOrientation
+     end;
+  Inherited;  
 end;
 
 function TFPCustomFont.CopyFont : TFPCustomFont;
diff --git a/packages/fcl-image/src/fppen.inc b/packages/fcl-image/src/fppen.inc
index 00f05d361a..e39c63f6de 100644
--- a/packages/fcl-image/src/fppen.inc
+++ b/packages/fcl-image/src/fppen.inc
@@ -57,6 +57,8 @@ begin
     self.Width := Width;
     self.Mode := Mode;
     self.pattern := pattern;
+    self.EndCap := EndCap;
+    self.JoinStyle := JoinStyle;
     end;
   inherited;
 end;