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;