Smilies im Chat??

[Tobiax]

Wie füge ich jetzt deinen Code in den ein?

Code:

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;