SynEdit

0

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; * &lt-- tutaj wywala blad :(
SynEdit1.SelText := ZaznaczonyTekst;
end;

Jak zrobic zeby dzialalo? :)

Z gory dzieki.

==
Pozdrowienia.
BigLama.
http:*biglama.w.interia.pl // &lt-- Zapraszam! Jest tam kilka komponentow (choc nie tylko) :P

0

zobacz to -
var
dlugosc : integer;
begin
dlugosc := Length(synedit1.SelText);
If dlugosc > 0 then SynEdit1.SelText := + SynEdit1.SelText + else
begin
SynEdit1.SelText := ''
end;

pozdróffka

0

Wielkie dzieki!

0

spox - mi też tu pomagają - pozdróffka

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0