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

[Der schöne Günther]

Die Windows-Schriftarten enthalten zwar die entsprechenden Farben und alles, aber ich sehe nicht einmal bei WPF Support dafür. UWPs klar, aber wenn dafür selbst in WPF Zusatz-Komponenten bemühen muss...

[MaBuSE]

Zitat von Der schöne Günther:

Die Windows-Schriftarten enthalten zwar die entsprechenden Farben und alles, aber ich sehe nicht einmal bei WPF Support dafür. UWPs klar, aber wenn dafür selbst in WPF Zusatz-Komponenten bemühen muss...

Word 2016 kann sie auch nur einfarbig anzeigen, das neue Word 365 kann es auch farbig.

[TiGü]

Die meisten Programme nutzen dafür wahrscheinlich sowas wie die Windows-Funktion ExtTextOut.
Dann wird das halt schwarz/weiß. So als wenn du du in Delphi ein Canvas.TextOut benutzt.
Der Microsoft Browser Edge und neue Word-Versionen werden vermutlich während der Anzeige das ersetzen/übermalen mit fertigen ClipArts/SVGs.

[KodeZwerg]

Wegen Windows 7 sehe ich leider keine emoji, was passiert denn bei "Font.Color := WasAnderes;" ?

[MaBuSE]

Zitat von KodeZwerg:

Wegen Windows 7 sehe ich leider keine emoji, was passiert denn bei "Font.Color := WasAnderes;" ?

Mit Font.Color := clRed; kannst Du fest legen, das die ganze Schrift in Rot dargestellt wird.
Die Emoji sind aber ein Zeichen, das mit mehreren verschiedenen Farben gezeichnet wird.

Und die Schrift "Segoe UI Emoji" wird ab Win8.1 mitgeliefert.
Bzw. die Emoji Unterstützung.
Wenn ich es richtig verstanden habe, wird automatisch das Emoji aus der Segoe UI Emoj Schrift angezeigt, wenn die ausgewählte Schrift keine eigenen Emoji hat.

[EWeiss]

sorry will das mal testen wo kann man den laden ?
Den farbigen Font!

gruss

[MaBuSE]

Zitat von EWeiss:

sorry will das mal testen wo kann man den laden ?
Den farbigen Font!

gruss

Der ist ab Windows 8.1 Bestandteil von Windows

Auf die Frage, wie gebe ich denn die Zeichen unter Windows 10 ein:

Rechtsklick auf die Taskbar, dann "Bildschirmtastatur anzeigen (Schaltfläche)" klicken und dann erscheint neben der Uhr eine kleine Tastatur (Icon)
Klick darauf und es geht die Bildschirmtastatur auf.
Links neben der Leertaste ist ein Smiley. -> Draufklicken

Oder einfach per Copy & Paste. Ist ja normaler Text

[KodeZwerg]

Vielleicht kann ein Umweg über ein Bild da helfen?
using fonts as images in delphi 7

Zitat:

Delphi-Quellcode:

const
   CHESS_WHITE_QUEEN  = #$2654;
   CHESS_WHITE_KING   = #$2655;
   CHESS_WHITE_ROOK   = #$2656;
   CHESS_WHITE_BISHOP = #$2657;
   CHESS_WHITE_KNIGHT = #$2658;
   CHESS_WHITE_PAWN   = #$2659;

   CHESS_BLACK_QUEEN  = #$265A;
   CHESS_BLACK_KING   = #$265B;
   CHESS_BLACK_ROOK   = #$265C;
   CHESS_BLACK_BISHOP = #$265D;
   CHESS_BLACK_KNIGHT = #$265E;
   CHESS_BLACK_PAWN   = #$265F;

function CharToBitmap(sFontName: String; c: WideChar; cBackColor, cFontColor, cOutlineColor: TColor;
  OutlineSize: Integer; bmp: TBitmap): Boolean;
var
  r: TRect;
  OtmSize: Integer;
  pTm: POutlineTextMetric;
  LogFont: TLogFont;
begin
  Result := False;

  //destination rect
  r := Rect(0, 0, bmp.Width, bmp.Height);

  //set new font
  bmp.Canvas.Font.Name := sFontName;
  bmp.Canvas.Font.Style := [fsBold];
  bmp.Canvas.Font.Size := 10;

  //fill background
  bmp.Canvas.Brush.color := cBackColor;
  bmp.Canvas.FillRect(r);

  //get font metrics
  OtmSize := GetOutlineTextMetrics(bmp.Canvas.Handle, SizeOf(TOutlineTextMetric), nil);
  if OtmSize > 0 then
  begin
    //reserve memory
    GetMem(pTm, OtmSize);
    try
      pTm^.otmSize := OtmSize;  //set size

      if GetOutlineTextMetrics(bmp.Canvas.Handle, OtmSize, pTm) <> 0 then
      begin
        //fill whole height
        bmp.Canvas.Font.Height :=  - bmp.Height;

        BeginPath(bmp.Canvas.handle);

        SetBKMode(bmp.Canvas.Handle, TRANSPARENT);

        DrawTextW(bmp.canvas.handle, @c, 1, r, DT_SINGLELINE or
          DT_CENTER or DT_VCENTER);

        EndPath(bmp.Canvas.handle);
        bmp.Canvas.Brush.color := cFontColor;
        bmp.Canvas.pen.color := cOutlineColor;
        bmp.Canvas.pen.width := OutlineSize;
        StrokeAndFillPath(bmp.Canvas.Handle);

        Result := True;
      end;
    finally
      FreeMem(pTm);
    end;
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  bmp := TBitmap.create;
  try
    bmp.width := 100;
    bmp.height := 100;
    //white piece
    CharToBitmap('Chess Merida Unicode', CHESS_WHITE_BISHOP,
      clGreen,
      clBlack,
      clWhite,
      bmp.height div 80,
      bmp);
  Image1.Picture.Assign(bmp);

    //black piece
    CharToBitmap('Chess Merida Unicode', CHESS_BLACK_KING,
      clGreen,
      clBlack,
      clWhite,
      bmp.height div 80,
      bmp);

    Image2.Picture.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

Links I look:
https://support.microsoft.com/en-us/...size-of-a-font
http://www.fontcubes.com/Chess-7.font
http://mip.noekeon.org/HTMLTTChess/c...a_unicode.html

[himitsu]

TStaticText kann das auch nicht?

Das ist das "echte" Text-Control von Windows, was Delphi-TLabel "optimaler" und auch Transparent darstellen soll. (über DrawText/TextOut auf dem Canvas des Parents)



Und TWebBrowser ist auch nur ein leicht abgespeckter Internet Explorer.

[Redeemer]

Zitat von EWeiss:

Zitat von himitsu:

Du brauchst andere APIs, um solche Fonts zu zeichnen.
DrawText/TextOut des GDI+ scheint nicht zu reichen.
https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx

Versuch es mal mit FireMonkey

Wenn du das sagst..
Was glaubst was das hier ist?

Ein einfarbiger Font? Bitte beim Thema bleiben.

Zitat von EWeiss:

sorry will das mal testen wo kann man den laden ?
Den farbigen Font!

"Das MS Paint von Windows 10 ist ziemlich cool. Ich wollte das auf meinem Windows-95-Rechner verwenden und habe mspaint.exe kopiert, aber das geht nicht. Wieso???"