[JvRichEdit] Smilies einfügen

[Die Muhkuh]

Hi,

hier mal ein Q&D-Beispiel:

Delphi-Quellcode:

procedure TForm1.DoSmilies(aJvRichEdit: TJvRichEdit);
var
  Pos: Integer;
  Bitmap: TBitmap;
begin
  Pos := aJvRichEdit.FindText(':-)', 0, Length(aJvRichEdit.Text), []);

  if Pos = -1 then
    exit;

  Bitmap := TBitmap.Create;

  try
    ImageList1.GetBitmap(0, Bitmap);

    aJvRichEdit.SetSelection(Pos, Pos + 3, true);
    aJvRichEdit.InsertGraphic(Bitmap, false);
    aJvRichEdit.SelStart := Length(aJvRichEdit.Text);
  finally
    Bitmap.Free;
  end;
end;