Font-Vorschau wie Zeichentabelle unter Windows

[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)
);