具有GlobalUseDirect2D的Firemonkey XE4字体= false(Firemonkey XE4 Fonts with GlobalUseDirect2D = false)

具有GlobalUseDirect2D的Firemonkey XE4字体= false(Firemonkey XE4 Fonts with GlobalUseDirect2D = false)

字体不会随之改变

GlobalUseDirect2D := false;

所有这些都是'Segoe UI'。

我能做什么，字体可以用GDI +定制？

Delphi XE4，Firemonkey HD表格。

Fonts don't changes with

GlobalUseDirect2D := false;

and all of them are 'Segoe UI'.

What I can do, that fonts can be customizable with GDI+?

Delphi XE4, Firemonkey HD forms.

最满意答案

谢谢，我修好了。 还有一次关于这个问题：我关闭了GlobalUseDirect2D并且所有文本都将FontFamily作为'Tahoma'，即使它是'Comic Sans MS'，例如。

UPD它没有完全修复。 字体随机播放。

UPD2现在它是正确的。

FMX.Canvas.GDIP.pas中的修复代码：

procedure TTextLayoutGDIPlus.DoRenderLayout; var i: Integer; LRegion: TRegion; begin if not Assigned(FStringFormat) or not Assigned(FGraphics) then Exit; FreeAndNil(FGPFont); if Assigned(LayoutCanvas) then begin //FIX BEGIN TCanvasGdiPlus(LayoutCanvas).Font.Assign(Font); //FIX END if not TCanvasGdiPlus(LayoutCanvas).FGPFamily.IsStyleAvailable(vgStyleToGPStyle(Font.Style)) then begin FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, 0); if not Assigned(FGPFont) then FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, vgStyleToGPStyle(Font.Style)); end else FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, vgStyleToGPStyle(Font.Style), UnitPoint); end

Thanks, I fixed it. One more time about the problem: I turn off GlobalUseDirect2D and all text have FontFamily as 'Tahoma', even it is 'Comic Sans MS', for example.

UPD It's not full fix. Fonts shuffle.

UPD2 Now it's right fixed.

Code of fix in FMX.Canvas.GDIP.pas:

procedure TTextLayoutGDIPlus.DoRenderLayout; var i: Integer; LRegion: TRegion; begin if not Assigned(FStringFormat) or not Assigned(FGraphics) then Exit; FreeAndNil(FGPFont); if Assigned(LayoutCanvas) then begin //FIX BEGIN TCanvasGdiPlus(LayoutCanvas).Font.Assign(Font); //FIX END if not TCanvasGdiPlus(LayoutCanvas).FGPFamily.IsStyleAvailable(vgStyleToGPStyle(Font.Style)) then begin FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, 0); if not Assigned(FGPFont) then FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, vgStyleToGPStyle(Font.Style)); end else FGPFont := TGPFont.Create(TCanvasGdiPlus(LayoutCanvas).FGPFamily, Font.Size * 0.75 * TCanvasGdiPlus(LayoutCanvas).FFontScale, vgStyleToGPStyle(Font.Style), UnitPoint); end