VPF::Изменение фона выбранного текста в RichEdit

TP@MB@Y

Дата 12.7.2005, 00:17 (ссылка)

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

Загрузка ...

Опытный

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

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

Вот так я добавляю строку с выбранным цветом в RichEdit:

Код


procedure TfMain.addtext(s:string;col:TColor);
var b:TColor;
begin
 b:=reChat.SelAttributes.Color;
 reChat.SelAttributes.Color:=col;
 reChat.Lines.Append(s);
 reChat.SelAttributes.Color:=b
end;

Хочу теперь сделать, чтобы можно было не только цвет шрифта выбирать, но и цвет фона. Только что-то никак не пойму как это сделать =)

Coder

Дата 12.7.2005, 01:37 (ссылка)

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

Загрузка ...

Опытный

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

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

Судя по описанию класса TTextAttributes, стандартными методами это сделать нельзя. А почему бы не попробывать какой-нибудь навороченный компонент-редактор текста вместо Rich`а?

TP@MB@Y

Дата 12.7.2005, 01:40 (ссылка)

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

Загрузка ...

Опытный

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

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

Coder
Я таких не знаю и не имею =)
Значит нельзя?

Quadr0

Дата 12.7.2005, 02:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 00:38

Rennigth

Дата 12.7.2005, 07:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

изменит цвет текста и бэкграунда выбранного текста

Код


uses RichEdit...
...
var
  lFmt: TCharFormat2;
begin
  FillChar(lFmt.cbSize, SizeOf(TCharFormat2), 0);
  lFmt.cbSize := SizeOf(TCharFormat2);

  //Background Color
  lFmt.crBackColor := clred;
  lFmt.dwMask := CFM_BACKCOLOR;
  SendMessage(RichEdit.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer(@lFmt));

  //Text Color
  lFmt.crTextColor := clGreen;
  lFmt.dwMask := CFM_COLOR;
  SendMessage(RichEdit.Handle, EM_SETCHARFORMAT, SCF_SELECTION, Integer(@lFmt));
end;
...

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

(* Honesta mors turpi vita potior *)

TP@MB@Y

Дата 12.7.2005, 20:55 (ссылка)

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

Загрузка ...

Опытный

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

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

Rennigth
Спасибо!

Quadr0
В следущих проектах буду юзать RxLib, а пока обойдусь методом Rennigth'а smile

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