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

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

← →
jiuraf   (2004-04-07 22:27) [0]

Есть RichEdit и кнопка.Я пишу код:

procedure TForm1.Button1Click(Sender: TObject);
  Var
  I:Integer;
begin
For i:=1 to 32 do
   If i mod 15 =0 then Begin
        RichEdit1.SelStart:=10;
        RichEdit1.SelLength:=6;
        RichEdit1.SelAttributes.Style:=[fsBold];
        RichEdit1.SelStart:=length(RichEdit1.Lines.text);
        RichEdit1.SelLength:=0;
        {RichEdit1.Text:=RichEdit1.Lines.text+"sdfsdfdssdfsdfsdfsd`"; }
end;
end;

Если кодтакой как написан то все работает (часть текста RuchEdit выделяется)
Если снять комментарий последней строчки то выделения не происходит.Почему? и как все таки выделять текст при добавлении новых строк?

---

← →
Camypau   (2004-04-07 22:51) [1]

можно встречный вопрос :зачем цикл то тут?
просто пишешь SelStart := начало выделения
SelLength := Длина строки
когда SelLength = 0 то он просто курсор перемещает

а чтобы позицию курсора получить там сообщения есть

---

← →
jiuraf   (2004-04-07 22:56) [2]

Относительно циекла - это просто упрощенный пример.Ту программу котрую я делаю, там цикл необходим.
Но я так и не понял твоего ответа, ты мог бы пояснить

---

← →
Camypau   (2004-04-07 23:37) [3]

думаю SelLength := 0 не нужно ставить, поскольку это сбрасывает выделение, ьам должен указываться размер выделенной области.
Начало выделенного текста указывается в SelStart и находится при помощи сообщений RichEdit"a для строки с определённым номером
(ну если тебе надо 100-ую строку выделить то не надо бежать в цикле)

---

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

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



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