| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TRichEdit - ПОМОГИТЕ !!!

KvORubin ©   (2002-02-26 15:42:00) 

Как закрасить линию при вводе "#" символа ???
(не передёргивая текст в переменную и обратно).

---

KvORubin   (2002-02-27 17:52:00) [1]

> Набережных С.

БОЛЬШОЕ СПАСИБО !!!

Ваш пример работает как часики, это как раз то, что мне нужно было !!!

ТЕМА ЗАКРЫТА !!!
.

---

KvORubin   (2002-02-27 17:43:00) [2]

> gek (27.02.02 16:34)


Вот что я сделал, но всё равно это не работает:

if Pos(RichEdit1.lines[1],"#")<>0 then begin
RichEdit1.sellength:=length(RichEdit1.lines[1]);
with RichEdit1.selattributes do font.color:=clblue;
end;


Если не затруднит, напишите работающий пример ПЛЗ.

---

Набережных С.   (2002-02-27 17:16:00) [3]

procedure TForm.RichEditKeyPress(Sender: TObject; var Key: Char);
var
n:integer;
begin
if Key = "#" then
with RichEdit do
begin
n:=SelStart;
SelStart:= n - CaretPos.x;
SelLength:=Length(Lines[CaretPos.y]);
SelAttributes.Color:=clRed;
SelStart:=n;
end;
end;


---

gek   (2002-02-27 16:34:00) [4]

RichEdit1.sellength:=length(RichEdit1.lines[I]);
with RichEdit1.selattributes do
font.color:=clblue;

---

KvORubin   (2002-02-27 16:25:00) [5]

Спсибо ~Sergius, но мне нужно в RichEdit1
при наличие этого символа закрасить шрифт той линии, в которой находится этот символ.
Причём всю линию !!!

К примеру: (для понятия смысла)
I:=Текущая линия;
if Pos(RichEdit1.lines[I],"#")<>0 then
RichEdit1.SelAttributes.lines[I].Color:=clRed;

//Тут нужно выделить всю линию и закрасить,,
//чего я и немогу сделать ;(
//Если не затруднит, напишите как это правильно сделать ?!

---

~Sergius   (2002-02-26 22:34:00) [6]

if Pos(Edit1.Text,"#")<>0 then Edit1.Color := clRed

---

KvORubin   (2002-02-26 21:29:00) [7]

НЕПОЛУЧАЕТСЯ !!!
ПЛЗ напишите пример..

Нужно когда поставился символ, тогда закрасилась вся линия текста

---

MBo   (2002-02-26 15:54:00) [8]

установить selstart,sellength, а потом selattributes

---

Наверх