Изменить цвет выделения для TRichEdit

Delphi , Компоненты и Классы , TMemo и TRichEdit

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses
   RichEdit;

 procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
 var
   Format: CHARFORMAT2;
 begin
   FillChar(Format, SizeOf(Format), 0);
   with Format do
   begin
     cbSize := SizeOf(Format);
     dwMask := CFM_BACKCOLOR;
     crBackColor := AColor;
     Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
   end;
 end;

 // Example: Set clYellow background color for the selected text. 
procedure TForm1.Button1Click(Sender: TObject);
 begin
   RE_SetSelBgColor(RichEdit1, clYellow);
 end;

Here's the translation of the Delphi code snippet into Russian:

Код-снippet на Delphi! Процедура RE_SetSelBgColor предназначена для изменения цвета фона выбранного текста в компоненте TRichEdit. Вот что она делает: 1. Она определяет локальную переменную Format типа CHARFORMAT2, которая представляет собой структуру формата символов. 2. Функция FillChar инициализирует все байты переменной Format в ноль, эффективно очищая ее содержимое. 3. Затем процедура устанавливает различные поля в структуре Format: * cbSize: Устанавливает размер структуры Format (требуется для совместимости). * dwMask: Определяет, какие атрибуты формата символов должны быть установлены. В этом случае - только цвет фона (CFM_BACKCOLOR). * crBackColor: Устанавливает желаемый цвет фона с помощью значения типа TColor. 4. Наконец, процедура использует метод Perform компонента RichEdit, чтобы применить изменения формата символов к выбранному тексту. Используется сообщение EM_SETCHARFORMAT, а SCF_SELECTION указывает, что изменение должно быть применено к текущему выбранному тексту.

Пример кода в конце демонстрирует, как использовать эту процедуру, вызвав ее с конкретным цветом фона (clYellow) при клике на кнопку на форме. В этом случае компонент RichEdit1 будет иметь свой выбор выделен в желтом цвете. В целом, этот код предоставляет полезную функцию-утилиту для изменения внешнего вида выбранного текста в контроле TRichEdit.

В статье описывается изменение цвета выделения в компоненте TRichEdit с помощью процедуры RE_SetSelBgColor, которая изменяет фоновый цвет выбранного текста.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TMemo и TRichEdit ::