procedure TTextLayoutNG.UpdateCharRec(const ACanvas: TCanvas; NeedBitmap: Boolean; var NewRec: PCharRec;

  HasItem: Boolean; const CharDic: TCharDic; const AFont: TFont; const Ch: UCS4Char; const NeedPath: Boolean = False);

var

  Map: TBitmapData;

  J: Integer;

  Bitmap: TBitmap;

  LFont: TFont;

  GlyphSettings: TFontGlyphSettings;

begin

  {

    新建一个记录，或释放原记录中的图形对象

  }

  if not HasItem then

    New(NewRec)

  else

  begin

    FreeAndNil(NewRec.Glyph);

    FreeAndNil(NewRec.Bitmap);

  end;

  {

    如果指定了字体则使用之，否则使用缺省字体

  }

  if not Assigned(AFont) then

    LFont := Self.Font

  else

    LFont := AFont;

  {

    使用Bitmap形式存储，或使用Path存储渲染过程

  }

  GlyphSettings := [];

  if NeedBitmap then

    GlyphSettings := [TFontGlyphSetting.Bitmap, TFontGlyphSetting.PremultipliedAlpha];

  if NeedPath then

    GlyphSettings := GlyphSettings + [TFontGlyphSetting.Path];

  {

    在TFontGlyphManager中使用当前的FontGlyph生成缺省图形

  }

  NewRec.Glyph := TFontGlyphManager.Current.GetGlyph(Ch, LFont, FScale, GlyphSettings);

  {

    计算基准线的位置

  }

  CharDic.Baseline := TFontGlyphManager.Current.GetBaseline(LFont, FScale);

  {

    如果采用图形模式，则生成之

  }

  if not (TFontGlyphStyle.NoGlyph in NewRec.Glyph.Style) and Assigned(NewRec.Glyph.Bitmap) and (NewRec.Glyph.Bitmap.Width > ) and (NewRec.Glyph.Bitmap.Height > ) then

  begin

    {

      采用图形渲染模式，生成Bitmap

    }

    if FRendering >  then

    begin

      Bitmap := TBitmap.Create(NewRec.Glyph.Bitmap.Width + AntiAliasMargin * , NewRec.Glyph.Bitmap.Height + AntiAliasMargin * );

      Bitmap.BitmapScale := FScale;

      {

        将Glyph中的图形复制到Bitmap中

      }

      if Bitmap.Map(TMapAccess.Write, Map) then

      try

        FillChar(Map.Data^, Map.Pitch * Map.Height, );

        NewRec.Bitmap := Bitmap;

        NewRec.SrcRect := RectF(, , NewRec.Glyph.Bitmap.Width, NewRec.Glyph.Bitmap.Height);

        NewRec.SrcRect.Offset(AntiAliasMargin, AntiAliasMargin);

for J :=  to NewRec.Glyph.Bitmap.Height -  do

          Move(NewRec.Glyph.Bitmap.Scanline[J]^, Map.GetPixelAddr(AntiAliasMargin, J + AntiAliasMargin)^, NewRec.Glyph.Bitmap.Pitch);

      finally

        Bitmap.Unmap(Map);

      end;

      {

        构建图形列表，并将其放入

      }

      if not Assigned(FNewGlyphList) then

        FNewGlyphList := TList<PCharRec>.Create;

      FNewGlyphList.Add(NewRec);

    end

    else

      {

        直接将Glyph映射到Bitmap中

      }

      MapGlyphToCache(NewRec);

  end

  else

  {

    采用Path模式

  }

  begin

    NewRec.Bitmap := nil;

    NewRec.SrcRect := RectF(, , , );

  end;

  {

    加入到列表中

  }

  if not HasItem then

    CharDic.Add(Ch, NewRec);

end;