Fix error in picture mask: ** If the picture

mask contains a different literal char it still ** ** needs to decrement the position pointer. Otherwise a following ** ** non-literal char will be copied to the wrong position. **
WooZoo86 · May 26, 2016 · b5c3723 · b5c3723
1 parent 3fe6117
commit b5c3723
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/source/ovcpb.pas b/source/ovcpb.pas
@@ -831,6 +831,13 @@ procedure TOvcPictureBase.pbMergePicture(const Dest, Src : PChar);
               Dest[I] := UserData.SubstChars[AnsiChar(PicChar)];
             pmDecimalPt :
               Dest[I] := IntlSupport.DecimalChar;
+           {**                         AUCOS - Patch                         **
+           ** If the picture mask contains a different literal char it still **
+           ** needs to decrement the position pointer. Otherwise a following **
+           ** non-literal char will be copied to the wrong position.         **
+           **                                    Andreas Scholz, 02.07.2012  ** }
+           else
+            Dec(SrcLen);
           end;
       end;
     end;