Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
ВнизПодсветка. Найти похожие ветки
← →
Morfey (2003-03-01 11:22) [0]Поскажите как менять цвет (быстро) для определённых слов в
RichEdit.
P.S. Как менять цвет для выделенного текста я знаю :)
← →
Song (2003-03-01 11:29) [1]Выделяй их по очереди :)
← →
Morfey (2003-03-01 11:30) [2]Долго!!!
← →
Song (2003-03-01 11:35) [3]Стало быть "определённых" много?
← →
Morfey (2003-03-01 11:37) [4]много ли групп тег в HTML?
← →
Song (2003-03-01 11:43) [5]
procedure HTMLSyntax(RichEdit: TRichEdit; TextCol, TagCol, DopCol: TColor);
var
i, iDop: Integer;
s: string;
Col: TColor;
isTag, isDop: Boolean;
begin
iDop := 0;
isDop := False;
isTag := False;
Col := TextCol;
RichEdit.SetFocus;
for i := 0 to Length(RichEdit.Text) do
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 1;
s := RichEdit.SelText;
if (s = "<") or (s = "{") then isTag := True;
if isTag then
if (s = """) then
if not isDop then
begin
iDop := 1;
isDop := True;
end
else
isDop := False;
if isTag then
if isDop then
begin
if iDop <> 1 then Col := DopCol;
end
else
Col := TagCol
else
Col := TextCol;
RichEdit.SelAttributes.Color := Col;
iDop := 0;
if (s = ">") or (s = "}") then isTag := False;
end;
RichEdit.SelLength := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.BeginUpdate;
HTMLSyntax(RichEdit1, clBlue, clRed, clGreen);
RichEdit1.Lines.EndUpdate;
end;
← →
Morfey (2003-03-01 11:45) [6]Спасибу
← →
Morfey (2003-03-01 13:07) [7]А как сделать что бы курсор оставался на месте а не перемещался в конец текста
← →
Song (2003-03-01 16:38) [8]Подумать головой.
← →
Morfey (2003-03-01 16:50) [9]Нет всё равно это очень долго, надо чтоб как в делфи, подсвечивались слова, в процессе редактирования.
← →
Ketmar (2003-03-01 17:58) [10]>Morfey © (01.03.03 16:50)
synedit.
Satanas Nobiscum! 01-Mar-XXXVIII A.S.
← →
Morfey (2003-03-01 20:14) [11]Вау, класс то что надо, спасибо!!!
← →
George (2003-03-02 12:02) [12]Воспользуйся компонентом RxRichEdit.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c