Smilies im Richedit

[Flocke]

Etwa so (das Pos kannst du dir sparen):

Delphi-Quellcode:

for i := 1 to High(Smilie) do
  while ChatBox.FindText(Smilie[i], 0, -1, [stMatchCase]) >= 0 do begin
    ChatBox.SelLength := Length(Smilie[i]);
    ChatBox.SelText := '';
    AddImageToRichEdit(GetImageIndex(Smilie[i]));
  end;

[freak1985]

@Flocke:
danke für die verkürzte Form. Funzt prima.

aber nun möchte ich nun, dass wenn man text aus dem richedit rauskopieren will, die bilder-smilies wieder in text-similes zurück-verwandelt werden, sodass man den text z.B. auch im notepad lesen kann (mit den text-smilies). wenn ich jetzt den text kopiere kopiert er halt einfach die bilder-smilies mit raus. das problem ist halt, dass der notepad zB keine bilder anzeigen kann.

aber ich weiß ünerhaupt nicht, wie ich das anfangen soll und ob das überhaupt geht.

kann mir da jemand helfen?


MfG

[uschi]

Für eine neue Frage erstell bitte auch einen neuen Thread.