Mam taka procedurke, ktora obejmuje w tagi [b] i [/b] zaznaczony tekst...
procedure T_MainFrm.btnBoldClick(Sender: TObject);
var
ZaznaczonyTekst : String;
begin
ZaznaczonyTekst := RichEdit1.SelText;
RichEdit1.SetFocus;
RichEdit1.SelText := `;
RichEdit1.SelStart := RichEdit1.SelStart - 4;
RichEdit1.SelText := ZaznaczonyTekst;
end;
"przerobilem" to na SynEdit i nie dziala! :(
procedure T_MainFrm.btnBoldClick(Sender: TObject);
var
ZaznaczonyTekst : String;
begin
ZaznaczonyTekst := SynEdit1.SelText;
SynEdit1.SetFocus;
SynEdit1.SelText := `;
SynEdit1.SelStart := SynEdit1.SelStart - 4; * <-- tutaj wywala blad :(
SynEdit1.SelText := ZaznaczonyTekst;
end;
Jak zrobic zeby dzialalo? :)
Z gory dzieki.
==
Pozdrowienia.
BigLama.
http:*biglama.w.interia.pl // <-- Zapraszam! Jest tam kilka komponentow (choc nie tylko) :P