Anzeige farbiger Emoji (unicode Zeichen) mit Segoe UI Emoji Schrift in Delphi

[MaBuSE]

Zitat von Uwe Raabe:

Zitat von MaBuSE:

Aber ich hatte ja die Hoffnung, das das Delphi schon kann und man es nur einschalten muss.

So ganz aus dem Stand noch nicht, aber wenn man die TDirect2DCanvas ableitet und TextOut geringfügig modifiziert:

WOW,
danke für das Beispiel. Funktioniert gut. 👍🏻👍🏻👍🏻 🤘🏻

Der einzige Unterschied zwischen deiner TextOut und der von Embarcadero is ja nur der Parameter:

Code:

D2D1_DRAW_TEXT_OPTIONS_ENABLE_COLOR_FONT              = 0x00000004

Aus

Delphi-Quellcode:

RenderTarget.DrawTextLayout(D2D1PointF(x-0.5, y-0.5), TextLayout,
    FFont.FBrush.Handle, D2D1_DRAW_TEXT_OPTIONS_NONE);

wird

Delphi-Quellcode:

  RenderTarget.DrawTextLayout(D2D1PointF(x-0.5, y-0.5), TextLayout,
    Font.Brush.Handle, 4);

Geht das nur mit Direct2D oder könnte man das auch generell in der VLC für alle Controls anschalten. (z.B. via ClassHelper oder ähnliches)

Viele Grüße
MaBuSE

[Uwe Raabe]

Zitat von MaBuSE:

Der einzige Unterschied zwischen deiner TextOut und der von Embarcadero is ja nur der Parameter:

Faktisch ja. Durch das Überschreiben mussten noch ein paar Zugriffe von private fields auf public properties umgeleitet werden. Ich würde das aber auch lieber als Option im Originalcode unterbringen. Leider funktioniert es wohl nur ab Anniversary Update bzw. einer bestimmten Direct2D Version. Ich weiß nur noch nicht, wie man das am besten erkennen kann, denn dann würde ich einen entsprechenden Feature-Request ins QP einstellen.

Zitat von MaBuSE:

Geht das nur mit Direct2D oder könnte man das auch generell in der VLC für alle Controls anschalten. (z.B. via ClassHelper oder ähnliches)

Vermutlich nicht. Die Controls basieren in der Regel auf GDI und wenn es hoch kommt auf GDI+. Soweit ich weiß ist dieses Feature dort aber nicht implementiert.

[MaBuSE]

Zitat von Uwe Raabe:

Soweit ich weiß ist dieses Feature dort aber nicht implementiert.

Schade 😒

Vielen Dank für die Infos. 👍🏻👍🏻👍🏻 🤘🏻

[TiGü]

Zitat von Uwe Raabe:

Faktisch ja. Durch das Überschreiben mussten noch ein paar Zugriffe von private fields auf public properties umgeleitet werden. Ich würde das aber auch lieber als Option im Originalcode unterbringen. Leider funktioniert es wohl nur ab Anniversary Update bzw. einer bestimmten Direct2D Version. Ich weiß nur noch nicht, wie man das am besten erkennen kann, denn dann würde ich einen entsprechenden Feature-Request ins QP einstellen.
.

Man müsste meiner Meinung nach nur prüfen, ob die D2D1-Factory das Interface ID2D1Factory4 unterstützt.