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;
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.