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);
varMap: TBitmapData;J: Integer;Bitmap: TBitmap;LFont: TFont;GlyphSettings: TFontGlyphSettings;
begin{新建一个记录，或释放原记录中的图形对象}if not HasItem thenNew(NewRec)elsebeginFreeAndNil(NewRec.Glyph);FreeAndNil(NewRec.Bitmap);end;{如果指定了字体则使用之，否则使用缺省字体}if not Assigned(AFont) thenLFont := Self.FontelseLFont := AFont;{使用Bitmap形式存储，或使用Path存储渲染过程}GlyphSettings := [];if NeedBitmap thenGlyphSettings := [TFontGlyphSetting.Bitmap, TFontGlyphSetting.PremultipliedAlpha];if NeedPath thenGlyphSettings := 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 > 0) and (NewRec.Glyph.Bitmap.Height > 0) thenbegin{采用图形渲染模式，生成Bitmap}if FRendering > 0 thenbeginBitmap := TBitmap.Create(NewRec.Glyph.Bitmap.Width + AntiAliasMargin * 2, NewRec.Glyph.Bitmap.Height + AntiAliasMargin * 2);Bitmap.BitmapScale := FScale;{将Glyph中的图形复制到Bitmap中}if Bitmap.Map(TMapAccess.Write, Map) thentry

        FillChar(Map.Data^, Map.Pitch * Map.Height, 0);
        NewRec.Bitmap := Bitmap;NewRec.SrcRect := RectF(0, 0, NewRec.Glyph.Bitmap.Width, NewRec.Glyph.Bitmap.Height);NewRec.SrcRect.Offset(AntiAliasMargin, AntiAliasMargin);
for J := 0 to NewRec.Glyph.Bitmap.Height - 1 doMove(NewRec.Glyph.Bitmap.Scanline[J]^, Map.GetPixelAddr(AntiAliasMargin, J + AntiAliasMargin)^, NewRec.Glyph.Bitmap.Pitch);finallyBitmap.Unmap(Map);end;{构建图形列表，并将其放入}if not Assigned(FNewGlyphList) thenFNewGlyphList := TList<PCharRec>.Create;FNewGlyphList.Add(NewRec);endelse{直接将Glyph映射到Bitmap中}MapGlyphToCache(NewRec);endelse{采用Path模式}beginNewRec.Bitmap := nil;NewRec.SrcRect := RectF(0, 0, 0, 0);end;{加入到列表中}if not HasItem thenCharDic.Add(Ch, NewRec);
end;