Скачать: CL | DM;

Проблема с SelAttributes   Найти похожие ветки 

← →
Hollander   (2006-11-28 14:42) [0]

Народ у меня такая проблема: в своем копоненте написал процедуру

procedure TSmemo.show_syntax();
var i, j:integer;
 s: string;
begin
s:=Lines.Text;
for i:=0 to Length(Lines.Text) do
if s[i]=" " then
 for j:=i+1 to Length(Lines.Text) do
 if s[j]=" " then begin
   if copy(Lines.Text,i+1,j-1-i)="art"
   then
   begin
SelStart:=i;
SelLength:=j-i;
SelAttributes.Color:=clRed;  // после этой командой и удаляет
end;
end;
end;

И вместо выделения, у меня просто удаляется текст который нужно выделить. В чем тут дело???

---

← →
MBo ©   (2006-11-28 14:47) [1]

>for i:=0 to Length(Lines.Text)

почему цикл от нуля?

---

← →
Hollander   (2006-11-28 16:59) [2]

А что это как-то повлияет??? Сейчас проверю

---

← →
MBo ©   (2006-11-28 17:46) [3]

Сразу не обратил внимания - что за Memo такое, что у него SelAttributes есть, как у RichEdit?

---

← →
Hollander   (2006-11-28 20:11) [4]

Все спасибо, это и был RichEdit. Там была проблема в точ, что нужно было обнулять SelLength

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c