VPF::подкраска richedit - Форум программистов

gambit

Дата 31.1.2007, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Как можно выделить цветом и шрифтом(жирный,курсив) определенное слово в richedit?

Yanis

Дата 31.1.2007, 13:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Код


  with RichEdit1.SelAttributes do
    begin
      Color := clBlue;
      Style := [fsBold, fsUnderline];
    end;

Добавлено @ 13:51
Если ты про подсветку синтаксиса, то слово собственно нужно искать самому...

Добавлено @ 13:54

Код

procedure MarkThisWord(RE: TRichEdit; TheWord: String; Color: TColor; Style:
TFontStyles);
var
  i, CharPos, noChars: Integer;
begin
  CharPos := 0;
  noChars := 0;
  for i := 0 to Pred(RE.Lines.Count) do
    noChars := noChars + Length(RE.Lines[i]);
  CharPos := RE.FindText(TheWord, CharPos, noChars, [stWholeWord]);
  RE.SelStart := CharPos;
  RE.SelLength := Length(TheWord);
  RE.SelAttributes.Color := Color;
  RE.SelAttributes.Style := Style;
end;

procedure MarkAllWords(RE: TRichEdit; TheWord: String; Color: TColor; Style:
TFontStyles);
var
 i, CharPos, CharPos2, noChars: Integer;
begin
 CharPos := 0;
 noChars := 0;
 for i := 0 to Pred(RE.Lines.Count) do
   noChars := noChars + Length(RE.Lines[i]);
 repeat
   CharPos2 := RE.FindText(TheWord, CharPos, noChars, [stWholeWord]);
   CharPos := CharPos2+1;
   RE.SelStart := CharPos2;
   RE.SelLength := Length(TheWord);
   RE.SelAttributes.Color := Color;
   RE.SelAttributes.Style := Style;
 until charpos = 0;
end;

Syntax:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MarkThisWord(RichEdit1, 'the', clRed, [fsBold]);
  MarkAllWords(RichEdit1, 'to', clTeal, [fsItalic, fsBold]);
end;

--------------------

*щёлк*

gambit

Дата 31.1.2007, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Цитата

подсветку синтаксиса

В точку.
А как найти?

Sunvas

Дата 31.1.2007, 13:55 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

synedit

Добавлено @ 13:56
http://forum.vingrad.ru/SynUniHighlighter.html

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

gambit

Дата 31.1.2007, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Пока я писал, ты уже ответил. Мысли читаеш?

Добавлено @ 13:59

Цитата

synedit

Добавлено @ 13:56
http://forum.vingrad.ru/SynUniHighlighter.html

Я там был. Там подкраски для существующих языков. А мне надо для своего.

Yanis

Дата 31.1.2007, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(gambit @ 31.1.2007, 14:56

)

Там подкраски для существующих языков. А мне надо для своего.

На сколько я знаю всё это решается с помощью своего словаря. Только почитать мануалы нуна smile

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »