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

[Jumpy]

So siehts bei Windows10 aus, hab einfach die .exe gestartet.

[EWeiss]

Zitat von Jumpy:

So siehts bei Windows10 aus, hab einfach die .exe gestartet.

Danke..

gruss

[romber]

Moin zusammen!

Der Thread ist zwar schon etwas älter, das Problem ist (zumindendest für mich) immer noch auktuell. Ich bin auf der Suche nach einem Control (Edit, Memo oder so was in der Art), das farbige Emojis darstellen kann. Bis jetzt zeichnen alle Komponenten, die ich ausprobiert habe, die Empjis-Zeichen schwarzweiss.

Seit der Diskussion ist jede Menge Zeit vergangen, auch die Anfrage von Uwe damals wurde laut Embarcadero bereits in 10.3 umgesetzt. Trodzdem kriege ich es nicht hin mit dem farbigen Emojis.

Habt ihr farbige Emojis in den normalen TEdit oder TMemo hingekriegt? Danke für jeden Hinweis!

D12, Windows 11

[himitsu]

colored smiley win32
https://learn.microsoft.com/en-us/wi...te/color-fonts

https://gist.github.com/nickav/ed342...170888956a7b22
https://stackoverflow.com/questions/...-with-drawtext
https://forum.lazarus.freepascal.org...?topic=56444.0
https://bugs.eclipse.org/bugs/show_bug.cgi?id=528749


Nicht getestet, aber ich würde im Delphi 12 auch mal nach dem neuen Skia-Label schauen.


PS: Früher war die Notepad sowas, wie ein TMemo (Wordpad das TRichEdit),
aktuell (Windows 11) ist wird das Mistding 3D-gerändert, mit GPU-Unterstützung (im Taskmanager zu erkennen) ... wenn ich nun das hier lese, würde ich auf Direct2D tippen.

[Uwe Raabe]

Zitat von romber:

auch die Anfrage von Uwe damals wurde laut Embarcadero bereits in 10.3 umgesetzt.

Ist sie auch! Allerdings geht es dabei um TDirect2DCanvas, aber die wird von Windows bei TEdit und TMemo ja nicht verwendet.

[romber]

Zitat von Uwe Raabe:

Ist sie auch! Allerdings geht es dabei um TDirect2DCanvas, aber die wird von Windows bei TEdit und TMemo ja nicht verwendet.

Uwe, vielen Dank! Das mit der TEdit und TMemo ist mir natürlich bewusst, habe mich falsch ausgedrückt. Ich meinte eher die Controls mit ähnlicher Funktionsweise.

Kann mir jemand eventuell so ein Control empfehlen?

[MaBuSE]

Ich hab gerade mal ein (VCL) TForm mit TLabel und TEdit erzeugt und in der OnCreate folgendes zugewiesen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '❤';
  Edit1.Text := Caption;
  Label1.Caption := Caption;
end;

Das gleiche Verhalten wie damals. Ich verwende Win10 inkl. Updates und Delphi 10.4 (Sydney).

Jetzt hab ich das Gleiche mal mit FireMonkey gemacht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := '❤';
  Edit1.Text := Caption;
  Label1.Text := Caption;
end;

Hier wird die Titelzeile (Caption) einfarbig gezeigt (wie in VCL).
Aber das Label und das Edit Feld zeigen die farbigen Emojis.

Wenn Du also keine alten VCL Anwendungen erweiterst, nutze FireMonkey und es ist kein Problem. 😊👍

Siehe Screenshot.

[Uwe Raabe]

Unter Vcl könnte man in der aktuellen Delphi-Version auch ein TSkLabel verwenden, aber ein entsprechendes Pendant zum TEdit gibt es dort auch nicht.