Emoticones
 

HOla,,, tengo un problema al insetar emoticones, y cuando quiero
guardar el texto.
Uso el sigiente codigo para insertar los emoticones,

Código Delphi [-]
{------------------------------------------------------------------------------}
function GetImageIndex(mouth: Char): Integer;
begin
case mouth of
')': Result := 0;
'|': Result := 1;
else Result := 2;
end;
end;
{------------------------------------------------------------------------------}
 
{------------------------------------------------------------------------------}
// autodeteccion de Emoticones al teclear.
procedure TForm1.rve6KeyPress(Sender: TObject; var Key: Char);
var
rve: TCustomRichViewEdit;
ItemNo, Offs: Integer;
s: String;
 
function GetImageIndex(mouth: Char): Integer;
begin
case mouth of
')': Result := 0;
's': Result := 1;
else Result := 2;
end;
end;
 
begin
if not (Key in [')', '(', 's']) then
exit;
rve := (Sender as TCustomRichViewEdit).TopLevelEditor;
ItemNo := rve.CurItemNo;
if rve.GetItemStyle(ItemNo)<0 then
exit;
Offs := rve.OffsetInCurItem;
s := rve.GetItemTextA(ItemNo);
if (s='') or (Offs=1) then
exit;
if s[Offs-1]=':' then begin
rve.SetSelectionBounds(ItemNo, Offs-1, ItemNo, Offs);
rve.InsertBullet(GetImageIndex(Key), ImageList1);
Key := #0;
end;
end;
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------}

Pues funciona bien la cosa. el problema es al guardar el texto.
o al copiarlo. por que los carateres clave como son : ) :) para insertar una
carita sonriente, pos se pierden. y lo que trato de hacer
es algo como el messenger que parece que sobre el texto : ) :)
hay una capa,.
que se puerpone a los caracteres especiales, : ) :) y
muesta la carita sonriente.

pues al guardarlo, siempre aparecen : ) :) y no la imagen.

o hacer algo parecido al sistema para mostrar emoticones, en este mismo foro

que cuando no se ha cargado por completo la pagina, se puede ver el texto.
por ejemplo : ) :) y cuando se cargo toda, se ve el emoticon. :)

Vale gracias por su atención.