Delphi - Zeichnen Sie ein Unicode-Zeichen?

Question

Ich versuche, ein Zeichensatzsymbol auf einer Leinwand zu zeichnen. Ich verwende die Schriftart Ionicons. Alles, was ich bekomme, ist ein Rechteck auf dem Bildschirm.

var 
    x1, y1: integer; 
    xChr: WideChar; 
begin 

    x1 := 10; 
    y1 := 10; 

    fMaleIcon := $f202; 
    fFemailIcon := $f25d; 

    if xRep.Male then 
    xChr := Char(fMaleIcon) 
    else 
    xChr := Char(fFemaleIcon); 

    xCanvas.TextOut(x1, y1, xChr); 
end; 

Was mache ich falsch?

Dank - Steve

Answer 1

Das leere Rechteck bedeutet, dass die verwendete Schriftart enthält keine Glyphen für diese Zeichen. Sie müssen eine Schriftart verwenden, die dies tut.

Ihr Code ist ziemlich verworren. Ich würde es so schreiben:

var 
    xChr: Char; 
begin 
    if xRep.Male then 
    xChr := #$f202; 
    else 
    xChr := #$f25d; 

    xCanvas.TextOut(10, 10, xChr); 
end; 

Oder vielleicht:

const 
    GenderChars: array [Boolean] of Char = (#$f25d, #$f202); 
.... 
xCanvas.TextOut(10, 10, GenderChars[xRep.Male]); 

Vielleicht möchten einen Aufzählungstyp erklären Geschlecht Information zu halten, anstatt eine Boolean.