Font-Vorschau wie Zeichentabelle unter Windows

[Schwedenbitter]

Hallo,

ich habe einen einfachen Chat geschrieben. Da TRichEdit von Hause aus nicht die Darstellung von Grafiken erlaubt, musste ich mir für die Darstellung von Smileys etwas anderes einfallen lassen. Guckst Du hier! Die Ausgabe des Log in einem TWebBrowser ist mir zu umständlich.

Jetzt kennen nicht alle die Codes. Das klassische :-) ist ja allen Geläufig. Aber auf :evil: für kommt nicht jeder.
Daher möchte ich gern in einem Fenster den Benutzer auswählen lassen, welches Emoticon er haben möchte. Im Grunde genauso, wie das hier im Forum möglich ist. Wie gesagt, sind das bei mir Fonts im TTF-Format.

Wie kann ich das am besten Anstellen?

Es hapert ggf. nicht am Code, insbesondere was den späteren Eintrag in das Eingabefeld anbelangt. Ich leide eher an Ideenlosigkeit bzgl. der tatsächlichen Umsetzung. Die Idee zig Buttons von Hand zu machen und zu bestücken finde ich nicht gut, weil sich die Anzahl/Reihenfolge ändern könnte. Bei TListView habe ich das Problem, dass ich die Smileys zwar anzeigen und auswählen kann. Hier stört mich aber der enorm große Abstand zwischen den Einträgen. Ich habe dazu mal ein Bild angehängt. Wenn man das änern könnte, würde mir das auch schon ausreichen.

Gruß und Danke für Eure Ideen.

[sx2008]

TStringGrid - in Event OnClick oder OnDblClick reagieren und mit Hilfe des Property Selection die selektierte Zelle auslesen.

[Schwedenbitter]

Danke. Das sieht mit ein paar Modifikationen sehr gut aus!

Das bringt mit dann zu meiner nächsten Frage, auch wenn ich mich kaum traue, diese zu stellen. Ich möchte gern die Smileys als Konstanten setzen und habe etwas versucht, was aber leider so jedenfalls nicht klappt:

Delphi-Quellcode:

Type
  TEIcon = Record
    Holder : String;
    Sign   : Char;
  End;

Const
  EIcons   : Array [1..2] Of TEIcon = ((':-)', #25), (':-(', #26));

Wie man sieht, ist es das Ziel, später auf z.B. per EIcons[I].Holder auf diese Werte zuzugreifen. Wo liegt mein Denkfehler? Ist das mit Arrays evtl. gar nicht möglich?

Gru & nochmals Dank.

[shmia]

Du musst die Namen der Felder wiederholen:

Delphi-Quellcode:

EIcons : Array [1..2] Of TEIcon = (
(Holder:':-)'; Sign:#25), 
(Holder:':-('; Sign:#26)
);