Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
ВнизTRichEdit - ПОМОГИТЕ !!! Найти похожие ветки
← →
KvORubin (2002-02-26 15:42) [0]Как закрасить линию при вводе "#" символа ???
(не передёргивая текст в переменную и обратно).
← →
MBo (2002-02-26 15:54) [1]установить selstart,sellength, а потом selattributes
← →
KvORubin (2002-02-26 21:29) [2]НЕПОЛУЧАЕТСЯ !!!
ПЛЗ напишите пример..
Нужно когда поставился символ, тогда закрасилась вся линия текста
← →
~Sergius (2002-02-26 22:34) [3]if Pos(Edit1.Text,"#")<>0 then Edit1.Color := clRed
← →
KvORubin (2002-02-27 16:25) [4]Спсибо ~Sergius, но мне нужно в RichEdit1
при наличие этого символа закрасить шрифт той линии, в которой находится этот символ.
Причём всю линию !!!
К примеру: (для понятия смысла)
I:=Текущая линия;
if Pos(RichEdit1.lines[I],"#")<>0 then
RichEdit1.SelAttributes.lines[I].Color:=clRed;
//Тут нужно выделить всю линию и закрасить,,
//чего я и немогу сделать ;(
//Если не затруднит, напишите как это правильно сделать ?!
← →
gek (2002-02-27 16:34) [5]RichEdit1.sellength:=length(RichEdit1.lines[I]);
with RichEdit1.selattributes do
font.color:=clblue;
← →
Набережных С. (2002-02-27 17:16) [6]
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;
← →
KvORubin (2002-02-27 17:43) [7]
> 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;
Если не затруднит, напишите работающий пример ПЛЗ.
← →
KvORubin (2002-02-27 17:52) [8]
> Набережных С.
БОЛЬШОЕ СПАСИБО !!!
Ваш пример работает как часики, это как раз то, что мне нужно было !!!
ТЕМА ЗАКРЫТА !!!
.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c