Einzelnen Beitrag anzeigen

Angel4585

Registriert seit: 4. Okt 2005
Ort: i.d.N.v. Freiburg im Breisgau
2.199 Beiträge
 
Delphi 2010 Professional
 
#1

"BB-Codes" in JvRichEdit?

  Alt 20. Jun 2006, 18:43
Hallo,

ich möchte gerne eine Art von BB-Codes in ein JvRichEdit einbauen.

Also wenn [b ]Irgendein Text[/b] eingegeben wird, soll Irgendein Text angezeigt werden.

wisst ihr wie ich das am geschicktesten löse?

MfG Angtel4585

PS:

Mit diesem Code bau ich Smilies ein, vllt muss man den nur modifizieren?

Delphi-Quellcode:

procedure TtfMain.RichEditChange(Sender: TObject);
var
 B : TBitMap;
 pos : Integer;
 i : integer;
begin
LockWindowUpdate(Handle);
try
  try
    B:=TBitmap.Create;
    try
    for i:= 0 to Pred(Length(SMILEY_FIELD)) do
     begin
     pos:=RichEdit.FindText(SMILEY_FIELD[i], 0, Length(RichEdit.Text),[]);
     ImageList.GetBitmap(i,B);
     b.TransparentColor:=clWhite;
     b.Transparent:=True;
     while Pos >= 0 do
      begin
      RichEdit.SetSelection(Pos,Pos + Length(SMILEY_FIELD[i]),true);
      RichEdit.InsertGraphic(B,false);
      RichEdit.SelStart:=Length(RichEdit.Text);
      Pos:=RichEdit.FindText(SMILEY_FIELD[i], Pos + Pred(Length(SMILEY_FIELD[i])), Length(RichEdit.Text),[]);
      end;
     end;
    finally
      B.Free;
      end;
  except
    end;
finally
 LockWindowUpdate(0);
 end;
end;
Martin Weber
Ich bin ein Rüsselmops
  Mit Zitat antworten Zitat