VPF::RichEdit - Форум программистов

WIN32API

Дата 2.9.2005, 11:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ребятки, использую JvRichEdit. Отличие от стандартного минимальные, но есть. Так вот назре вопрос, как можно имзенить шрифт (сделать его жирным, например) одного слова или слов. А все остальное при этом должно остатся как есть? Пожалуйста, ответьте кодом. smile

mvdr

Дата 2.9.2005, 13:45 (ссылка)

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

Загрузка ...

физик

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

Репутация: 1
Всего: 42

Чисто теоретическое наюблюдение: нужное слово записать в Edit, у которого стоит нужный аттрибут текста. А потом RichEdit1.Lines[1]:=Edit1.Text;

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

z-END

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

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Femida че за бред? smile

дельфей под рукой нет, но на пальцах обясню:
устанавливаем SelStart в начало нужного слова и SelEnd в его конец, далее выставляем аттрибуты для Selected и все

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

WIN32API

Дата 2.9.2005, 15:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я делаю так:

Код


procedure TextToBold(Txt: String);
var
 SearchLen: integer;
 startpos, Pos, endpos: integer;
begin
 with Form1 do begin
  startpos := 0;
  endpos := Length(RichEdit1.Text);
  RichEdit1.Lines.BeginUpdate;
   while RichEdit1.FindText(Txt, startpos, endpos, [stMatchCase]) <> -1 do
    begin
      endpos   := Length(RichEdit1.Text) - startpos;
      Pos := RichEdit1.FindText(Txt, startpos, endpos, [stMatchCase]);
      Inc(startpos, Length(Txt));
      SetFocus;
      RichEdit1.SelStart  := Pos;
      RichEdit1.SelLength := Length(Txt);
     RichEdit1.SelAttributes.Style := [fsBold];
    end;
 end;
end;

Но скорость оставляет желать лучшего... Может, знаете, как сделать это быстрее. Например, у меня был такой вариант:

Код

procedure TextToBold(Txt: String);
begin
 with Form1 do begin
  RichEdit1.SelStart := RichEdit1.FindText(Txt, 0, Length(RichEdit1.Text), [stWholeWord]);
  RichEdit1.SelLength := Length(Txt);
  RichEdit1.SelAttributes.Style := [fsBold];
 end;
end;

Но естественно он останавливался на первом найденном слове. Помогите!

_hunter

Дата 2.9.2005, 15:42 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

ну ищи в следующий раз с позиции, начинающейся за найденным текстом ( второй параметр )

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

Tempora mutantur, et nos mutamur in illis...

WIN32API

Дата 4.9.2005, 11:02 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

( второй параметр ) ? где этот параметр?

_hunter

Дата 5.9.2005, 11:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

FindText(первый параметр, второй параметр, третий параметр, ...

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

Tempora mutantur, et nos mutamur in illis...

Archon7th

Дата 6.9.2005, 10:58 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  s,t : string;
  i,l,m : integer;
begin
  s:='begin';
  l:=Length(s);
  t:=form1.richedit1.Text;
  m:=Length(t)-l;
  form1.RichEdit1.Lines.BeginUpdate;
  for i:=1 to m do begin
    if t[i]=s[1] then
      if s=copy(t,i,l) then begin
        application.ProcessMessages;
        with form1.RichEdit1 do begin
          SelStart:=i-1;
          SelLength:=l;
          SelAttributes.Color:=clRed;
        end;
      end;
  end;
  form1.RichEdit1.Lines.EndUpdate;
end;

делает слово begin красным, при размере файла 65кб примерно за 0,5 сек

если убрать

Код

application.ProcessMessages;

еще быстрее

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

CPU not found. Running software emulation.

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