anchor.diff:    InlineList := T.InlineList; {same list}
     IsCopy := True;
     inherited CreateCopy(Self, T);
  +// r14: Added some fixes for object copies done using Move(), re-checked Unicode Support, minor fixes for file structure
   // was: System.Move(T.ShowImages, ShowImages, DWord(@Background) - DWord(@ShowImages) + Sizeof(Integer));
  -  ShowImages := T.ShowImages;
  +  //BG, 08.06.2010: Issue 9: Getting black background
  +  // this Move() copied 24 fields including a string, not only ShowImages.
  +  // re-introduce Move() after moving string out of the moved area between ShowImages and Background.
  +  //ShowImages := T.ShowImages;
  +  System.Move(T.ShowImages, ShowImages, DWord(@Background) - DWord(@ShowImages) + Sizeof(Integer));
  +  PreFontName := T.PreFontName;
     BitmapName := '';
     BackgroundBitmap := nil;
     BackgroundMask := nil;
  
positive.code:     ObjectChange: ThtObjectEvent;
      FileBrowse: TFileBrowseEvent;
      BackGround: TColor;
  
      OnBackgroundChange: TNotifyEvent;
      BackgroundBitmap: TGpObject; //TBitmap;
  
negative.code:       end;
      end
      else
      begin {no Alt text and no size specified}
        AltWidth := IntMax(ObjWidth, 16 + 8);
        AltHeight := IntMax(ObjHeight, 16 + 8);
      end;
  