missing padding in TBCFont.Assign

bctypes.pas

@@ -79,7 +79,7 @@ type
 (*    ValReal         = FPImage.ValReal;
     {$IFDEF CPU64}     //WORD = 2 bytes = 4 nybbles = 16 bits    for 32bits
     BGRAPtrInt      = FPImage.BGRAPtrInt;
-    BGRAPtrUInt     = FPImage.BGRAPtrUInt;  //QWORD = 2 DWORDs = 4 WORDs = ….. = 64 bits       for 32bits
+    BGRAPtrUInt     = FPImage.BGRAPtrUInt;  //QWORD = 2 DWORDs = 4 WORDs = �.. = 64 bits       for 32bits
     {$ELSE}               //BGRADWord = 2 WORDs = 4 bytes = 8 nybbles = 32 bits   for 32bits
     BGRAPtrInt      = FPImage.BGRAPtrInt;
     BGRAPtrUInt     = FPImage.BGRAPtrUInt;
@@ -847,6 +847,10 @@ begin
     FStyle := TBCFont(Source).FStyle;
     FTextAlignment := TBCFont(Source).FTextAlignment;
     FWordBreak := TBCFont(Source).FWordBreak;
+    FPaddingLeft:= TBCFont(Source).PaddingLeft;
+    FPaddingTop:= TBCFont(Source).PaddingTop;
+    FPaddingRight:= TBCFont(Source).PaddingRight;
+    FPaddingBottom:= TBCFont(Source).PaddingBottom;
 
     Change;
   end