Smilies im Chat??

[Sko]

in meinem MiniChat mach ich das bisher so:

Delphi-Quellcode:

procedure TMainForm.BildEinfuegen(var Bilder: TImageList; const ImageIndex: integer);
var
  bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bilder.GetBitmap(ImageIndex,Bitmap);
    REEmpfangen.InsertGraphic(Bitmap,false);  //REEmpfangen = JvRichEdit
    with REEmpfangen.GetSelection do REEmpfangen.SetSelection(cpMin + 1, cpMin + 1, False);
  finally
    bitmap.Free;
  end;
end;

procedure TMainForm.SucheSmiley(const Smiley: string; ImageIndex: integer; Liste: TImageList);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
with REEmpfangen do
  begin
    if SelLength <> 0 then StartPos := SelStart + SelLength
    else StartPos := 0;
    ToEnd := Length(Text) - StartPos;
    FoundAt := FindText(Smiley, StartPos, ToEnd, []);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(Smiley);
      BildEinfuegen(Liste, ImageIndex);
    end;
  end;
end;

wobei der Smiley als Text in den Nachrichten versendet wird (z. B. *grins* für )

EDIT:

Zitat von kabuco:

Hallo,

ich habe für meinen Chat (NetChat Link) die ThtmlLite Komponente verwendet. Dort kann man dann auch mit HTML-Code den Text formatieren. Für CHatprogramme garnicht mal so schlecht.

Danke für den Tipp, das werd ich mir mal für meinen MiniChat ansehen