Emotikont

Witam!
Mam pewien problem a w zasadzie pytanie :) jak dodać do RitchEdit emotikony??? Jest w ogóle taka możliwość??? Chodzi mi o mniej więcej o coś takiego jak w GG że np napisze &ltchopek&gt i pokaże sie zamiast tego odpowiedni obrazek.

już kiedyś był taki post na forum, potrzebne jest do tego nie RichEdit,ale IE no i artykól o wycinaniu tagów HTML's z tej strony....--Spin
(Delphi 5 Enterprise)

Gdzie znaleźć to RichEdit IE?

wejdz na torrys.net i tam poszukaj albo ci wysle na mejla komponent (juz sciagniety - taki inny ricgh edit gdzie mozna walnac takie buzki)

btw IE - to internet explorer i on nie powiedział ze jest richedit IE tylko "richedit, ALE IE"

ślij! [email protected]

na torry.net wpisz w wyszukiwarce IRC. ktores z podanych komponentow to FatMemo, ktory to umozliwia (oprocz emotikon tworzy linki na tekscie, kolory itp.)--Vroc

No mam go. Fajny ale teraz mi powiedzcie jak mam to zrobić żeby prog jeśli znajdzie znaczek " : ) " w tekście wykonał jakąś procedurkę i kasował go i dalej szukał nastepnych...

Jak nie zrozumiałe to chce zoribć żeby to znajdowało tekst i zastępowało na emotki.

Oooo mam!!! Nie wiem czy najlepiej (ale działa)

W ON KEY PRESS EDITA:

var L: TFatLine;
P: TFatPart;
S, S2: String;
begin
if Key=#13 then

begin
S:=Edit1.Text;
L:=FatMemo1.Lines.AddNew;

repeat
if Pos(':)',S)&lt&gt1 then
begin
S2:=Copy(S,1,Pos(':)',S)-1);
P:=L.Add;
P.Text:=S2;

P := L.Add;
P.Bitmap := ImgSmile.Picture.Bitmap;

Delete(S, 1, Pos(':)', S)+1);
end;
until Pos(':)', S)=0
end;