Wie kann ich Unicodezeichen "schreiben"

[himitsu]

Zitat von xZise:

himitsu: Falscher Thread?

jo, hatte ich och grad gemerkt, als ich hier meine Antwort nicht sah o.O



Du kannst es ja mal versuchen.

Delphi-Quellcode:

Procedure SetText(Const E; S: WideString);
  Begin
    If TObject(E) is TLabel Then Begin  TLabel(E).Caption := S;  Exit;  End;
    SendMessageW(TWinControl(E).Handle, WM_SETTEXT, 0, LongInt(PWideChar(S)));
  End;

Mit dieser Prozedur kannst du einen WideString an ein VCL-Control senden, welches von TControl abgeleitet ist, oder an ein TLabel und Nachfolger dessen.

Aber wie gesagt, du wirst bemerken, daß bei dir der angezeigt Text meißtens wieder einem in einen AnsiString umgewandelten Text entsprechen wird, da die meißten Komonenten intern die AnsiVersion sind.

Du müßtest also das entsprechende Window als WideVersion klonen und diesen Klon für das AnsiOriginal einschleußen.

[Lannes]

Hallo,

die Schriftart zur Darstellung der 'X' usw. ist Marlett:
Zeichen Pfeil nach oben = 't'
Zeichen Pfeil nach oben = 'u'

[himitsu]

Zitat von Lannes:

die Schriftart zur Darstellung der 'X' usw. ist Marlett.

Aber nur in den Windows ohne XP-Style, mit 'nem Style sind das ja kleine Bildchen,
ansonsten sind ja fast alle kleinen (meist schwarzen/einfarbigen) Grafigen im alten Windows-Style aus Marlett, oder irgendwo anders her ^^

Zumindestens Marlett (Arial, Courier, New Courier, Small Fonts, Times New Roman, ...) kann man also "guten" Geissens verwenden, weil das einer der wenigen Fonts sein wird, welche sich mit sehr großer Sicherheit auf allen Windowsrechnern befindet und befinden wird.